-
'---------- รับเนื้อหาจากระยะไกลและจัดเก็บเนื้อหาไว้ในเครื่องคอมพิวเตอร์ รวมถึงไฟล์ใด ๆ ! -
'--------- การใช้ xmlhttp และ adodb.stream-----------------
'เมื่อเกิดข้อผิดพลาด ดำเนินการต่อต่อไป'
'--------------------------------- กำหนดรูปแบบผลลัพธ์ ------------ ------ ---------------
เส้นทาง = คำขอ (เส้นทาง)
ถ้าเส้นทาง = จากนั้น
เส้นทาง=http://pcqc.86516.com/index.asp
'URL ที่กำหนดไว้ที่นี่คือ Baidu โปรดทราบว่าจะต้องมีส่วนต่อท้ายไฟล์
สิ้นสุดถ้า
สพาธ = เส้นทาง
ถ้าซ้าย (lcase (เส้นทาง), 7) <> http:// แล้ว
'----หากไม่มี http ข้างหน้า ไฟล์นั้นเป็นไฟล์ในเครื่องและถูกส่งไปยัง LocalFile เพื่อประมวลผล------------
LocalFile (เส้นทาง)
อื่น
'-------------------------มิฉะนั้นจะเป็นไฟล์ระยะไกลและจะถูกจัดการโดย RemoteFile--------------- --------
ไฟล์ระยะไกล (เส้นทาง)
สิ้นสุดถ้า
'การตอบสนอง เขียนผิดพลาด คำอธิบาย'
'-------ฟังก์ชั่นการประมวลผล---------------
subLocalFile (เส้นทาง)
'------------------หากเป็นไฟล์ในเครื่อง เพียงข้ามไปที่หน้า------------------ -
'การตอบสนองเส้นทางการเปลี่ยนเส้นทาง
เกิดข้อผิดพลาดใน Response.write!
จบหมวดย่อย
SubRemoteFile (sPath)
'--------------------------------- ฟังก์ชั่นการประมวลผลไฟล์ระยะไกล ------------ ----------------- ----------
FileName = GetFileName(sPath)
'----GetFileName คือกระบวนการแปลงที่อยู่ให้เป็นชื่อไฟล์ที่ผ่านการรับรอง-------------
FileName = Server.MapPath(แคช/ & ชื่อไฟล์)
ตั้งค่า objFso = Server.CreateObject(Scripting.FileSystemObject)
'การตอบกลับ เขียนชื่อไฟล์'
ถ้า objFso.FileExists (ชื่อไฟล์) แล้ว
'---ตรวจสอบว่ามีการเข้าถึงไฟล์หรือไม่ หากเป็นเช่นนั้น ให้ข้ามไป---------------------
Response.Redirect แคช/ & GetFileName (เส้นทาง)
อื่น
'-----------------มิฉะนั้น ให้ใช้ฟังก์ชัน GetBody เพื่ออ่านก่อน---------------------
'การตอบสนองเขียนเส้นทาง'
t = GetBody (เส้นทาง)
'-----------------ใช้วิธีไบนารี่เพื่อเขียนไปยังเบราว์เซอร์------------------------ -------- --
การตอบสนองBinaryWrite t
การตอบสนองฟลัช
'-----------------บัฟเฟอร์เอาต์พุต---------------------------------- --- ----------
SaveFile t, GetFileName (เส้นทาง)
'------------------ แคชเนื้อหาไฟล์ไปยังพาธในเครื่องเพื่อการเข้าถึงครั้งถัดไป -----
จบถ้า
ตั้ง objFso = ไม่มีเลย
จบหมวดย่อย
ฟังก์ชั่น GetBody(url)
'--------------------------------- ฟังก์ชั่นนี้เป็นฟังก์ชั่นสำหรับการรับเนื้อหาจากระยะไกล----------------- ---
'เมื่อเกิดข้อผิดพลาดให้ดำเนินการต่อต่อไป
'ตอบกลับเขียน url'
ตั้งค่าการดึงข้อมูล = CreateObject(Microsoft.XMLHTTP)
'---------------------- สร้างวัตถุ XMLHTTP ------------------------ -----
ด้วยการเรียกค้น
.เปิดรับ, url, เท็จ, ,
'----------------- ส่งโดยใช้ Get วิธีอะซิงโครนัส ----------------------
.ส่ง
'GetBody = .ResponseText
GetBody = .การตอบสนองร่างกาย
'------------------ฟังก์ชันส่งคืนเนื้อหาที่ได้รับ------------------------------
จบด้วย
ตั้งค่าการดึงข้อมูล = ไม่มีเลย
'ตอบกลับ เขียนผิด คำอธิบาย'
ฟังก์ชันสิ้นสุด
ฟังก์ชัน GetFileName(str)
'---------------------------ฟังก์ชันนี้เป็นฟังก์ชันชื่อไฟล์ที่ผ่านการรับรอง-------------- - ---
str = แทนที่ (lcase(str),http://,)
str = แทนที่ (lcase (str), //,/)
str = แทนที่ (str,?,)
str = แทนที่ (str,&,)
str = แทนที่ (str,/,)
str = แทนที่ (str, vbcrlf,)
GetFileName = str
ฟังก์ชันสิ้นสุด
บันทึกไฟล์ย่อย (str, fName)
'---------------------------ฟังก์ชั่นนี้เป็นฟังก์ชั่นที่บันทึกเนื้อหาสตรีม------------- - ----
'เมื่อเกิดข้อผิดพลาดให้ดำเนินการต่อต่อไป
ตั้งค่า objStream = Server.CreateObject(ADODB.Stream)
'----ในการสร้างออบเจ็กต์ ADODB.Stream ต้องใช้ ADO เวอร์ชัน 2.5 ขึ้นไป---------
'objStream.Type = adTypeBinary
objStream.Type = 1
'-----------------เปิดในโหมดไบนารี่-------------------------------- -----
objStream.เปิด
objstream.write str
'---------------------------------- เขียนเนื้อหาสตริงลงในบัฟเฟอร์---------------- ---------- ----
'ตอบกลับเขียน fname'
'เส้นทางความสนใจ
objstream.SaveToFile E:/webroot/pcqc/vip/UploadFile/cache/&fName,2
'objstream.SaveToFile d:/cache/ & fName,adSaveCreateOverWrite
'-------------------------------เขียนเนื้อหาที่ถูกบัฟเฟอร์ไปยังไฟล์------------------ -------- ----
'response.BinaryWrite objstream อ่าน
objstream.ปิด()
ตั้ง objstream = ไม่มีเลย
'-----------------------ปิดวัตถุและปล่อยทรัพยากร------------------------- - ----
'ตอบกลับ เขียนผิด คำอธิบาย'
จบย่อย
ฟังก์ชั่นบันทึกภาพ (จาก, tofile)
geturl สลัว, objStream, imgs
geturl=ตัดแต่ง(จาก)
imgs=gethttppage(geturl)'กระบวนการรับเนื้อหาเฉพาะของรูปภาพ
ตั้งค่า objStream = Server.CreateObject(ADODB.Stream)' หากต้องการสร้างวัตถุ ADODB.Stream ต้องใช้ ADO 2.5 ขึ้นไป
objStream.Type =1'เปิดในโหมดไบนารี
objStream.เปิด
objstream.write imgs' เขียนเนื้อหาสตริงลงในบัฟเฟอร์
objstream.SaveToFile server.mappath(tofile),2'-เขียนเนื้อหาที่บัฟเฟอร์ลงในไฟล์
objstream.Close()'ปิดวัตถุ
ตั้งค่า objstream=nothing
ฟังก์ชั่นสิ้นสุด
-