La copia del código es la siguiente:
<%@Idioma = "vBscript" Codepage = "936"%>
<!-#includeFile = "conn.asp"->
<!-#includeFile = "inc/function.asp"->
<! DOCTYPEHTMLPublic "-// w3c // dtdhtml4.01transitional // en"
"http://www.w3.org/tr/html4/loose.dtd">
<html>
<Evista>
<title> UntitledDocument </title>
<metahttp-equiv = "content-type" content = "text/html; charset = gb2312">
<metahttp-equiv = "refresh" content = "300; url = steal_hous.asp">
</ablo>
<Body>
<%
onerrorResumEnext
'
Server.scripttimeout = 999999
'========================================================================================================================
'Función de codificación de personajes
'==========================================================================
FunctionByTestObstr (cuerpo, código)
dimobjstream
setobjstream = server.createObject ("ADODB.Stream")
objstream.type = 1
objstream.mode = 3
objstream.
objstream.WriteBody
objstream.position = 0
objstream.type = 2
objstream.charset = código
Bytestobstr = objstream.readText
objstream.close
setobjstream = nada
Función final
'Obtenga la posición de ocurrencia de la cadena de línea en otra cadena
FunctENewString (WSTR, STRNG)
Newsstring = Instr (lcase (WSTR), lcase (strng))
IfNewString <= 0ThennewString = Len (WSTR)
Función final
'Reemplazar la función de cadena
functionReplacestr (ori, str1, str2)
Reemplazar = reemplazar (ori, str1, str2)
Función final
'==========================================================================
functionReadxml (url, código, inicio, termina)
setosend = 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
FunctionsUbstr (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
DimgetCont, NewsContent
dimurl, título
url = "http: //www.***.com" 'Sitio web de noticias
getCont = readXml (URL, "GB2312", "<TableClass = k2border =" "0" "," </table> ")
getCont = regexhtml (getCont)
dimkeyid, clase de noticias, ciudad, posición, tipo de casa, nivel, área, precio, demostración
dimContactman, contacto
Fori = 2Toubund (GetCont)
Response.Write (GetCont (I) y "__ <br>")
TEMPLINK = MID (GETCONT (I), INSTR (GETCONT (I), "HREF =" "")+6, INSTR (GETCONT (I), "" "
onclick ")-10)
TEMPLINK = reemplazar (Templink, "../", "")
Response.Write (I y ":" & Templink & "<br>")