Vi que muitos amigos foram enganados sem motivo, então liberei especialmente este sistema de consulta para evitar ser enganado novamente!
Como usar é muito simples:
Digite diretamente o nome de domínio da outra parte ou o nome do site, suporte chinês e inglês! Clique para consultar
A cópia do código é a seguinte:
<%@Idioma = "vBScript" codePage = "936"%>
<%
OnErrorReSumenext
ff = "lixo, é lixo, um mentiroso, sem vergonha, não compre, trapaceie dinheiro, espaço de lixo, o melhor em lixo, lixo em lixo, muitas vezes desconectado, fechado sem motivo"
ifRequest.form ("Caixa de seleção") <> "" então
ff = substituir (substituir (request.form ("zff"), "", "), chr (13)," ")
Endif
ifRequest.form ("st") = "Baidu" então
Url = "http://www.baidu.com/s/"
Endif
ClassPostform
Publicform
FunctionAdditem (chave, valor)
'OnErrorReSumenext
Dimtempstr
Iffform = "" então
Form = key+"="+server.urlencode (Trim (valor))
Outro
Form = formulário+"&"+key+"="+server.urlencode (Trim (valor))
Endif
Função final
Endclass
Functionopenxhttp (quurl, qustra)
Setxml = createObject ("Microsoft.xmlHttp")
Xml.open "get", quurl & "?" & Qustra, false
Xml.setRequestHeader "Content-Type", "Application/X-Www-Form-Urlencoded"
Xml.send
ISSUCCESS = XML.Responsebody
Xml.abort ()
Setxml = nada
SetByTessTream = CreateObject ("adodb.stream")
Bytesstream.type = 2
Bytesstream.open
ByTessTream.WritETEXTISSUCCESS
ByTessTream.Position = 0
Bytesstream.charset = "gb2312"
ByTessTream.Position = 2
StringReturn = byTessTream.readText
Bytesstream.close
SetbytessTream = nada
Openxhttp = stringreturn
Função final
'Declare o escopo da interceptação
FunctionGetKey (html, start, último)
FileArray = Split (HTML, Start)
FileArray2 = Split (FileArray (1), último)
GetKey = FileArray2 (0)
Função final
Funçõesearcht (byvaltrdomain, byvalkey, byvalt)
Keys = "Site:" & Strdomain & "" & Key