<%
const Lie = 3 'Modifier le nombre de colonnes
const Tablewidth = 33% 'définir la largeur de la forme
Const TableHeight = 18% 'définir la hauteur de la table
Const imgwidth = 15% 'définir la largeur du tableau
const Imgheight = 27,5% 'définir la hauteur du tableau
const FontSize = 12px; 'Définir la taille du texte
const txtWidth = 120 'image droite du tableau de texte Largeur de la table
const txTheight = 18% 'Tableau de texte droit d'image élevé
const txtalign = gauche «Picture du texte droit Méthode d'alignement du texte: gauche, au centre, à droite à droite
'Le haut souligne que le fichier est un fichier Word
Fonction doctop ()
Doctop = <html xmlns: v = urn: schémas-microsoft-com: vml xmlns: o = urn: schémas-microsoft-com: Office: w = urn: schmas- microsoft-com: bureau: word xmlns = http: // www.w3.org/tr/rec- html40> <éadfr> <tapie> Générer les résultats </ title> <meta http-equiv = teneurs-type contenu = text / html; > </ meta> </ meta> </ méta> <meta name = progId Content = word.Document> </eta> <meta name = Genator Content = Microsoft Word 10> </eta> <Meta Name = Originator Content = Microsoft Word 10> <Style Type = Text / CSS> @ Page Section1 {margin: 30pt 8.5pt 5.65pt 12pt;} div.section1 {page: section1;} TABLE {Font-Size: & Fontize &} </ Meta> < / tête> + chr (13) + chr (10)
fonction finale
Fonction imgtotable (fto, fpar, dext)
IMGTOTable = <Table Width = & TablewWidth & Height = & TableHeight & Border = 0>
IMGTOTABLE = IMGTOTABLE + <tr Valign = TOP> <TD> <img src = & remplacer (démo, fpar,) & width = & imgwidth & height = & Imageighryigh & /> </td>
ImgTotable = imgTotable + <td ColSpan = 2 align = Center>
IMGTOTABLE = IMGTOTABLE + <TABLE WIDTH = & TXTWIDTHT & HEET = & TXTHEIGHT &> <TD Align = & Txtalign &> & Remplace Td align = & txtalign &> acteur </td> </tr> <lign = & txtalign &> linguistique </td> </tr> <td align = & txtalign &> Capacité </td> </tr> < ter> <td align = & txtalign &> type </td> </tr> </ table>
imgTotable = ImgTotable + </td> </tr> </ table> + chr (13) + chr (10)
fonction finale
Function Imagetodoc (FPATH, FPAR)
set fto = fso.createtextfile (fpath & / run result.doc, true)
fto.writeline doctop ()
fto.WriteLine <Body topmargin = 0 Leftmargin = 0> <Table Width = 64 Height = 100% border = 1> <div class = section1>
Pour chaque démo dans FPATH.Files
dext = lCase (fso.getExtensionName (démo))
Si Dext = JPG ou DEB = GIF ou Dext = Png alors
if (i mod mente) = 0 alors fto.writeline <tr> + chr (13) + chr (10)
I = i + 1
fto.writeline <td>
'Utilisé pour les erreurs
'fto.writeline 123
Fto.WriteLine ImgTotable (démo, fpar, dext)
fto.writeline </td> + chr (13) + chr (10)
if (i mod menson
terminer si
suivant
fto.
réponse.write </div> </s table> </body>
Response.Write & FAO & FPATH & / Run Results est généré. <br />
définir fto = rien
fonction finale
set fso = server.createObject (scripting.fileSystemObject)
set fo = fso.getfolder (server.mappath (./))
Pour chaque démo dans FPO.Sublolders
Appelez Imagetodoc (démo,)
suivant
Set fo = rien
Définir FSO = rien
%>