แม้ว่า Script House จะเคยเผยแพร่โค้ดที่เกี่ยวข้องมาก่อน แต่เว็บไซต์พิเศษบางแห่งยังไม่สมบูรณ์แบบ เมื่อเร็วๆ นี้ฉันได้ช่วยลูกค้าแก้ไขระบบและพบว่าโค้ดนี้ค่อนข้างดี ดังนั้นฉันจึงดึงมันออกมาเพื่อความสะดวกของทุกคน
คัดลอกรหัสรหัสดังต่อไปนี้:
-
เว็บโฟลเดอร์ = "/"
โฮสต์ = "index_cn.asp" 'ที่อยู่แบบไดนามิกของแผนกต้อนรับ
โฟลเดอร์ = "/" 'folder
filename="index_cn.html"'สร้างชื่อไฟล์แบบคงที่
โฮสต์ Fso_info โฟลเดอร์ ชื่อไฟล์
response.write "สร้าง HTML แบบคงที่สำหรับหน้าแรกของเว็บไซต์ภาษาจีนให้เสร็จสมบูรณ์<br />"
'สร้าง html
ฟังก์ชั่น Fso_info (โฮสต์, โฟลเดอร์, ชื่อไฟล์)
โฮสต์ = "http://"+Request.ServerVariables("HTTP_HOST")&webfolder&host
ถ้า SaveFile(""&folder&filename&"",""&host&"") แล้ว
การตอบสนองเขียน ""&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 แล้ว
บันทึกไฟล์ = เท็จ
ผิดพลาดชัดเจน
อื่น
บันทึกไฟล์ = จริง
สิ้นสุดถ้า
สิ้นสุดฟังก์ชัน
-