< %
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는 파일이 Word 파일이라고 강조합니다
함수 doctop ()
doctop = <html xmlns : v = urn : skemas-microsoft-com : vml xmlns : o = urn : schemas-microsoft-com : w = urn : schmas- microsoft-com : word xmlns = http : // www.w3.org/rec- html40> <head> <title> 결과 생성 </title> <meta http-equiv = content-type content = text/html; > </meta> </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 {마진 : 30pt 8.5pt 5.65pt 12pt;} div.section1 {page : section1;} table {font-size : & fontsize &} </meta> < /head>+chr (13)+chr (10)
엔드 기능
함수 imgtotable (fto, fpar, dext)
imgtotable = <테이블 width = & tablewidth & height = & tableHeight & Border = 0>
imgtotable = imgtotable+<tr valign = top> <td> <img src = & choplary (demo, fpar,) & width = & imgwidth & height = & imageighryigh &/</td>
imgtotable = imgtotable+<td colspan = 2 align = center>
imgtotable = imgtotable+<테이블 width = & txtwidtht & height = & txtheight &> <td align = & txtalign &> & rown (fto.name) & </td> </tr> <tr> < td align = & txtalign &> actor </td> </tr> <lign = & txtalign &> 언어 </td> </tr> <td elign = & txtalign &> 용량 </td> </tr> < ter> <td align = & txtalign &> type </td> </tr> </table>
imgtotable = imgtotable+</td> </tr> </table>+chr (13)+chr (10)
엔드 기능
기능 imagetodoc (fpath, fpar)
set fto = fso.creatextfile (fpath &/run results.doc, true)
fto.writeline doctop ()
fto.writeline <Body TopMargin = 0 LeftMargin = 0> <테이블 width = 64 높이 = 100% 테두리 = 1> <div class = section1>
fpath.files의 각 데모에 대해
dext = lcase (fso.getextensionName (데모))
dext = jpg 또는 deb = gif 또는 dext = png입니다.
if (i mod lie) = 0 그런 다음 fto.writeline <tr>+chr (13)+chr (10)
i = i+1
fto.writeline <td>
'오류에 사용됩니다
'fto. Writeline 123
fto.writeline imgtotable (데모, fpar, dext)
fto.writeline </td>+chr (13)+chr (10)
if (i mod lie) = 0 그런 다음 i = 0 : fto.writeline </tr>+chr (13)+chr (10)
끝 If
다음
fto.close
응답 </div> </table> </body>
Response.Write & FAO 및 FPATH 및/실행 결과가 생성됩니다. <br />
fto = 아무것도 설정하지 않습니다
엔드 기능
set fso = server.createobject (scripting.filesystemobject)
set fo = fso.getfolder (Server.mappath (./))
fpo.subfolders의 각 데모에 대해
전화 imagetodoc (데모)
다음
fo = 아무것도 설정하지 않습니다
FSO = 아무것도 설정하지 않습니다
%>