getfile.asp
-
''ใช้ส่วนประกอบ xmlhttp เพื่อรับไฟล์ระยะไกลและบันทึกลงในพื้นที่ปัจจุบัน
''นี่คือตัวอย่างในการสร้างเว็บไซต์ รับเนื้อหาหน้าเว็บจากระยะไกลและกรองข้อมูลสภาพอากาศที่เกี่ยวข้องออกไป แน่นอนว่าคุณสามารถข้ามการจัดเก็บไฟล์ในเครื่องแล้วรับข้อมูลได้
''ฟังก์ชันของ xoyu อ้างอิง ขอบคุณที่นี่
fileurl=" http://www.hbqx.gov.cn/other/tqyb/inc_city_hb.asp "
dotloc=InStrRev(fileurl,".")
filepath="thistest"&mid(fileurl,dotloc) ''สร้างชื่อไฟล์ประเภทเดียวกัน
''filepath = "thistest.htm"
เรียก saveRemoteFile (filepath, fileurl)
ย่อย SaveRemoteFile (LocalFileName, RemoteFileUrl)
โฆษณาสลัว, การดึงข้อมูล, GetRemoteData
ตั้งค่าการเรียกข้อมูล = Server.CreateObject("Microsoft.XMLHTTP")
ด้วยการเรียกค้น
. เปิด "รับ", RemoteFileUrl, เท็จ, "", ""
.ส่ง
GetRemoteData = .ResponseBody
'' GetDetail = .ResponseText ''คุณสามารถรับเนื้อหาของไฟล์ข้อความได้โดยตรง แต่ไม่สามารถรองรับภาษาจีนได้ ฉันไม่รู้วิธีแก้ไข
จบลงด้วย
การดึงชุด = ไม่มีเลย
''RESPONSE.WRITE GetDetail
Set Ads = Server.CreateObject("Adodb.Stream") ''สร้างไฟล์ที่เกี่ยวข้อง
ด้วยโฆษณา
.ประเภท = 1
.เปิด
.เขียน GetRemoteData
.เซิร์ฟเวอร์ SaveToFile.MapPath(LocalFileName),2
.ยกเลิก()
.ปิด()
จบด้วย
ตั้งโฆษณา=ไม่มีอะไร
end sub
''ข้างต้นเสร็จสิ้นการจัดเก็บไฟล์ระยะไกล ข้อมูลต่อไปนี้ใช้ได้กับการทำงานของไฟล์ข้อความ www.downcodes.com เท่านั้น
set fso=server.createobject("scripting.filesystemobject") ''อ่านเนื้อหาไฟล์
ตั้งค่า fileout=fso.opentextfile(server.mappath(filepath),1)
เนื้อหา=fileout.readall
ตั้งค่า fileout=ไม่มีอะไร
ตั้งค่า fso=nothing
''response.write content
contentarr=split(content,"<td") ''กรองตามเนื้อหา
สำหรับ i=1 ถึง ubound (contentarr)
ถ้า instr(contentarr(i),"Enshi") แล้ว thisloc=i
ต่อไป
ติ่มซวี่(5)
สำหรับ j=0 ถึง 4
con1=contentarr(thisloc+j)
start1=instr(con1,">")
con1=ขวา(con1,เลน(con1)-start1)
stop1=instr(con1,"<")
con1=ซ้าย(con1,หยุด1-1)
str=str&contentarr(thisloc+j)
xu(j)=ตัดแต่ง(con1)
ต่อไป
ถ้า xu(1)<>"" แล้ว
response.write "document.write('พยากรณ์อากาศจังหวัดเอนชิ 24 ชั่วโมงข้างหน้า:"&xu(1)&", อุณหภูมิต่ำสุด"&xu(2)&"℃, อุณหภูมิสูงสุด"&xu(3)&"℃, ลม ทิศทาง:" &xu(4)&".--เผยแพร่โดยหอดูดาวอุตุนิยมวิทยากลางหวู่ฮั่น');"
อื่น
response.write "document.write('ยังไม่ออก');"
สิ้นสุดถ้า
''response.write server.htmlencode(str)
%>
การอ้างถึงและการแสดงเนื้อหาที่ได้รับในหน้า htm อื่น
<script src="getfile.asp"></script>