<%@language = "vbscript" codePage = "936"%>
<!-#include file = "conn.asp"->
<!-#include file = "inc/function.asp"->
<! doctype html public "-// w3c // dtd html 4.01 transitional // en" "http://www.w3.org/tr/html4/loose.dtd">
<html>
<head>
<title> เอกสารที่ไม่มีชื่อ </title>
<meta http-equiv = "content-type" content = "text/html; charset = gb2312">>
<meta http-equiv = "Refresh" content = "300; url = steal_house.asp">
</head>
<body>
-
เมื่อเกิดข้อผิดพลาดต่อไป
-
Server.ScriptTimeOut = 999999
-
'ฟังก์ชั่นการเข้ารหัสอักขระ
-
ฟังก์ชั่น bytestobstr (body, code)
สลัว objstream
ตั้งค่า objstream = server.createObject ("adodb.stream"))
objstream.type = 1
objstream.mode = 3
objstream.open
objstream.write ร่างกาย
objstream.position = 0
objstream.type = 2
objstream.charset = รหัส
bytestobstr = objstream.readText
objstream.close
ตั้งค่า objstream = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
'ดึงตำแหน่งการเกิดขึ้นของสตริงบรรทัดในสตริงอื่น
Function Newsstring (WSTR, STRNG)
NewsString = Instr (LCASE (WSTR), LCASE (STRNG))
ถ้า Newsstring <= 0 แล้ว Newsstring = Len (WSTR)
ฟังก์ชันสิ้นสุด
'แทนที่ฟังก์ชันสตริง
ฟังก์ชั่น replacestr (ori, str1, str2)
replacestr = แทนที่ (ori, str1, str2)
ฟังก์ชันสิ้นสุด
-
ฟังก์ชั่น readxml (url, รหัส, เริ่ม, สิ้นสุด)
SET OSEND = CreateObject ("Microsoft.xmlhttp"))
sourcecode = osend.open ("รับ", url, false)
Osend.Send ()
readxml = bytestobstr (osend.responsebody, รหัส)
start = instr (readxml, start)
readxml = mid (readxml เริ่มต้น)
สิ้นสุด = instr (readxml, สิ้นสุด)
readxml = ซ้าย (readxml, สิ้นสุด -1)
ฟังก์ชันสิ้นสุด
ฟังก์ชั่นย่อย (ร่างกายเริ่มจบ)
start = instr (body, start)
substr = mid (body, start+len (start) +1)
สิ้นสุด = instr (substr, สิ้นสุด)
substr = ซ้าย (substr, สิ้นสุด -1)
ฟังก์ชันสิ้นสุด
Dim GetCont, NewsContent
Dim url ชื่อเรื่อง
url = "http: //www.***.com" 'ข่าว url knowlky.com
getCont = readxMl (url, "GB2312", "<table class = k20" "," </breal> ")
getCont = regexhtml (getCont)
Dim Keyid, Newsclass, เมือง, ตำแหน่ง, บ้าน, ระดับ, พื้นที่, ราคา, demostra
ผู้ติดต่อสลัวติดต่อติดต่อ
สำหรับ i = 2 ถึง Ubund (getCont)
Response.write (getCont (I) & "__ <br>")
templink = mid (getCont (i), instr (getCont (i), "href =" "")+6, instr (getCont (i), "" "onclick")-10)