I saw that many friends were deceived for no reason, so I specially released this query system to avoid being deceived again!
How to use is very simple:
Directly enter the other party’s domain name or website name, support Chinese and English! Click to query
The code copy is as follows:
<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>
<%
OnErrorResumeNext
ff="Garbage, it's garbage, a liar, shameless, don't buy it, cheat money, garbage space, the best in garbage, garbage in garbage, often disconnected, closed for no reason"
ifRequest.Form("checkbox")<>""then
ff=Replace(Replace(request.Form("zff"),"","),chr(13),",")
Endif
ifrequest.Form("st")="baidu"then
Url="http://www.baidu.com/s/"
Endif
ClassPostForm
Publicform
FunctionAddItem(Key,Value)
'OnErrorResumeNext
DimTempStr
Iffform=""Then
form=Key+"="+Server.URLEncode(Trim(Value))
Else
form=form+"&"+Key+"="+Server.URLEncode(Trim(Value))
EndIf
EndFunction
EndClass
FunctionOpenXHttp(QuUrl,QuStr)
SetXML=CreateObject("Microsoft.XMLHTTP")
XML.Open"GET",QuUrl&"?"&QuStr,False
XML.SetRequestHeader"Content-Type","application/x-www-form-urlencoded"
XML.Send
IsSuccess=XML.Responsebody
XML.Abort()
SetXML=Nothing
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=Nothing
OpenXHttp=StringReturn
EndFunction
'Declare the scope of intercept
FunctionGetKey(HTML,Start,Last)
filearray=split(HTML,Start)
filearray2=split(filearray(1),Last)
GetKey=filearray2(0)
EndFunction
FunctionSearchT(byvalstrdomain,byvalkey,byvalt)
keys="site:"&strdomain&""&key