<%
const lie=3 'Ubah jumlah kolom
const tablewidth="33%" 'Tentukan lebar tabel
const tableheight="18%" 'Tentukan tinggi tabel
const imgwidth="15%" 'Tentukan lebar tabel
const imgheight="27.5%" 'Tentukan tinggi meja
const fontize="12px;" 'Tentukan ukuran teks
const txtwidth="120" 'Lebar tabel teks di sisi kanan gambar
const txtheight="18%" 'Tinggi tabel teks di sisi kanan gambar
const txtalign="left" 'Perataan teks di sisi kanan gambar: kiri, tengah, kanan'TOP
menekankan bahwa file tersebut adalah file Word
fungsidoctop()
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 >Membuat hasil</title><meta http-equiv= Tipe Konten content=""text/html; charset=gb2312""></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{ halaman:Bagian1;}tabel{ukuran font:"&fontsize&"}</style></meta></head>"+chr(13)+chr(10)
fungsi akhir
fungsi imgtotable(fto,fpar,dext)
imgtotable="<lebar tabel="&lebar tabel&" height="&tinggi tabel&" border=0>"
imgtotable=imgtotable+"<tr valign=""top""><td><img src="""&replace(demo,fpar,"")&""" width="""&imgwidth&""" height="" "&tinggi&"""/></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&""">Aktor</td></tr><tr><td align="""&txtalign&""">Bahasa </td></tr><tr><td align="""&txtalign&""">Kapasitas</td></tr><tr><td align="""&txtalign&""">Jenis</ td></tr><tr><td td></tr></tabel>"
imgtotable=imgtotable+"</td></tr></table>"+chr(13)+chr(10)
fungsi akhir
fungsi imagetodoc(fpath,fpar)
set fto=fso.createtextfile(fpath&"/Jalankan hasil.doc",Benar)
fto.writelinedoctop()
fto.writeline "<body topmargin=0 leftmargin=0><table width=""64"" height=""100%"" border=1><div class=Section1>"
untuk setiap demo di fpath.files
dext=Lcase(fso.getExtensionName(demo))
jika dext='jpg' atau dext='gif' atau dext='png' maka
jika (saya mod berbohong)=0 maka fto.writeline " <tr>"+chr(13)+chr(10)
saya=saya+1
fto.writeline "<td>"
'untuk pemecahan masalah
'fto.writeline "123"
fto.writeline imgtotable(demo,fpar,dext)
fto.writeline "</td>"+chr(13)+chr(10)
jika (saya berbohong)=0 maka i=0:fto.writeline " </tr>"+chr(13)+chr(10)
berakhir jika
Berikutnya
fto.close
respon.tulis "</div></table></body>"
respon.write ""&fpo&fpath&"Jalankan result.doc"" Pembuatan selesai.<br />"
atur fto=tidak ada
set
fungsi akhir
fso=server.createobject("scripting.filesystemobject")
setel fpo=fso.getfolder(server.mappath("./"))
untuk setiap demo di fpo.subfolder
panggil imagetodoc(demo,"")
Berikutnya
atur fpo=tidak ada
atur fso=tidak ada
%>