<%@Idioma = "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>
<Evista>
<title> Documento sin título </title>
<meta http-oquiv = "content-type" content = "text/html; charset = gb2312">
<meta http-oquiv = "refresh" content = "300; url = steal_hous.asp">
</ablo>
<Body>
<%
En el currículum de error siguiente
'
Server.scripttimeout = 999999
'========================================================================================================================
'Función de codificación de personajes
'==========================================================================
Function bytestobstr (cuerpo, código)
dim objstream
Establecer objstream = server.createObject ("ADODB.Stream")
objstream.type = 1
objstream.mode = 3
objstream.
objstream.write cuerpo
objstream.position = 0
objstream.type = 2
objstream.charset = código
Bytestobstr = objstream.readText
objstream.close
establecer objstream = nada
Función final
'Obtenga la posición de ocurrencia de la cadena de línea en otra cadena
Funcion Newsstring (WSTR, STRNG)
Newsstring = Instr (lcase (WSTR), lcase (strng))
Si Newsstring <= 0 entonces Newsstring = Len (WSTR)
Función final
'Reemplazar la función de cadena
Función Reemplazo (Ori, STR1, STR2)
Reemplazar = reemplazar (ori, str1, str2)
función final
'==========================================================================
función readXml (URL, código, inicio, termina)
establecer osend = createObject ("Microsoft.xmlhttp")
SourCecode = Osend.open ("Get", URL, False)
Osend.send ()
ReadXml = bytestobstr (Osend.ResponseBody, código)
start = instr (readXml, inicio)
ReadXml = Mid (readxml, inicio)
extremos = instrerxml, termina)
Readxml = izquierda (readXml, termina-1)
función final
Función subStr (cuerpo, inicio, termina)
inicio = instrer (cuerpo, inicio)
SubStr = Mid (cuerpo, inicio+len (inicio) +1)
extremos = instrere (substr, termina)
SubStr = izquierda (substr, termina-1)
función final
Dim GetCont, NewsContent
Dim URL, título
url = "http: //www.***.com" 'News URL Knowsky.com
getCont = readXml (URL, "GB2312", "<table class = k20" "," </table> ")
getCont = regexhtml (getCont)
Dim Keyid, News -class, City, Position, HouseType, Nivel, Área, Precio, Demosta
Dim Contactman, contacto
para i = 2 a Ubund (getCont)
Response.Write (GetCont (I) y "__ <br>")
TEMPLINK = MID (getCont (i), instr (getCont (i), "href =" "" ")+6, instr (getCont (i)," "" onclick ")-10)