วิธีการสร้างคงที่ของหน้าแรกของเว็บไซต์ไดนามิก

วิธีที่ 1

<%

'ฟังก์ชันที่ใช้กันทั่วไป
'1. ป้อนที่อยู่หน้าเว็บเป้าหมาย url และค่าที่ส่งคืน getHTTPPage คือโค้ด html ของหน้าเว็บเป้าหมาย
ฟังก์ชั่น getHTTPage(url)
สลัวHttp
ตั้งค่า Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.ส่ง()
ถ้า Http.readystate<>4 แล้ว
ฟังก์ชั่นทางออก
สิ้นสุดถ้า
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
ตั้งค่า http=nothing
ถ้า err.number<>0 แล้ว err.Clear
ฟังก์ชั่นสิ้นสุด

'2 แปลง Ranma ใช้ xmlhttp โดยตรงเพื่อเรียกหน้าเว็บด้วยตัวอักษรจีน
ฟังก์ชั่น BytesToBstr (เนื้อหา, Cset)
objstream สลัว
ตั้ง objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.เปิด
objstream เขียนเนื้อหา
objstream ตำแหน่ง = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.ปิด
ตั้งค่า objstream = ไม่มีเลย
ฟังก์ชันสิ้นสุด

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

sText = getHTTPPage(txtURL)

ตั้งค่า FileObject=Server.CreateObject("Scripting.FileSystemObject")
ชื่อไฟล์ = "../index.htm"
ตั้งค่า openFile=FileObject.OpenTextfile(server.mapPath(filename),2,true) 'true หมายความว่าไม่มีอยู่จริงและจะสร้างขึ้นเอง
openFile.writeline(sText)
ตั้งค่า OpenFile=nothing

%>
<สคริปต์>
alert("การสร้างหน้าเว็บแบบคงที่เสร็จสมบูรณ์");
ประวัติ.หลัง();
</script>

วิธีที่ 2:

resourcesfile=server.MapPath("../index.asp")
targetfile=server.MapPath("../index.htm")
ตั้งค่า html = Server.CreateObject("CDO.Message")
html.สร้างไฟล์ทรัพยากร MHTMLBody,31
indexcode=html.HTMLBody
ตั้ง html = ไม่มีเลย
ถ้า instr(indexcode,"</BODY></HTML>")<=0 แล้ว
response.Write("การสร้างโฮมเพจล้มเหลว")
การตอบสนองสิ้นสุด()
อื่น
ตั้งค่า oFileSys = Server.CreateObject("Scripting.FileSystemObject")
ตั้งค่า outfile=oFileSys.CreateTextFile(targetfile)
outfile.WriteLine รหัสดัชนี
outfile.ปิด
ตั้งค่า outfile=nothing
ตั้งค่า oFileSys=ไม่มีอะไร
response.Write("สร้างหน้าแรกแล้ว!")
สิ้นสุดถ้า