<%
constlie=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="<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{поле: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="<ширина таблицы="&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 &" "> type </ td></tr><tr><td td></tr></table>"
imgtotable=imgtotable+"</td></tr></table>"+chr(13)+chr(10)
конечная функция
функция imagetodoc(fpath,fpar)
set 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", то
если (я мод лгу)=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)
если (i modlie)=0, то 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")
set fpo=fso.getfolder(server.mappath("./"))
для каждой демонстрации в подпапках fpo.sub
вызовите imagetodoc(demo,"")
следующий
установить fpo=ничего
установить fso=ничего
%>