على الرغم من أن Script House قد أصدر أكوادًا ذات صلة من قبل، إلا أن بعض مواقع الويب الخاصة لم تكن مثالية مؤخرًا، وقد ساعدت العملاء على تعديل النظام ووجدت أن هذا الكود جيد جدًا، لذلك استخرجته من أجل راحة الجميع.
انسخ رمز الكود كما يلي:
<%
مجلد الويب = "/"
host="index_cn.asp"'العنوان الديناميكي لمكتب الاستقبال
مجلد = "/"'مجلد
filename="index_cn.html"'إنشاء اسم ملف ثابت
مضيف Fso_info، المجلد، اسم الملف
Response.write "أكمل إنشاء HTML ثابت للصفحة الرئيسية الصينية لموقع الويب.<br />"
"إنشاء HTML."
الدالة Fso_info (المضيف، المجلد، اسم الملف)
المضيف = "http://"+Request.ServerVariables("HTTP_HOST")&webfolder&host
إذا SaveFile (""&folder&filename&""،"&host&"") ثم
Response.تم إنشاء ""&folder&filename&" بنجاح. <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 = صحيح
نهاية إذا
وظيفة النهاية
%>