作业帮 > ASP > 教育资讯

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

来源：学生作业帮助网编辑：作业帮时间：2024/05/05 18:55:22 ASP

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

【51Test.NET-ASP教程：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="生成结果"+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 ""+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 "

"
            '用于排错
            'fto.writeline "123"
            fto.writeline imgtotable(demo,fpar,dext)
            fto.writeline "

"
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
%>

ASP