asp空間奸商查詢系統(tǒng)

更新時(shí)間：2007年10月15日 12:07:53 作者：

看到很多朋友無(wú)緣無(wú)故的被騙，特發(fā)布此查詢系統(tǒng)，以免再次上當(dāng)！
使用方法非常簡(jiǎn)單：
直接輸入對(duì)方的域名或者網(wǎng)站名稱，支持中英文！點(diǎn)查詢即可

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 
<% 
On Error Resume Next 
ff="垃圾,是垃圾,騙子,無(wú)恥,不要買,騙錢,垃圾空間,垃圾中的極品,垃圾中的垃圾,經(jīng)常掉線,無(wú)緣無(wú)故的關(guān)閉" 
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,"百度一下，找到相關(guān)網(wǎng)頁(yè)")<>0 then 
        Response.write "<font color=red>有"&GetKey(SearchT,"百度一下，找到相關(guān)網(wǎng)頁(yè)","篇")&"條相關(guān)信息</font>" 
        '百度一下，找到相關(guān)網(wǎng)頁(yè)1篇 
        elseif Instr(SearchT,"抱歉，沒(méi)有找到與")<>0 then 
        Response.write "無(wú)相關(guān)信息" 
        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>空間商信息查詢系統(tǒng)</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">空間商信息查詢系統(tǒng)</font></td> 
        </tr> 
        <tr> 
            <td colspan="2">使用辦法：直接輸入域名或者對(duì)方網(wǎng)站的名稱即可！</td> 
        </tr> 
        <tr> 
          <td colspan="2"><table border="0" cellspacing="0" cellpadding="3"> 
              <tr> 
                <td>網(wǎng)站訪問(wèn)域名</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">請(qǐng)稍候 
                      <marquee direction="right" width="20" scrollamount="3"> 
                        …… 
                      </marquee> 
                  </font></div></td> 
              </tr> 
          </table></td> 
        </tr> 
        <tr> 
          <td height="25" colspan="2">本搜索將只在一頁(yè)顯示所有結(jié)果，數(shù)據(jù)過(guò)多將較為耗時(shí)．</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">是否采用默認(rèn)關(guān)鍵字、詞</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">關(guān)鍵字</td> 
          <td width="150">結(jié)果</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 >詳細(xì)</a> 
              <%end if%> 
          </td> 
        </tr> 
      </table> 
      <%Next%> 
      <table border="0" align="center" cellpadding="5" cellspacing="0"> 
        <tr> 
          <td>共查詢關(guān)鍵字詞<%=ubound(split(ff,","))+1%>個(gè)．</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="自定義關(guān)鍵字、詞（每個(gè)關(guān)鍵詞用回車分隔或半角逗號(hào)分隔）"; 
}else{ 
    document.getElementById("advvv").style.display = "none"; 
    document.getElementById("advancev").innerHTML="默認(rèn)關(guān)鍵字、詞"; 
} 

} 
//--> 
</script> 
落伍【請(qǐng)教高手】  
</body> 
</html> 