asp空间奸商查询系统

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