<%
const lie=3 'Modifica el número de columnas
const tablewidth="33%" 'Define el ancho de la tabla
const tableheight="18%" 'Define la altura de la tabla
const imgwidth="15%" 'Define el ancho de la tabla
const imgheight="27.5%" 'Define la altura de la mesa
const fontsize="12px;" 'Definir el tamaño del texto
const txtwidth="120" 'El ancho de la tabla de texto en el lado derecho de la imagen
const txtheight="18%" 'La altura de la tabla de texto en el lado derecho de la imagen
const txtalign="left" 'Alineación del texto en el lado derecho de la imagen: izquierda, centro, derecha'TOP
enfatiza que el archivo es un archivo de Word
funcióndoctop()
doctop="<html xmlns:v=""urna:schemas-microsoft-com:vml"" xmlns:o=""urna:schemas-microsoft-com:office:office"" xmlns:w=""urna:esquemas -microsoft-com:office:word"" xmlns="" http://www.w3.org/TR/REC-html40""><head><title >Generar resultados</title><meta http-equiv= Tipo de contenido content=""text/html; charset=gb2312""></meta><meta name=ProgId content=Word.Document></meta><meta name=Generador content=""Microsoft Word 10"" ></meta><meta name=Originator content=""Microsoft Word 10""><style type=""text/css"">@página Sección1{margen:30pt 8,5pt 5,65pt 12pt;}div.Section1{ página:Section1;}tabla{font-size:"&fontsize&"}</style></meta></head>"+chr(13)+chr(10)
función final
función imgtotable(fto,fpar,dext)
imgtotable="<ancho de tabla="&ancho de tabla&" altura="&altura de tabla&" borde=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&""">Actor</td></tr><tr><td align="""&txtalign&""">Idioma </td></tr><tr><td align="""&txtalign&""">Capacidad</td></tr><tr><td align="""&txtalign&""">Tipo</ td></tr><tr><td td></tr></table>"
imgtotable=imgtotable+"</td></tr></table>"+chr(13)+chr(10)
función final
función imagetodoc(fpath,fpar)
establecer fto=fso.createtextfile(fpath&"/Ejecutar resultado.doc",True)
fto.writelinedoctop()
fto.writeline "<body topmargin=0 leftmargin=0><table width=""64"" height=""100%"" border=1><div class=Section1>"
para cada demostración en fpath.files
dext=Lcase(fso.getExtensionName(demostración))
si dext="jpg" o dext="gif" o dext="png" entonces
si (i mod lie)=0 entonces fto.writeline " <tr>"+chr(13)+chr(10)
yo=yo+1
fto.writeline "<td>"
'para solucionar problemas
'fto.writeline "123"
fto.writeline imgtotable(demo,fpar,dext)
fto.writeline "</td>"+chr(13)+chr(10)
si (i mod lie)=0 entonces i=0:fto.writeline " </tr>"+chr(13)+chr(10)
terminar si
próximo
fto.cerrar
respuesta.escribir "</div></table></body>"
Response.write ""&fpo&fpath&"Run result.doc"" Generación completada.<br />"
establecer fto = nada
conjunto
de funciones finales
fso=server.createobject("scripting.filesystemobject")
establecer fpo=fso.getfolder(server.mappath("./"))
para cada demostración en fpo.subcarpetas
llamar a imagetodoc(demostración,"")
próximo
establecer fpo = nada
establecer fso = nada
%>