<%@Language = "vbscript" codepage = "936"%>
<!-#include file = "conn.asp"->
<!-#include file = "inc/function.asp"->
<! Doctype html public "-// w3c // dtd html 4.01 transisi // en" "http://www.w3.org/tr/html4/loose.dtd">
<Html>
<head>
<title> dokumen tanpa judul </iteme>
<meta http-equiv = "konten tipe" content = "text/html; charset = gb2312">
<meta http-equiv = "refresh" konten = "300; url = steal_house.asp">
</head>
<body>
<%
pada kesalahan resume berikutnya
'
Server.ScriptTimeout = 999999
'=================================================================================================
'Fungsi pengkodean karakter
'=========================================================================
Fungsi bytestoBstr (body, code)
redup objstream
Set ObjStream = Server.CreateObject ("AdodB.Stream")
objstream.type = 1
objstream.mode = 3
objstream.open
Objstream.write Body
objstream.position = 0
objstream.type = 2
objstream.charset = kode
BytestoBstr = objstream.readtext
objstream.close
atur objstream = tidak ada
Fungsi akhir
'Ambil posisi kejadian string garis di string lain
Function NewsString (WSTR, STRNG)
Newsstring = instr (lcase (wstr), lcase (strng))
Jika newsstring <= 0 maka newsstring = len (wstr)
Fungsi akhir
'Ganti fungsi string
fungsi replacestr (ori, str1, str2)
Replacestr = ganti (ori, str1, str2)
fungsi akhir
'=========================================================================
fungsi readxml (url, kode, mulai, berakhir)
set osend = createObject ("microsoft.xmlhttp")
Sourcecode = osend.open ("get", url, false)
osend.send ()
Readxml = bytestoBstr (osend.responseBody, kode)
start = instr (readxml, start)
Readxml = mid (readxml, start)
ujung = instr (readxml, berakhir)
Readxml = kiri (readxml, end-1)
fungsi akhir
fungsi substr (tubuh, mulai, berakhir)
start = instr (body, start)
Substr = mid (body, start+len (start) +1)
ujung = instr (substr, end)
Substr = kiri (substr, ujung-1)
fungsi akhir
Dim GetCont, NewsContent
URL redup, judul
url = "http: //www.***.com" 'berita url knowky.com
getCont = readxml (url, "GB2312", "<Table class = k20" "," </boable> ")
getCont = regexhtml (getCont)
redup keyid, newsclass, kota, posisi, housetype, level, area, harga, demostra
redup contactman, kontak
untuk i = 2 ke ubund (getCont)
response.write (getCont (i) & "__ <br>")
Templink = mid (getCont (i), instr (getCont (i), "href =" "")+6, instr (getCont (i), "" "ontClick")-10)