<%
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" 'محاذاة النص على الجانب الأيمن من الصورة: اليسار، الوسط، اليمين'يؤكد الجزء
العلوي على أن الملف هو ملف 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= محتوى نوع المحتوى = ""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{ page:Section1;}table{font-size:"&fontsize&"}</style></meta></head>"+chr(13)+chr(10)
النهاية
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><tr><td align="""&txtalign&""">النوع</ تد></tr><tr><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><عرض الجدول = ""64"" الارتفاع = ""100%"" border=1><div class=Section1>"
لكل عرض توضيحي في fpath.files
dext=Lcase(fso.getExtensionName(demo))
إذا كان dext = "jpg" أو dext = "gif" أو dext = "png" إذن
إذا (i mod lie)=0 ثم fto.writeline " <tr>"+chr(13)+chr(10)
ط=ط+1
fto.writeline "<td>"
" لاستكشاف الأخطاء وإصلاحها
'fto.كتابة السطر "123"
fto.writeline imgtotable(demo,fpar,dext)
fto.writeline "</td>"+chr(13)+chr(10)
إذا (أنا تعديل الكذب)=0 ثم i=0:fto.writeline " </tr>"+chr(13)+chr(10)
نهاية إذا
التالي
fto.إغلاق
استجابة.كتابة "</div></table></body>"
Response.write ""&fpo&fpath&"Run result.doc"" اكتمل الإنشاء.<br />"
تعيين fto=لا شيء
مجموعة
وظائف النهاية
fso=server.createobject("scripting.filesystemobject")
تعيين fpo=fso.getfolder(server.mappath("./"))
لكل عرض توضيحي في المجلدات الفرعية fpo
استدعاء imagetodoc(عرض توضيحي"")
التالي
تعيين fpo=لا شيء
تعيين fso=لا شيء
%>