<%@Sprache = "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>
<kopf>
<title> unbenannte Dokument </title>
<meta http-äquiv = "content-type" content = "text/html; charset = gb2312">
<meta http-äquiv = "aktualisieren" content = "300; url = steal_house.asp">
</head>
<body>
<%
Bei der nächsten Fehleraufnahme als nächstes
''
Server.ScriptTimeout = 999999
"============================================================================================================
'Zeichenkodierfunktion
"=======================================================================================================.
Funktion byTestObstr (Körper, Code)
Dimer Objstream
Setzen Sie objstream = server.createObject ("adodb.stream")
objstream.type = 1
objstream.mode = 3
objstream.open
objstream.write Body
objstream.position = 0
objstream.type = 2
objstream.charset = code
ByTestObstr = objstream.readText
objstream.close
objstream einstellen = nichts
Endfunktion
'Rufen Sie die Auftrittsposition der Linienzeichenfolge in einer anderen Zeichenfolge ab
Funktion Newsstring (WSTR, STRNG)
NewsString = Instring (Lase (WSTR), Lase (strng))
Wenn NewsString <= 0 dann Newsstring = len (WSTR)
Endfunktion
'Die Zeichenfolge ersetzen
Funktion ersetzen (ORI, STR1, STR2)
Ersetzen = ersetzen (ori, str1, str2)
Endfunktion
"=======================================================================================================.
Funktion readxml (URL, Code, Start, endet)
Setzen Sie osend = createObject ("microsoft.xmlhttp")
SourceCode = osend.open ("get", url, falsch)
osend.send ()
Readxml = byTestObstr (osend.responseBody, Code)
start = instr (readxml, start)
Readxml = Mid (readxml, starten)
endet = instr (readxml, endet)
Readxml = links (readxml, endet 1)
Endfunktion
Funktionsubstr (Körper, Start, Enden)
start = instr (Körper, Start)
Substr = Mid (Körper, Start+Len (Start) +1)
endet = instr (substr, Enden)
Substr = links (Substr, endet-1)
Endfunktion
Dim getCont, Newscontent
Dim URL, Titel
url = "http: //www.***.com" 'News url kissky.com
getCont = readxml (URL, "GB2312", "<Table Class = K20", "</table>")
getCont = regexhtml (getCont)
Dim KeyId, Nachrichtenklasse, Stadt, Position, Haushalt, Ebene, Gebiet, Preis, Demostra
Dim Contactman, Kontakt
für i = 2 bis ubund (getCont)
Antwort.Write (getCont (i) & "__ <br>")
templink = Mid (getCont (i), Instrument (getCont (i), "href =" ")+6, Instrumente (getCont (i)," "Onclick")-10)