%@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>