ASP生成DOC(Word文件)的代码

< %  
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="@page Section1{margin:30pt 8.5pt 5.65pt 12pt;}div.Section1{page:Section1;}table{font-size:"&fontsize&"}"+chr(13)+chr(10)  
end function  

function imgtotable(fto,fpar,dext)  
    imgtotable=""  
    imgtotable=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 ""  
    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 "    "+chr(13)+chr(10)  
            i=i+1  
            fto.writeline ""  
            ’用于排错  
            ’fto.writeline "123"  
            fto.writeline imgtotable(demo,fpar,dext)  
            fto.writeline ""+chr(13)+chr(10)  
            if (i mod lie)=0 then i=0:fto.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  
%>