ฉันทำงานให้กับพอร์ทัลท้องถิ่น และสภาพอากาศบนเว็บไซต์จำเป็นต้องได้รับการอัปเดตทุกวัน เมื่อเวลาผ่านไป มันค่อนข้างลำบากใจ ดังนั้นฉันจึงเขียนกำหนดการขโมยข่าว โปรดดูข้อกำหนดของระบบหลังจากโพสต์: รองรับ FSO เซิร์ฟเวอร์ UDP TCP/IP
ต่อไปนี้เป็นเนื้อหาของขโมย
ชื่อไฟล์ TianQi.asp
เขียนโดย Nioked QQ408611119
www.downcodes.com
-
ถ้าชั่วโมง(ตอนนี้)=9 และนาที(ตอนนี้)<30 แล้ว
รับหมวดหมู่()
สิ้นสุดถ้า
ฟังก์ชั่น getCategories()
เมื่อเกิดข้อผิดพลาดดำเนินการต่อต่อไป
Dim oXMLHTTP 'เป็นวัตถุ
Dim oCategories ' เป็นวัตถุ
DimBodyText
Dim Pos, Pos1
ตั้งค่า oXMLHTTP = CreateObject("Microsoft.XMLHTTP")
'--- ตั้งค่าการเรียก XMLHTTP และปัญหาการส่ง (ไม่มี parm เป็นหมวดหมู่
'--- รวมอยู่ใน URL
oXMLHTTP.open "GET", http://weather.china.com.cn/travel_gntq.php?cityid=56196&cityname =Mianyang",False 'แทนที่สถานที่นี้ด้วยที่อยู่ของคุณเอง
oXMLHTTP.ส่ง
'--- โหลดการตอบกลับลงในเกาะข้อมูลหมวดหมู่
BodyText=oXMLHTTP.responsebody
BodyText=BytesToBstr(BodyText,"gb2312")
Pos=Instr(BodyText,"<body")
pos1=Instr(ข้อความ,"</body>")
BodyText=mid(BodyText,pos,pos1)
BodyText=split(BodyText,"<ตาราง")
Pos=Instr(BodyText(4),"<tr")
pos1=Instr(BodyText(4),"</tr>")
Body=กลาง(BodyText(4),pos,len(BodyText(4))-pos)
ร่างกาย=แยก(ร่างกาย,"</ table>")
body1=split(replace(replace(replace(body(0),"<br>",""),"</td>",""),"</tr>",""),"สภาพอากาศ" )
สำหรับ i= 1 ถึง ubound (body1)
body3=แยก(body1(i),"<td")
weather=weather & "document.write("""& i&"$" & "สภาพอากาศ" & HTMLEncode(trim(body3(0))) & """); & vbcrlf
ต่อไป
weather=replace(สภาพอากาศ,"1$","<FONT color=#ffffff>【วันนี้】</FONT>")
weather=replace(สภาพอากาศ,"2$","<FONT color=#ffffff>【พรุ่งนี้】</FONT>")
weather=replace(weather,"3$","<FONT color=#ffffff>【วันมะรืนนี้】</FONT>")
ตั้งค่า fs = CreateObject("Scripting.FileSystemObject")
ตั้งค่า f = fs.CreateTextFile(request.ServerVariables("APPL_PHYSICAL_PATH")& "tq.js", True)
f.write("document.write('Mianyang Weather Forecast:');" &vbcrlf & แทนที่(สภาพอากาศ,"<BR>",""))
ฉ.ปิด
กำหนดให้ f = ไม่มีเลย
ตั้งค่า fs = ไม่มีเลย
response.write "พยากรณ์อากาศเหมียนหยาง:"& สภาพอากาศ
ตั้งค่า oXMLHTTP = ไม่มีเลย
ถ้า err.number<>0 แล้ว
response.write "เกิดข้อผิดพลาด คำอธิบายข้อผิดพลาด:"&err.description & "<br>แหล่งข้อผิดพลาด"& err.source
การตอบสนองสิ้นสุด()
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
ฟังก์ชัน BytesToBstr(body,Cset)
objstream สลัว
ตั้ง objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.เปิด
objstream เขียนเนื้อหา
objstream ตำแหน่ง = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.ปิด
ตั้งค่า objstream = ไม่มีเลย
ฟังก์ชันสิ้นสุด
ฟังก์ชั่นสาธารณะ HTMLEncode(fString)
ถ้าไม่ใช่ IsNull(fString) แล้ว
fString = แทนที่(fString, ">", ">")
fString = แทนที่(fString, "<", "<")
fString = แทนที่(fString, CHR(32), " ") '
fString = แทนที่(fString, CHR(9), " ") '
fString = แทนที่(fString, CHR(34), """)
fString = แทนที่(fString, CHR(39), "'") 'การกรองเครื่องหมายคำพูดเดี่ยว
fString = แทนที่ (fString, CHR (13), "")
fString = แทนที่(fString, CHR(10) & CHR(10), "</P><P> ")
fString = แทนที่(fString, CHR(10), "<BR> ")
HTMLEncode = fString
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
-