<％
const lie = 3 '列数を変更します
const tablewidth = 33％ 'フォームの幅を定義します
const tableheight = 18％ 'テーブルの高さを定義します
const imgwidth = 15％ 'テーブルの幅を定義します
const imgheight = 27.5％ 'テーブルの高さを定義します
const fontsize = 12px;
const txtwidth = 120 '右のテキストテーブル幅
const txtheight = 18％ '右のテキストテーブル高
const txtalign =左 '画像右のテキストアライメント方法：左、中央、右右
'Topは、ファイルが単語ファイルであることを強調しています
関数doctop（）
doctop = <html xmlns：v = urn：schemas-microsoft-com：vml xmlns：o = urn：schemas-microsoft-com：office：w = urn：schmas- microsoft-com：office：word xmlns = http：////////// www.w3.org/tr/rec- html40> <head> <title>結果</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 section1 {margin：30pt 8.5pt 12pt;} div.section1 {page：section1;} table {font-size：＆fontsize＆} </meta> < /head>+chr（13）+chr（10）
エンド関数
関数imgtotable（fto、fpar、dext）
imgtotable = <table width =＆tablewidth＆height =＆tableheight＆border = 0>
imgtotable = imgtotable+<tr valign = top> <td> <img src =＆falple（demo、fpar、）＆width =＆imgwidth＆height =＆imageighryigh＆/> </td>>> </td>
imgtotable = imgtotable+<td colspan = 2 align = center>
imgtotable = imgtotable+<table width =＆txtwidtht＆height =＆> <td align =＆txtalign＆>＆and＆＆＆</td> </tr> <tr> < td align =＆txtalign＆> actor </td> </tr> <lign =＆> language </td> </tr> <td align =＆txtalign＆> capiought </td> </tr> < ter> <td align =＆txtalign＆> type </td> </tr> </table>
imgtotable = imgtotable+</td> </tr> </table>+chr（13）+chr（10）
エンド関数
関数ImageTodoc（fpath、fpar）
fto = fso.createTextfile（fpath＆/run results.doc、true）を設定
fto.writeline doctop（）
fto.writeline <body topmargin = 0 leftmargin = 0> <table width = 64 height = 100％border = 1> <div class = section1>
fpath.filesの各デモ
dext = lcase（fso.getextensionname（demo））
dext = jpgまたはdeb = gifまたはdext = pngの場合、
if（i mod lie）= 0 then fto.writeline <tr>+chr（13）+chr（10）
i = i+1
fto.writeLine <TD>
'エラーに使用されます
'fto.writeline 123
fto.writeline imgtotable（demo、fpar、dext）
fto.writeline </td>+chr（13）+chr（10）
if（i mod lie）= 0 then i = 0：fto.writeline </tr>+chr（13）+chr（10）
ifを終了します
次
fto.close
Response.Write </div> </table> </body>
Response.write＆fao＆fpath＆/run docが生成されます。 <br />
fto = Nothingを設定します
エンド関数
fso = server.createObject（scripting.filesystemObject）を設定します
fo = fso.getfolder（server.mappath（./））を設定します
fpo.subfoldersの各デモ
ImageTodoc（demo、）を呼び出す
次
fo = Nothingを設定します
FSO =何も設定しません
％>