Ich habe gesehen, dass viele Freunde ohne Grund getäuscht wurden, also habe ich dieses Query -System speziell veröffentlicht, um nicht wieder getäuscht zu werden!
Die Verwendung ist sehr einfach:
Geben Sie direkt den Domain -Namen oder den Website des anderen Partei ein und unterstützen Sie Chinesisch und Englisch! Klicken Sie auf Abfrage
Die Codekopie lautet wie folgt:
<%@Sprache = "vbscript" Codepage = "936"%>
<%
OnErrorresumeNext
ff = "Müll, es ist Müll, ein Lügner, schamlos, kaufen Sie ihn nicht, betrügen Geld, Müllraum, das Beste in Müll, Müll in Müll, oft getrennt, ohne Grund geschlossen"
IFREQUEST.FORM ("Kontrollkästchen") <> "" dann
ff = ersetzen (ersetzen (request.Form ("zff"), "", "), chr (13),", "))
Endif
IFREQUEST.FORM ("ST") = "BAIDU" dann
Url = "http://www.baidu.com/s/"
Endif
Classistform
Öffentlich
FunctionAddItem (Schlüssel, Wert)
'OnErrorresumenext
Dimtempstr
Iffform = "" dann
Form = Schlüssel+"="+server.urlencode (TRIM (Wert))
Anders
Form = Form+"&"+Taste+"="+Server.urlencode (Trim (Wert)))
Endif
Endfunktion
Endschicht
FunctionOpenxhttp (Quurl, Qustr)
Setxml = createObject ("microsoft.xmlhttp")
Xml.open "Get", Quurl & "?" & Qustr, Falsch
Xml.setRequestheader "Content-Typ", "Anwendung/X-WWW-Form-Urlencoded"
Xml.send
Issuccess = xml.responseBody
Xml.abort ()
Setxml = nichts
SetByTesTream = CreateObject ("adodb.stream")
Bytessstream.type = 2
Bytessstream.open
Bytessstream.writeTextisSuccess
Bytessstream.position = 0
Bytessstream.charset = "gb2312"
Bytessstream.position = 2
StringReturn = bytessstream.readText
Bytessstream.close
SetByTesTream = nichts
OpenXHTTP = StringReturn
Endfunktion
'Erklären Sie den Umfang des Abfangs
FORMITIONKEY (HTML, START, LETZT)
filearray = split (html, start)
filearray2 = split (filearray (1), zuletzt)
GetKey = filearray2 (0)
Endfunktion
Funktionen (Byvalstromain, Byvalkey, Byvalt)
Keys = "Site:" & Strdomain & "" & Key