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

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

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

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

用ASP實(shí)現(xiàn)生成網(wǎng)頁(yè)輸出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è)文字對(duì)齊方式:left左,center中,right右 'TOP 強(qiáng)調(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,"")&" 演員 語(yǔ)言 容量 類型 " imgtotable=imgtotable+"

"+chr(13)+chr(10)
end function
function imagetodoc(fpath,fpar)
set fto=fso.createtextfile(fpath&"/運(yùn)行結(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&"\運(yùn)行結(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]

問(wèn)題未解決？付費(fèi)解決問(wèn)題加Q或微信 2589053300 (即Q號(hào)又微信號(hào))右上方掃一掃可加博主微信

所寫所說(shuō)，是心之所感，思之所悟，行之所得；文當(dāng)無(wú)敷衍，落筆求簡(jiǎn)潔。 以所舍，求所獲；有所依，方所成！