< %
const lie = 3 'modifique o número de colunas
const mesa largura = 33% 'defina a largura da forma
Const tableHeight = 18% 'Defina a altura da tabela
Const imgwidth = 15% 'Defina a largura da tabela
const iMghEight = 27,5% 'Defina a altura da tabela
const fontsize = 12px; 'Defina o tamanho do texto
const txtWidth = 120 'de imagem da tabela de texto à direita Largura
const txtheight = 18% 'tabela de texto à direita de imagem alta
const txtalign = esquerda 'de texto de texto direito Método: esquerda, no centro, direita à direita
O topo enfatiza que o arquivo é um arquivo do Word
Função doctop ()
DOCTOP = <html xmlns: v = urn: esquemas-microsoft-com: vml xmlns: o = urn: schemas-microsoft-com: office: w = urn: schmas- microsoft-com: escritório: word xmlns = http: // www.w3.org/tr/rec- html40> <head> <title> gerar resultados </ititure> <meta http-equiv = content-type content = text/html; > </meta> </mopa> </meta> <meta name = progid content = word.document> </meta> <meta name = conteúdo do genador = microsoft word 10> </meta> <meta name = Originator Content = Microsoft Word 10> <Style Type = Text/CSS>@ Página Seção1 {margem: 30pt 8.5pt 5.65pt 12pt;} div.Section1 {Page: Seção1;} Tabela {font-size: & fontsize &} </meta> < /Head>+Chr (13)+Chr (10)
Função final
Função imgtotable (fto, fpar, dext)
Imgtotable = <tabela width = & TableWidth & Height = & TableHeight & Border = 0>
Imgtotable = imgtotable+<tr valign = top> <td> <img src = & reply (demo, fpar) e largura = & imgwidth & altura = & imageighryigh &/> </td>
Imgtotable = imgtotable+<td colspan = 2 align = Center>
Imgtotable = imgtotable+<tabela width = & txtWidtht & Height = & txtheight &> <td align = & txtalign &> & reply (fto.name),. Td align = & txtalign &> ator </td> </tr> <lign = & txtalign &> idioma </td> </tr> <td align = & txtalign &> capacidade </td> </tr> < ter> <td align = & txtalign &> type </td> </tr> </table>
imgtotable = imgtotable+</td> </tr> </tabela>+chr (13)+chr (10)
Função final
Função imageTodoc (fpath, fpar)
Definir fto = fso.createTextFile (FPath &/Run Results.doc, true)
fto.WriteLine Doctop ()
fto.WriteLine <Body topmargin = 0 leftMargin = 0> <width = 64 altura = 100% borda = 1> <div class = seção1>
Para cada demonstração em fpath.files
dext = lcase (fso.geTextensionName (demonstração))
se dext = jpg ou deb = gif ou dext = png então
se (eu me mode) = 0 então fto.writeLine <tr>+chr (13)+chr (10)
I = i+1
fto.WriteLine <Td>
'Usado para erros
'Fto.WriteLine 123
Fto.WriteLine imgtotable (Demo, FPAR, Dext)
fto.WriteLine </td>+chr (13)+chr (10)
se (eu me mentir) = 0 então i = 0: fto.writeLine </tr>+chr (13)+chr (10)
final se
próximo
fto.close
Response.write </div> </ table> </body>
Response.Write & FAO & FPath &/Run Results. <br />
Definir Fto = nada
Função final
set fso = server.createObject (script.filesystemoBject)
Definir fo = fso.getFolder (server.mappath (./)
Para cada demonstração em fpo.subfolders
Chame Imagetodoc (demonstração)
próximo
definir fo = nada
Definir FSO = nada
%>