ASP生成输出DOC(Word文件)
2009-05-06 10:40:01 来源:WEB开发网< %
const lie=3 '修改列数
const tablewidth="33%" '定义表格的宽度
const tableheight="18%" '定义表格的高度
const imgwidth="15%" '定义表格的宽度
const imgheight="27.5%" '定义表格的高度
const fontsize="12px;" '定义文字的大小
const txtwidth="120" '图片右侧文字表格宽
const txtheight="18%" '图片右侧文字表格高
const txtalign="left" '图片右侧文字对齐方式:left左,center中,right右
'TOP 强调该文件为Word文件
function doctop()
doctop="<html xmlns:v=""urn:schemas-microsoft-com:vml"" xmlns:o=""urn:schemas-microsoft-com:office:office"" xmlns:w=""urn:schemas-microsoft-com:office:word"" xmlns=""
end function
function imgtotable(fto,fpar,dext)
imgtotable="<table width="&tablewidth&" height="&tableheight&" border=0>"
imgtotable=imgtotable+"<tr valign=""top""><td><img src="""&replace(demo,fpar,"")&""" width="""&imgwidth&""" height="""&imgheight&"""/></td>"
imgtotable=imgtotable+"<td colspan=""2"" align=""center"">"
imgtotable=imgtotable+"<table width="&txtwidth&" height="&txtheight&"><tr><td align="""&txtalign&""">"&replace(lcase(fto.name),"."&dext,"")&"</td></tr><tr><td align="""&txtalign&""">演员</td></tr><tr><td align="""&txtalign&""">语言</td></tr><tr><td align="""&txtalign&""">容量</td></tr><tr><td align="""&txtalign&""">类型</td></tr></table>"
imgtotable=imgtotable+"</td></tr></table>"+chr(13)+chr(10)
end function
function imagetodoc(fpath,fpar)
set fto=fso.createtextfile(fpath&"/运行结果.doc",True)
fto.writeline doctop()
fto.writeline "<body topmargin=0 leftmargin=0><table width=""64"" height=""100%"" border=1><div class=Section1>"
for each demo in fpath.files
dext=Lcase(fso.getExtensionName(demo))
if dext="jpg" or dext="gif" or dext="png" then
if (i mod lie)=0 then fto.writeline " <tr>"+chr(13)+chr(10)
i=i+1
fto.writeline "<td>"
'用于排错
'fto.writeline "123"
fto.writeline imgtotable(demo,fpar,dext)
fto.writeline "</td>"+chr(13)+chr(10)
if (i mod lie)=0 then i=0:fto.writeline " </tr>"+chr(13)+chr(10)
end if
next
fto.close
response.write "</div></table></body>"
response.write ""&fpo&fpath&"\运行结果.doc"" 生成完毕。<br />"
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
%>
- ››asp.net页面弄成伪静态页面
- ››Asp.net 中将汉字转换成拼音的方法
- ››ASP.NET及JS中的cookie基本用法
- ››ASP.NET获取MS SQL Server安装实例
- ››asp.net实现调用百度pai 在线翻译英文转中文
- ››ASP.NET页面选项进行提示判断
- ››Asp.net定时执行程序
- ››ASP.NET中利用DataList实现图片无缝滚动
- ››ASP.NET验证控件RequiredFieldValidator
- ››ASP.NET中使用System.Net.Mail发邮件
- ››ASP.NET中获取用户控件中控件的ID
- ››ASP.NET中FileBytes写成文件并存档
更多精彩
赞助商链接