<٪@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 (الجسم ، رمز)
قاتمة objstream
تعيين OBJStream = server.createBject ("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 = لا شيء
وظيفة نهاية
أحضر موضع حدوث سلسلة الخط في سلسلة أخرى
وظيفة NewsString (WSTR ، Strng)
NewsString = instr (LCAS (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 ("get" ، url ، false)
Osend.send ()
readxml = bytestobstr (Osend.ResponseBody ، Code)
start = instr (readxml ، ابدأ)
readxml = mid (readxml ، ابدأ)
نهايات = instr (readxml ، ينتهي)
readxml = اليسار (readxml ، النهايات -1)
وظيفة نهاية
الوظيفة الفرعية (الجسم ، البدء ، النهايات)
ابدأ = Instr (الجسم ، ابدأ)
Sentstr = Mid (الجسم ، ابدأ+Len (ابدأ) +1)
تنتهي = instr (Sentstr ، ينتهي)
Substr = Left (Substr ، نهايات -1)
وظيفة نهاية
Dim GetCont ، الأخبار
DIM URL ، العنوان
url = "http: //www.***.com" 'News url knowsky.com
getCont = readxml (url ، "gb2312" ، "<table class = k20" ، "</table>")
getCont = regexhtml (getCont)
Dim Keyid ، NewsClass ، المدينة ، الموضع ، النموذج المنزلي ، المستوى ، المنطقة ، السعر ، demostra
قاتمة الاتصال ، الاتصال
ل I = 2 إلى Ubund (getCont)
respons.write (getCont (i) و "__ <br>")
Templink = mid (getCont (i) ، instr (getCont (i) ، "href =" "")+6 ، instr (getCont (i) ، "" onClick ")-10)