用ASP实现生成网页输出Word文件格式

[全站通告] 想快速节省您的时间并可接受付费的朋友，可扫右边二维码加博主微信-非诚勿扰！

用ASP实现生成网页输出Word文件格式

用ASP实现生成网页输出Word文件格式

用ASP实现生成网页输出Word文件格式
[code]
< % const lie=3 '修改列数 const tablewidth="33%" '定义表格的宽度 const tableheight="18%" '定义表格的高度 const imgwidth="15%" '定义表格的宽度 const imgheight="27.5%" '定义表格的高度 const f '定义文字的大小 const txtwidth="120" '图片右侧文字表格宽 const txtheight="18%" '图片右侧文字表格高 const txtalign="left" '图片右侧文字对齐方式:left左,center中,right右 'TOP 强调该文件为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&"/运行结果.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&"\运行结果.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号又微信号)右上方扫一扫可加博主微信

所写所说，是心之所感，思之所悟，行之所得；文当无敷衍，落笔求简洁。 以所舍，求所获；有所依，方所成！