على الرغم من أن Wulin.com www.vevb.com قد أصدر رموزًا ذات صلة من قبل، إلا أن بعض مواقع الويب الخاصة ليست مثالية. لقد ساعدت أحد العملاء مؤخرًا على تعديل النظام ووجدت هذا الرمز جيدًا، لذلك استخرجته للجميع راحة. انسخ رمز الكود كما يلي:
<%
مجلد الويب=/
host=index_cn.asp'العنوان الديناميكي لمكتب الاستقبال
مجلد=/'مجلد
filename=index_cn.html'إنشاء اسم ملف ثابت
مضيف Fso_info، المجلد، اسم الملف
يقوم Response.write بإنشاء HTML ثابت للصفحة الرئيسية الصينية لموقع الويب.<br />
"إنشاء HTML."
الدالة Fso_info (المضيف، المجلد، اسم الملف)
host=http://+Request.ServerVariables(HTTP_HOST)&webfolder&host
إذا SaveFile(&folder&filename&,&host&) ثم
تم إنشاء الاستجابة &المجلد&اسم الملف& <br /> بنجاح
آخر
فشل Response.write &folder&filename& في إنشاء <font color='#FF0000'></font>. ربما يحتوي اسم الملف على أحرف خاصة.<br />
نهاية إذا
وظيفة النهاية
'إنشاء ملف
وظيفة SaveFile(LocalFileName,RemoteFileUrl)
الإعلانات الخافتة، الاسترجاع، GetRemoteData
على خطأ استئناف التالي
Set Retrieval = Server.CreateObject(Microso & ft.XM & LHTTP) '// قم بتقسيم الكلمات لمنع القتل العرضي بواسطة برامج مكافحة الفيروسات
مع الاسترجاع
.فتح الحصول على، RemoteFileUrl، خطأ،،،
.يرسل
GetRemoteData = .ResponseBody
نهاية مع
تعيين الاسترجاع = لا شيء
Set Ads = Server.CreateObject(Ado & db.Str & eam) '// قم بتقسيم الكلمات لمنع القتل العرضي بواسطة برامج مكافحة الفيروسات
مع الإعلانات
.النوع = 1
.يفتح
.اكتب GetRemoteData
.SaveToFile Server.MapPath(LocalFileName)، 2
.يلغي()
.يغلق()
نهاية مع
تعيين الإعلانات = لا شيء
إذا أخطأ <> 0 ثم
حفظ الملف = خطأ
خطأ. واضح
آخر
SaveFile = صحيح
نهاية إذا
وظيفة النهاية
%>