J'ai vu que de nombreux amis ont été trompés sans raison, alors j'ai spécialement publié ce système de requête pour éviter d'être à nouveau trompé!
Comment utiliser est très simple:
Entrez directement le nom de domaine ou le nom du site Web de l'autre partie, soutenez le chinois et l'anglais! Cliquez pour interroger
La copie de code est la suivante:
<% @ Lingots = "vbscript" codepage = "936"%>
<%
Onerrorresumenext
ff = "Garbage, ce sont les ordures, un menteur, sans vergogne, ne l'achetez pas, de l'argent triche, des ordures, le meilleur des ordures, des ordures dans les ordures, souvent déconnectées, fermées sans raison"
ifrequest.form ("Checkbox") <> "" puis
ff = remplacer (remplacer (request.form ("zff"), "", "), chr (13),", ")
Endire
ifrequest.form ("st") = "baidu" alors
Url = "http://www.baidu.com/s/"
Endire
CLASSPOSTFORM
Forme publique
FunomadaDItem (clé, valeur)
'Onerrorreumenext
Diable
Iffform = "" alors
form = key + "=" + server.urlencode (trim (valeur))
Autre
form = form + "&" + key + "=" + server.urlencode (trim (valeur))
Endire
Finition de fin
Classe de fin
FunctionOpenXhttp (Quurl, Qustr)
SetXml = createObject ("Microsoft.xmlhttp")
Xml.open "Get", Quurl & "?" & Qustr, false
Xml.setRequestHeader "Content-Type", "Application / x-www-form-urlencoded"
Xml.send
Issucess = xml.ResponseBody
Xml.abort ()
Setxml = rien
SetBytesStream = CreateObject ("adodb.stream")
BytesStream.Type = 2
Bytestream.open
Bytestream.writetextissuccess
BytesStream.Position = 0
BytesStream.Charset = "GB2312"
BytesStream.Position = 2
StringReturn = bytesStream.readText
Bytestream.close
SetBytesStream = rien
Openxhttp = stringreturn
Finition de fin
'DÉCLAGEZ LA SPOCE D'INTERNET
FunctionGetKey (html, start, dernier)
filearray = Split (html, start)
FileArray2 = Split (filearray (1), dernier)
GetKey = filearray2 (0)
Finition de fin
FunctionSearcht (byValStromain, byvalkey, byValt)
keys = "site:" & stromain & "" & key