< %
const lie = 3 'modifique el número de columnas
constante de tabla const = 33% 'Defina el ancho del formulario
Const tableHeight = 18% 'Defina la altura de la mesa
Const imgwidth = 15% 'Defina el ancho de la tabla
const imgHeight = 27.5% 'Defina la altura de la mesa
const fontsize = 12px;
const txtwidth = 120 'IMAGEN DE INVISO DE TABLA DE TEXTO RETO
const txtheight = 18% 'Tabla de texto correcta de imagen alta
const txtalign = izquierda 'Método de alineación del texto derecho: izquierda, en el centro, derecha a la derecha
'Top enfatiza que el archivo es un archivo de Word
Function doctor ()
Doctor = <html xmlns: v = urn: schemas-microsoft-com: vml xmlns: o = urn: schemas-microsoft-com: oficina: w = urn: schmas- microsoft-com: oficina: word xmlns = http: // www.w3.org/tr/rec- html40> <head> <title> Genere resultados </title> <meta http-oquiv = content-type content = text/html; > </meta> </ meta> </seta> <meta name = progid content = word.document> </ meta> <meta name = genator content = Microsoft Word 10> </seta> <meta name = creator content = Microsoft Word 10> <style type = text/css>@ página sección1 {margen: 30pt 8.5pt 5.65pt 12pt;} div.section1 {página: section1;} table {font-size: & fontsize &} </meta> << /cabeza>+chr (13)+chr (10)
función final
Función imgTotable (fto, fpar, dext)
ImgTotable = <table width = & tableWidth & Height = & tableHeight & border = 0>
ImgTotable = imgTotable+<tr valign = top> <td> <img src = & reemplazar (demo, fpar,) & width = & imgwidth & alight = & imageArryigh &/> </td>
ImgTotable = imgTotable+<td colspan = 2 align = Center>
ImgTotable = imgTotable+<table width = & txtWidtht & Height = & txtheight &> <td align = & txtalign &> & reemplazar (fto.name),. Td align = & txtalign &> actor </td> </tr> <lign = & txtalign &> lenguaje </td> </tr> <td align = & txtalign &> capacidad </td> </tr> << ter> <td align = & txtalign &> type </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 &/run results.doc, true)
FTO.WriteLine Doctop ()
FTO.WriteLine <Body TopMargin = 0 LeftMargin = 0> <Tabla Width = 64 Height = 100% Border = 1> <Div class = Section1>
Para cada demostración en fpath.files
dext = lcase (fso.getExtensionName (demo))
Si dext = jpg o deb = gif o dext = png entonces
if (i mod lie) = 0 entonces fto.writeline <tr>+chr (13)+chr (10)
I = i+1
FTO.WriteLine <TD>
'Utilizado para errores
'FTO.WriteLine 123
FTO.Writeline imgTotable (demo, FPAR, dext)
FTO.WriteLine </td>+chr (13)+chr (10)
if (i mod lie) = 0 entonces i = 0: fto.writeline </tr>+chr (13)+chr (10)
final si
próximo
fto.clar
Response.Write </div> </table> </body>
Respuesta. Se genera los resultados de FAO & FPATH &/RUN. <Br />
establecer fto = nada
función final
establecer fso = server.createObject (scripting.filesystemObject)
establecer fo = fso.getfolder (server.mappath (./))
Para cada demostración en fpo.subfolders
Llame a imageTodoc (demo,)
próximo
establecer FO = nada
Establecer FSO = nada
%>