看到很多朋友无缘无故的被骗，特发布此查询系统，以免再次上当！
使用方法非常简单：
直接输入对方的域名或者网站名称，支持中英文！点查询即可
复制代码代码如下:
<%@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