<%
const lie=3 '열 개수 수정
const tablewidth="33%" '테이블 너비 정의
const tableheight="18%" '테이블 높이 정의
const imgwidth="15%" '테이블 너비 정의
const imgheight="27.5%" '테이블의 높이를 정의합니다
constfontsize="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; 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 섹션1{margin:30pt 8.5pt 5.65pt 12pt;}div.Section1{ 페이지:섹션1;}테이블{글꼴 크기:"&fontsize&"}</style></meta></head>"+chr(13)+chr(10)
끝 함수
function imgtotable(fto,fpar,dext)
imgtotable="<table width="&tablewidth&" height="&tableheight&" border=0>"
imgtotable=imgtotable+"<tr valign=""top""><td><img src="""&replace(demo,fpar,"")&""" width="""&imgwidth&""" height="" "&imgheight&"""/></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&""">배우</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)
fto=fso.createtextfile(fpath&"/Run result.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(데모))
dext="jpg" 또는 dext="gif" 또는 dext="png"인 경우
if (i mod lie)=0이면 fto.writeline " <tr>"+chr(13)+chr(10)
나=나+1
fto.writeline "<td>"
'문제 해결을 위해
'fto.writeline "123"
fto.writeline imgtotable(데모,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=아무것도 설정하지 않음
최종 함수
세트 fso=server.createobject("scripting.filesystemobject")
fpo=fso.getfolder(server.mappath("./")) 설정
fpo.subfolders의 각 데모에 대해
imagetodoc(데모,"")를 호출합니다.
다음
fpo=아무것도 설정하지 않음
fso=아무것도 설정하지 않음
%>