看到很多朋友無緣無故的被騙，特發布此查詢系統，以免再次上當！
使用方法非常簡單：
直接輸入對方的域名或者網站名稱，支持中英文！點查詢即可
複製代碼代碼如下:
<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>
<%
OnErrorResumeNext
ff="垃圾,是垃圾,騙子,無恥,不要買,騙錢,垃圾空間,垃圾中的極品,垃圾中的垃圾,經常掉線,無緣無故的關閉"
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
Ifform=""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
'聲明截取的範圍
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