-
ฟังก์ชั่น GetPage(url)
การเรียกคืนสลัว
ตั้งค่าการเรียกข้อมูล = CreateObject("Microsoft.XMLHTTP")
ด้วยการเรียกค้น
. เปิด "รับ", url, False ', "", ""
.ส่ง
GetPage = BytesToBstr(.ResponseBody)
จบด้วย
ตั้งค่าการดึงข้อมูล = ไม่มีเลย
ฟังก์ชันสิ้นสุด
ฟังก์ชัน BytesToBstr(body)
objstream สลัว
ตั้ง objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.เปิด
objstream เขียนเนื้อหา
objstream ตำแหน่ง = 0
objstream.Type = 2
objstream.Charset = "GB2312"
BytesToBstr = objstream.ReadText
objstream.ปิด
ตั้งค่า objstream = ไม่มีเลย
ฟังก์ชันสิ้นสุด
เมื่อเกิดข้อผิดพลาดดำเนินการต่อต่อไป
URL=" http://www.taiang.com.cn/index.asp "
response.write "ขยาย始更新首页..."
wstr = GetPage(Url)
ตั้งค่า fs=Server.CreateObject("Scripting.FileSystemObject")
'ถ้าไม่ใช่ MyFile.FolderExists(server.MapPath("/html/")) แล้ว
'MyFile.CreateFolder(server.MapPath("/html/"))'
'สิ้นสุดถ้า
If (fs.FileExists(server.MapPath("./")&"index.htm")) จากนั้น
fs.DeleteFile(server.MapPath("./")&"index.htm")
สิ้นสุดถ้า
ตั้งค่า CrFi=fs.CreateTextFile(server.MapPath("./")&"index.htm")
Crfi.Writeline(wstr)
ตั้งค่า CrFi=ไม่มีอะไร
ตั้งค่า fs=ไม่มีอะไร
response.write "...<font color=red>更新完成！</font>"
-