<٪
كذب = 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 = طريقة محاذاة النص الأيمن: اليسار ، في الوسط ، اليمين اليمين
يركز الأعلى على أن الملف هو ملف كلمة
وظيفة الدكتوراه ()
doctop = <html xmlns: v = urn: schemas-microsoft-com: vml xmlns: o = urn: schemas-microsoft-com: Office: w = urn: schmas- microsoft-com: Office: word xmlns = http: // www.w3.org/tr/rec- html40> <head> <title> إنشاء نتائج </title> <meta http-equiv = content-type content = text/html ؛ > </meta> </teaa> </teaa> <meta name = progid content = word.document> </teaa> <meta name = genator content = microsoft word 10> </teaa> <meta name = conferator = Microsoft Word 10> <style type = text/css>@ page section1 {margin: 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 = <عرض الجدول = & tablewidth & height = & tableheight & border = 0>
imgtotable = imgtotable+<tr valign = top> <td> <img src = & replace (demo ، fpar ،) & width = & imgwidth & height = & imageighryigh &/> </td>
imgtotable = imgtotable+<td colspan = 2 align = center>
imgtotable = imgtotable+<width table = & txtwidtht & height = & txtheight &> <td align = & txtalign &> & replace (fto.name) ، td align = & txtalign &> ممثل </td> </tr> <lign = & txtalign &> اللغة </td> </td> <td align = & txtalign &> capital </td> </tr> < ter> <td align = & txtalign &> type </td> </tr> </lood>
imgtotable = imgtotable+</td> </tr> </table>+chr (13)+chr (10)
وظيفة نهاية
وظيفة ImageTodoc (FPATH ، FPAR)
set fto = fso.createTextFile (FPATH &/Run Results.doc ، True)
fto.writeline doctop ()
fto.writeline <body topmargin = 0 leftMargin = 0> <عرض الجدول = 64 ارتفاع = 100 ٪ الحدود = 1> <div class = section1>
لكل عرض تجريبي في fath.files
dext = lace (fso.getextensionName (Demo))
إذا كان dext = jpg أو deb = gif أو dext = png ثم
إذا (أنا mod lie) = 0 ثم fto.writeline <tr>+chr (13)+chr (10)
i = i+1
fto.writeline <td>
"تستخدم للأخطاء
'fto.writeline 123
fto.writeline imgtotable (Demo ، FPAR ، Dext)
fto.writeline </td>+chr (13)+chr (10)
إذا (أنا mod lie) = 0 ثم i = 0: fto.writeline </r>+chr (13)+chr (10)
إنهاء إذا
التالي
fto.close
استجابة. write </div> </table> </body>
استجابة. <br />
تعيين fto = لا شيء
وظيفة نهاية
set fso = server.createObject (scripting.filesystemObject)
set fo = fso.getfolder (server.mappath (./))
لكل عرض تجريبي في fpo.subfolders
استدعاء ImageTodoc (Demo ،)
التالي
تعيين fo = لا شيء
تعيين fso = لا شيء
٪>