用ASP實現(xiàn)生成網(wǎng)頁輸出Word文件格式

[重要通告]如您遇疑難雜癥,本站支持知識付費業(yè)務,掃右邊二維碼加博主微信,可節(jié)省您寶貴時間哦!

用ASP實現(xiàn)生成網(wǎng)頁輸出Word文件格式

用ASP實現(xiàn)生成網(wǎng)頁輸出Word文件格式

用ASP實現(xiàn)生成網(wǎng)頁輸出Word文件格式
[code]
< % const lie=3 '修改列數(shù) const tablewidth="33%" '定義表格的寬度 const tableheight="18%" '定義表格的高度 const imgwidth="15%" '定義表格的寬度 const imgheight="27.5%" '定義表格的高度 const f '定義文字的大小 const txtwidth="120" '圖片右側(cè)文字表格寬 const txtheight="18%" '圖片右側(cè)文字表格高 const txtalign="left" '圖片右側(cè)文字對齊方式:left左,center中,right右 'TOP 強調(diào)該文件為Word文件 function doctop() doctop="

"+chr(13)+chr(10)
end function
function imgtotable(fto,fpar,dext)
imgtotable="

"
imgtotable=imgtotable+"

" imgtotable=imgtotable+" "&replace(lcase(fto.name),"."&dext,"")&" 演員 語言 容量 類型 " imgtotable=imgtotable+"

"+chr(13)+chr(10)
end function
function imagetodoc(fpath,fpar)
set fto=fso.createtextfile(fpath&"/運行結(jié)果.doc",True)
fto.writeline doctop()
fto.writeline "

"+chr(13)+chr(10)
if (i mod lie)=0 then i=0to.writeline "

"+chr(13)+chr(10)
end if
next
fto.close
response.write "

"
response.write ""&fpo&fpath&"\運行結(jié)果.doc"" 生成完畢。
"
set fto=nothing
end function
set fso=server.createobject("scripting.filesystemobject")
set fpo=fso.getfolder(server.mappath("./"))
for each demo in fpo.subfolders
call imagetodoc(demo,"")
next
set fpo=nothing
set fso=nothing
%>
[/code]

問題未解決？付費解決問題加Q或微信 2589053300 (即Q號又微信號)右上方掃一掃可加博主微信

所寫所說，是心之所感，思之所悟，行之所得；文當無敷衍，落筆求簡潔。 以所舍，求所獲；有所依，方所成！