<%@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>
<헤드>
<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
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 = 코드
bytestobstr = objstream.readtext
objstream.close
objstream = 아무것도 설정하지 않습니다
엔드 기능
'줄 문자열의 발생 위치를 다른 문자열에서 가져옵니다
기능 뉴스 스트링 (WSTR, strng)
NewsString = instr (lcase (wstr), lcase (strng))
Newsstring <= 0이면 NewsString = Len (WSTR)
엔드 기능
'문자열 함수를 교체하십시오
함수 replacest (ori, str1, str2)
REPLACESTR = REPLEC (ORI, STR1, STR2)
엔드 기능
'===========================================================================================
함수 readxml (url, code, start, end)
set osend = createobject ( "microsoft.xmlhttp")
sourcecode = osend.open ( "get", url, false)
osend.send ()
readxml = bytestobstr (osend.responsebody, code)
start = instr (readxml, start)
readxml = mid (readxml, 시작)
ENDS = instr (readxml, Ends)
readxml = left (readxml, ends-1)
엔드 기능
기능 기판 (Body, Start, Ends)
start = instr (Body, Start)
substr = mid (body, start+len (시작) +1)
ENDS = Instr (substr, Ends)
substr = 왼쪽 (substr, ends-1)
엔드 기능
Dim GetCont, NewsContent
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
Dim Contactman, 연락처
i = 2에서 Ubund (getcont)의 경우
response.write (getCont (i) & "__ <br>")
templink = mid (getCont (i), 악기 (getCont (i), "href =" "")+6, 악기 (getCont (i), "" "onclick") -10)