طريقة الإنشاء الثابت للصفحة الرئيسية لموقع الويب الديناميكي

الطريقة الأولى

<%

'الوظائف شائعة الاستخدام
'1. أدخل عنوان URL لصفحة الويب المستهدفة، وتكون قيمة الإرجاع getHTTPage هي رمز html لصفحة الويب المستهدفة.
وظيفة getHTTPage(url)
dimHttp
تعيين Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET"، URL، خطأ
المتشعب.إرسال ()
إذا Http.readystate<>4 ثم
وظيفة الخروج
نهاية إذا
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
تعيين http=لا شيء
إذا كان err.number<>0 ثم err.Clear
وظيفة النهاية

'2. تحويل Ranma. استخدم xmlhttp مباشرة للاتصال بصفحات الويب ذات الأحرف الصينية. ما ستحصل عليه هو Ranma. يمكنك تحويله من خلال مكون adodb.stream.
الدالة BytesToBstr(body,Cset)
objstream خافت
تعيين objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.اكتب النص
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
تعيين objstream = لا شيء
وظيفة النهاية

txtURL=server.MapPath(".../index.asp")

sText = getHTTPPage(txtURL)

Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
اسم الملف = "../index.htm"
قم بتعيين openFile=FileObject.OpenTextfile(server.mapPath(filename),2,true) 'true يعني أنه غير موجود وسيتم إنشاؤه بنفسه
openFile.writeline(sText)
اضبط OpenFile=لا شيء

%>
<النص البرمجي>
تنبيه ("اكتمل إنشاء صفحة الويب الثابتة")؛
History.back();
</script>

الطريقة الثانية:

Resourcefile=server.MapPath("../index.asp")
targetfile=server.MapPath("../index.htm")
تعيين html = Server.CreateObject("CDO.Message")
html.CreateMHTMLBody Resourcesfile،31
Indexcode=html.HTMLBody
تعيين أتش تي أم أل = لا شيء
إذا instr(indexcode,"</BODY></HTML>")<=0 إذن
Response.Write("فشل إنشاء الصفحة الرئيسية")
استجابة. النهاية ()
آخر
تعيين oFileSys = Server.CreateObject("Scripting.FileSystemObject")
تعيين outfile=oFileSys.CreateTextFile(targetfile)
outfile.WriteLine رمز الفهرس
outfile. Close
تعيين الملف الخارجي = لا شيء
تعيين oFileSys=لا شيء
Response.Write("تم إنشاء الصفحة الرئيسية!")
نهاية إذا