ASP生成輸出DOC(Word文件)

2019-11-17 04:13:51

字體：大中小

來源：轉載

供稿：網友

< %
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="">生成結果</title><meta http-equiv=Content-Type content=""text/html; charset=gb2312""></meta><meta name=PRogId content=Word.Document></meta><meta name=Generator content=""Microsoft Word 10""></meta><meta name=Originator content=""Microsoft Word 10""><style type=""text/CSS"">@page Section1{margin:30pt 8.5pt 5.65pt 12pt;}div.Section1{page:Section1;}table{font-size:"&fontsize&"}</style></meta></head>"+chr(13)+chr(10)
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