看到很多朋友无缘无故的被骗，特发布此查询系统，以免再次上当！
使用方法非常简单：
直接输入对方的域名或者网站名称，支持中英文！点查询即可
复制代码 代码如下:
%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
%
On Error Resume Next
ff="垃圾,是垃圾,骗子,无耻,不要买,骗钱,垃圾空间,垃圾中的极品,垃圾中的垃圾,经常掉线,无缘无故的关闭"
if Request.Form("checkbox")>"" then
ff=Replace(Replace(request.Form("zff")," ",""),chr(13),",")
End if
if request.Form("st")="baidu" then
Url="http://www.baidu.com/s/"
End if
Class PostForm
Public form
Function AddItem(Key, Value)
'On Error Resume Next
Dim TempStr
If form = "" Then
form = Key + "=" + Server.URLEncode(Trim(Value))
Else
form = form + "" + Key + "=" + Server.URLEncode(Trim(Value))
End If
End Function
End Class
Function OpenXHttp(QuUrl,QuStr)
Set XML = 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()
Set XML = Nothing
Set BytesStream = CreateObject("ADODB.Stream")
BytesStream.Type = 2
BytesStream.Open
BytesStream.WriteText IsSuccess
BytesStream.Position = 0
BytesStream.Charset = "GB2312"
BytesStream.Position = 2
StringReturn = BytesStream.ReadText
BytesStream.Close
Set BytesStream = Nothing
OpenXHttp = StringReturn
End Function
'声明截取的范围
Function GetKey(HTML,Start,Last)
filearray=split(HTML,Start)
filearray2=split(filearray(1),Last)
GetKey=filearray2(0)
End Function
Function SearchT(byval strdomain,byval key,byval t)
keys="site:"strdomain" "key
Set Reg = New PostForm
If t="baidu" then
call Reg.AddItem("wd",keys)
call Reg.AddItem("cl","3")
SearchT = OpenXHttp (Url,Reg.form)
Set Reg = Nothing
If Instr(SearchT,"百度一下，找到相关网页")>0 then
Response.write "font color=red>有"GetKey(SearchT,"百度一下，找到相关网页","篇")"条相关信息/font>"
'百度一下，找到相关网页1篇
elseif Instr(SearchT,"抱歉，没有找到与")>0 then
Response.write "无相关信息"
end if
End if
End Function
%>
!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
html xmlns="http://www.w3.org/1999/xhtml">
head>
meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
title>空间商信息查询系统/title>
Script>
function input_ok()
{form1.Submit.style.display='none';tit.style.display='block';return true;}
/Script>
/head>
body>
table width="100%" border="0" cellpadding="0" cellspacing="0">
tr>
td width="49%" valign="top">table border="0" cellspacing="0" cellpadding="0">
form action="" method="post" name="form1" id="form1">
tr>
td colspan="2">font size="5">空间商信息查询系统/font>/td>
/tr>
tr>
td colspan="2">使用办法：直接输入域名或者对方网站的名称即可！/td>
/tr>
tr>
td colspan="2">table border="0" cellspacing="0" cellpadding="3">
tr>
td>网站访问域名/td>
td>input name="strdomain" type="text" id="strdomain" value="%=request.Form("strdomain")%>"/>/td>
td>select name="st">
option value="baidu">百度/option>
/select>
/td>
td width="100">input type="submit" name="Submit" value="查询" accesskey="S" onclick="return input_ok()"/>
div style="display:none" id="tit"> font color="#FF0000">请稍候
marquee direction="right" width="20" scrollamount="3">
……
/marquee>
/font>/div>/td>
/tr>
/table>/td>
/tr>
tr>
td height="25" colspan="2">本搜索将只在一页显示所有结果，数据过多将较为耗时．/td>
/tr>
tr>
td width="20" valign="top">input type="checkbox" name="checkbox" value="checkbox" onclick="showadv()" />/td>
td width="426" valign="top" id="advancev">是否采用默认关键字、词/td>
/tr>
tr>
td colspan="2" valign="top" id="advvv" style="DISPLAY: none" name="advvv">textarea name="zff" cols="50" rows="20" wrap="virtual">%=Replace(ff,",",chr(13))%>/textarea>/td>
/tr>
tr>
td colspan="2" valign="top">nbsp;/td>
/tr>
/form>
/table>/td>
td width="51%" valign="top">%if request.Form()>"" then%>
table border="0" align="center" cellpadding="5" cellspacing="0">
tr>
td width="100">关键字/td>
td width="150">结果/td>
td width="80">nbsp;/td>
/tr>
/table>
%For i=0 to ubound(split(ff,","))%>
table border="0" align="center" cellpadding="5" cellspacing="0">
tr>
td width="100">%=split(ff,",")(i)%>/td>
td width="150">%Call SearchT(Request.Form("strdomain"),split(ff,",")(i),Request.Form("st"))%>/td>
td width="80">%if request.Form("st")="baidu" then%>
a href="http://www.baidu.com/s?wd=%=Request.Form("strdomain")%>+%=split(ff,",")(i)%>cl=3" target="_blank">详细/a>
%end if%>
/td>
/tr>
/table>
%Next%>
table border="0" align="center" cellpadding="5" cellspacing="0">
tr>
td>共查询关键字词%=ubound(split(ff,","))+1%>个．/td>
/tr>
/table>
%end if%>
/td>
/tr>
/table>
script language="JavaScript" type="text/javascript">
!--
function showadv(){
if (document.form1.checkbox.checked == true) {
document.getElementById("advvv").style.display = "block";
document.getElementById("advancev").innerHTML="自定义关键字、词（每个关键词用回车分隔或半角逗号分隔）";
}else{
document.getElementById("advvv").style.display = "none";
document.getElementById("advancev").innerHTML="默认关键字、词";
}
}
//-->
/script>
落伍【请教高手】
/body>
/html>
