แม้ว่า Wulin.com www.vevb.com จะเคยเผยแพร่โค้ดที่เกี่ยวข้องมาก่อน แต่เว็บไซต์พิเศษบางแห่งยังไม่สมบูรณ์แบบ เมื่อเร็วๆ นี้ ฉันได้ช่วยลูกค้าแก้ไขระบบและพบว่าโค้ดนี้ค่อนข้างดี ดังนั้นฉันจึงแยกออกมาเพื่อทุกคน ความสะดวก. คัดลอกรหัสรหัสดังต่อไปนี้:
-
เว็บโฟลเดอร์=/
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&) แล้ว
การตอบสนอง เขียน &โฟลเดอร์&ชื่อไฟล์& สร้างสำเร็จแล้ว <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 แล้ว
บันทึกไฟล์ = เท็จ
ผิดพลาดชัดเจน
อื่น
บันทึกไฟล์ = จริง
สิ้นสุดถ้า
สิ้นสุดฟังก์ชัน
-