<%
const lie=3 'Modifier le nombre de colonnes
const tablewidth="33%" 'Définir la largeur du tableau
const tableheight="18%" 'Définir la hauteur du tableau
const imgwidth="15%" 'Définir la largeur du tableau
const imgeight="27.5%" 'Définir la hauteur du tableau
const fontsize="12px;" 'Définir la taille du texte
const txtwidth="120" 'La largeur du tableau de texte sur le côté droit de l'image
const txtheight="18%" 'La hauteur du tableau de texte sur le côté droit de l'image
const txtalign="left" 'Alignement du texte sur le côté droit de l'image : gauche, centre, droite'TOP
souligne que le fichier est un fichier Word
fonctiondoctop()
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 >Générer des résultats</title><meta http-equiv= Content-Type content=""text/html; charset=gb2312""></meta><meta name=ProgId content=Word.Document></meta><meta name=Générateur content=""Microsoft Word 10"" ></meta><meta name=Originator content=""Microsoft Word 10""><style type=""text/css"">@page Section1{margin:30pt 8.5pt 5.65pt 12pt;}div.Section1{ page:Section1;}tableau{font-size:"&fontsize&"}</style></meta></head>"+chr(13)+chr(10)
fonction de fin
fonction 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="" "&hauteur&"""/></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&""">Acteur</td></tr><tr><td align="""&txtalign&""">Langue </td></tr><tr><td align="""&txtalign&""">Capacité</td></tr><tr><td align="""&txtalign&""">Type</ td></tr><tr><td td></tr></table>"
imgtotable=imgtotable+"</td></tr></table>"+chr(13)+chr(10)
fonction de fin
fonction imagetodoc(fpath,fpar)
set 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>"
pour chaque démo dans fpath.files
dext=Lcase(fso.getExtensionName(démo))
si dext="jpg" ou dext="gif" ou dext="png" alors
si (je mod lie)=0 alors fto.writeline " <tr>"+chr(13)+chr(10)
je=je+1
fto.writeline "<td>"
'pour le dépannage
'fto.writeline "123"
fto.writeline imgtotable (démo, fpar, dext)
fto.writeline "</td>"+chr(13)+chr(10)
si (je mod lie)=0 alors i=0:fto.writeline " </tr>"+chr(13)+chr(10)
finir si
suivant
fto.fermer
réponse.write "</div></table></body>"
réponse.write ""&fpo&fpath&"Run result.doc"" Génération terminée.<br />"
définir fto = rien
fin
du jeu de fonctions fso=server.createobject("scripting.filesystemobject")
set fpo=fso.getfolder(server.mappath("./"))
pour chaque démo dans fpo.subfolders
appeler imagetodoc(démo,"")
suivant
définir fpo = rien
définir fso = rien
%>