看到很多朋友无缘无故的被骗，特发布此查询系统，以免再次上当！
使用方法非常简单：
直接输入对方的域名或者网站名称，支持中英文！点查询即可
复制代码 代码如下:
<%@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
SetReg=NewPostForm
Ift="baidu"then
callReg.AddItem("wd",keys)
callReg.AddItem("cl","3")
SearchT=OpenXHttp(Url,Reg.form)
SetReg=Nothing
IfInstr(SearchT,"百度一下，找到相关网页")<>0then
Response.write"<fontcolor=red>有"&GetKey(SearchT,"百度一下，找到相关网页","篇")&"条相关信息</font>"
'百度一下，找到相关网页1篇
elseifInstr(SearchT,"抱歉，没有找到与")<>0then
Response.write"无相关信息"
endif
Endif
EndFunction
%>
<!DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<htmlxmlns="http://www.w3.org/1999/xhtml">
<head>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312"/>
<title>空间商信息查询系统</title>
<Script>
functioninput_ok()
{form1.Submit.style.display='none';tit.style.display='block';returntrue;}
</Script>
</head>
<body>
<tablewidth="100%"border="0"cellpadding="0"cellspacing="0">
<tr>
<tdwidth="49%"valign="top"><tableborder="0"cellspacing="0"cellpadding="0">
<formaction=""method="post"name="form1"id="form1">
<tr>
<tdcolspan="2"><fontsize="5">空间商信息查询系统</font></td>
</tr>
<tr>
<tdcolspan="2">使用办法：直接输入域名或者对方网站的名称即可！</td>
</tr>
<tr>
<tdcolspan="2"><tableborder="0"cellspacing="0"cellpadding="3">
<tr>
<td>网站访问域名</td>
<td><inputname="strdomain"type="text"id="strdomain"value="<%=request.Form("strdomain")%>"/></td>
<td><selectname="st">
<optionvalue="baidu">百度</option>
</select>
</td>
<tdwidth="100"><inputtype="submit"name="Submit"value="查询"accesskey="S"onclick="returninput_ok()"/>
<divstyle="display:none"id="tit"><fontcolor="#FF0000">请稍候
<marqueedirection="right"width="20"scrollamount="3">
……
</marquee>
</font></div></td>
</tr>
</table></td>
</tr>
<tr>
<tdheight="25"colspan="2">本搜索将只在一页显示所有结果，数据过多将较为耗时．</td>
</tr>
<tr>
<tdwidth="20"valign="top"><inputtype="checkbox"name="checkbox"value="checkbox"onclick="showadv()"/></td>
<tdwidth="426"valign="top"id="advancev">是否采用默认关键字、词</td>
</tr>
<tr>
<tdcolspan="2"valign="top"id="advvv"style="DISPLAY:none"name="advvv"><textareaname="zff"cols="50"rows="20"wrap="virtual"><%=Replace(ff,",",chr(13))%></textarea></td>
</tr>
<tr>
<tdcolspan="2"valign="top"></td>
</tr>
</form>
</table></td>
<tdwidth="51%"valign="top"><%ifrequest.Form()<>""then%>
<tableborder="0"align="center"cellpadding="5"cellspacing="0">
<tr>
<tdwidth="100">关键字</td>
<tdwidth="150">结果</td>
<tdwidth="80"></td>
</tr>
</table>
<%Fori=0toubound(split(ff,","))%>
<tableborder="0"align="center"cellpadding="5"cellspacing="0">
<tr>
<tdwidth="100"><%=split(ff,",")(i)%></td>
<tdwidth="150"><%CallSearchT(Request.Form("strdomain"),split(ff,",")(i),Request.Form("st"))%></td>
<tdwidth="80"><%ifrequest.Form("st")="baidu"then%>
<ahref="http://www.baidu.com/s?wd=<%=Request.Form("strdomain")%>+<%=split(ff,",")(i)%>&cl=3"target="_blank">详细</a>
<%endif%>
</td>
</tr>
</table>
<%Next%>
<tableborder="0"align="center"cellpadding="5"cellspacing="0">
<tr>
<td>共查询关键字词<%=ubound(split(ff,","))+1%>个．</td>
</tr>
</table>
<%endif%>
</td>
</tr>
</table>
<scriptlanguage="JavaScript"type="text/javascript">
<>
</script>
落伍【请教高手】
</body>
</html>