asp空间奸商查询系统(2)

日期：2020-05-13 栏目：程序人生浏览：次

    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">

转载注明出处：http://www.heiqu.com/2669.html

asp空间奸商查询系统(2)

相关推荐