<%
const lie=3 'Modifica o número de colunas
const tablewidth="33%" 'Define a largura da tabela
const tableheight="18%" 'Define a altura da tabela
const imgwidth="15%" 'Define a largura da tabela
const imgheight="27.5%" 'Define a altura da tabela
const fontsize="12px;" 'Defina o tamanho do texto
const txtwidth="120" 'A largura da tabela de texto no lado direito da imagem
const txtheight="18%" 'A altura da tabela de texto no lado direito da imagem
const txtalign="left" 'Alinhamento do texto no lado direito da imagem: esquerda, centro, direita'TOP
enfatiza que o arquivo é um arquivo Word
funçãodoctop()
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="" http://www.w3.org/TR/REC-html40""><head><title >Gerar resultados</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 Seção1{margem:30pt 8,5pt 5,65pt 12pt;}div.Seção1{ page:Section1;}table{font-size:"&fontsize&"}</style></meta></head>"+chr(13)+chr(10)
função final
função 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"" alinhamento=""center"">"
imgtotable=imgtotable+"<table width="&txtwidth&" height="&txtheight&"><tr><td align="""&txtalign&""">"&replace(lcase(fto.name),"."&dext,"") &"</td></tr><tr><td align="""&txtalign&""">Ator</td></tr><tr><td align="""&txtalign&""">Idioma </td></tr><tr><td align="""&txtalign&""">Capacidade</td></tr><tr><td align="""&txtalign&""">Tipo</ td></tr><tr><td td></tr></table>"
imgtotable=imgtotable+"</td></tr></table>"+chr(13)+chr(10)
função final
função imagetodoc(fpath,fpar)
definir fto=fso.createtextfile(fpath&"/Run result.doc",True)
fto.writelinedoctop()
fto.writeline "<body topmargin=0 leftmargin=0><table width=""64"" height=""100%"" border=1><div class=Section1>"
para cada demonstração em fpath.files
dext=Lcase(fso.getExtensionName(demo))
se dext="jpg" ou dext="gif" ou dext="png" então
se (i mod lie)=0 então fto.writeline "<tr>"+chr(13)+chr(10)
eu=eu+1
fto.writeline "<td>"
'para solução de problemas
'fto.writeline "123"
fto.writeline imgtotable(demonstração,fpar,dext)
fto.writeline "</td>"+chr(13)+chr(10)
se (i mod lie)=0 então i=0:fto.writeline " </tr>"+chr(13)+chr(10)
terminar se
próximo
fto.fechar
resposta.write "</div></table></body>"
response.write ""&fpo&fpath&"Run result.doc"" Geração concluída.<br />"
definir fto = nada
conjunto
de funções finais
fso=server.createobject("scripting.filesystemobject")
definir fpo=fso.getfolder(server.mappath("./"))
para cada demonstração em fpo.subfolders
chame imagetodoc(demonstração,"")
próximo
definir fpo = nada
definir fso = nada
%>