< %
const lie = 3 'Ändern Sie die Anzahl der Spalten
const tablewidth = 33% 'Definieren Sie die Breite der Form
Const tableheight = 18% 'Definieren Sie die Höhe der Tabelle
Const imgwidth = 15% 'Definieren Sie die Breite der Tabelle
const imgheight = 27,5% 'Definieren Sie die Höhe der Tabelle
const fontsize = 12px;
const txtwidth = 120 'Bild rechts Texttabelle Breite
const txtheight = 18% 'Bild rechts Texttabelle hoch
const txtalign = links 'Bild Rechte Textausrichtung Methode: links, in der Mitte, rechts rechts
'Top betont, dass die Datei eine Wortdatei ist
Funktion doctOp ()
DoctOp = <html xmlns: v = urn: schemas-microsoft-com: vml xmlns: o = urn: schemas-microsoft-com: Büro: w = urn: schmas- microsoft-com: word xmlns = http: // www.w3.org/tr/rec- html40> <kopf> <titels> Ergebnisse generieren </title> <meta http-equiv = content-type content = text/html; > </meta> </meta> </meta> <meta name = progid content = word.document> </meta> <meta name = genator content = microsoft word 10> </meta> <meta name = originator content = Microsoft Word 10> <Style Type = Text/CSS>@ Page Abschnitt1 {Margin: 30pt 8.5PT 5.65PT 12PT;} Div.Section1 {Seite: Abschnitt 1;} Tabelle {Schriftgröße: & fontsize &} </meta> < /Kopf>+chr (13)+chr (10)
Endfunktion
Funktion imgtosen (FTO, FPAR, Dext)
Imgtable = <table width = & tablewidth & height = & tableHeight & border = 0>
Imgtable = imgtable+<tr Valign = top> <td> <img src = & ersetzen (Demo, FPAR,) & width = & imgwidth & height = & imageigryigh &/> </td>
Imgtable = imgtable+<td colspan = 2 align = center>
Imgtable = imgtable+<table width = & txtwidtht & height = & txtheight &> <td align = & txtalign & ersetzen (fto.name), & Dext,) & </td> </tr> <tr> < Td align = & txtalign &> Schauspieler </td> </tr> <lign = & txtalign &> Sprache </td> </tr> <td align = & txtalign &> Kapazität </td> </tr> < ter> <td align = & txtalign &> Typ </td> </tr> </table>
imgtable = imgtable+</td> </tr> </table>+chr (13)+chr (10)
Endfunktion
Funktion imagetodoc (fpath, fpar)
Setzen Sie FTO = FSO.CreateTextFile (FPath &/Run Results.doc, True)
FTO.WriteLine Doctop ()
FTO.WriteLine <Body Topmargin = 0 linksmargin = 0> <Tabellenbreite = 64 Höhe = 100% Rand = 1> <Div -Klasse = Abschnitt1>
Für jede Demo in fpath.files
Dext = Lase (fso.getEXTensionName (Demo)))
Wenn dext = jpg oder deb = gif oder dext = png dann dann
if (i mod lüge) = 0 dann fto.writeLine <tr>+chr (13)+chr (10)
I = i+1
fto.writeLine <td>
'Verwendet für Fehler
'FTO.WriteLine 123
FTO.WriteLine IMGTotable (Demo, FPAR, Dext)
fto.writeLine </td>+chr (13)+chr (10)
if (i mod lüge) = 0 dann i = 0: fto.writeLine </tr>+chr (13)+chr (10)
Ende wenn
nächste
fto.close
Antwort.Write </div> </table> </body>
Antwort.Write & FAO & FPath &/Run -Ergebnisse. <br />
FTO = nichts setzen
Endfunktion
Setzen Sie fso = server.createObject (scripting.FilesystemObject)
Setzen Sie fo = fso.getFolder (server.mappath (./))
Für jede Demo in FPO.SubFolders
Rufen Sie Imagetodoc (Demo,) an
nächste
Setzen Sie für nichts
fso = nichts setzen
%>