<%
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="left" '画像の右側のテキストの配置: 左、中央、右'TOP は
ファイルが Word ファイルであることを強調します
関数doctop()
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 >結果の生成</title><meta http-equiv= Content-Type content=""text/html""></meta><meta name=ProgId content=Word.Document></meta><meta name=Generator 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;}table{font-size:"&fontsize&"}</style></meta></head>"+chr(13)+chr(10)
終了関数
function imgtotable(fto,fpar,dext)
imgtotable="<テーブル幅="&テーブル幅&" 高さ="&テーブル高さ&" border=0>"
imgtotable=imgtotable+"<tr valign=""top""><td><img src="""&replace(demo,fpar,"")&""" width="""&imgwidth&""" height="" "&imgheight&"""/></td>"
imgtotable=imgtotable+"<tdcolspan=""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&""">アクター</td></tr><tr><td align="""&txtalign&""">言語</td></tr><tr><td align="""&txtalign&""">容量</td></tr><tr><td align="""&txtalign&""">タイプ</td></tr> td></tr><tr><td td></tr></table>"
imgtotable=imgtotable+"</td></tr></table>"+chr(13)+chr(10)
終了関数
関数 imagetodoc(fpath,fpar)
set fto=fso.createtextfile(fpath&"/実行結果.doc",True)
fto.writelinedoctop()
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" または dext="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)
終了する場合
次
fto.close
response.write "</div></table></body>"
response.write ""&fpo&fpath&"Run result.doc"" 生成が完了しました。<br />"
fto=何も設定しない
end function
set fso=server.createobject("scripting.filesystemobject")
set fpo=fso.getfolder(server.mappath("./"))
fpo.subfolders 内の各デモについて
imagetodoc(デモ,"") を呼び出す
次
fpo=何も設定しない
fso=何も設定しない
%>