温馨提示×

温馨提示×

您好,登录后才能下订单哦!

密码登录×
登录注册×
其他方式登录
点击 登录注册 即表示同意《亿速云用户服务条款》

使用XMLHTTP制作域名查询系统的案例分析

发布时间:2020-08-25 11:41:44 来源:亿速云 阅读:399 作者:小新 栏目:编程语言

这篇文章给大家分享的是有关使用XMLHTTP制作域名查询系统的案例分析的内容。小编觉得挺实用的,因此分享给大家做个参考。一起跟随小编过来看看吧。

如何使用XMLHTTP制作域名查询系统的代码案例

<%
On Error Resume Next
Server.ScriptTimeOut=9999999
Function getHTTPPage(Path)
     t = GetBody(Path)
  getHTTPPage=BytesToBstr(t,"GB2312")
End function
   
Function GetBody(url)
     on error resume next
     Set Retrieval = CreateObject("Microsoft.XMLHTTP")
     With Retrieval
     .Open "Get", url, False, "", ""
     .Send
     GetBody = .ResponseBody
     End With
     Set Retrieval = Nothing
End Function
   
Function BytesToBstr(body,Cset)
     dim objstream
     set objstream = Server.CreateObject("adodb.stream")
     objstream.Type = 1
     objstream.Mode =3
     objstream.Open
     objstream.Write body
     objstream.Position = 0
     objstream.Type = 2
     objstream.Charset = Cset
     BytesToBstr = objstream.ReadText
     objstream.Close
     set objstream = nothing
End Function
%>
<%
if request("domain")<>"" then
'url=" 
referer=http://panda.www.net.cn/cgi-bin/Check.cgi?domain="&request("domain")
url="http://panda.www.net.cn/cgi-bin/Check.cgi?domain="&request("domain")&"&ext="&request("root")
wstr=getHTTPPage(url)
'www.knowsky.com
'response.write Instr (wstr,"可以注册") 
  if instr(lcase(wstr),"已被注册的域名")>0 then
   body="域名已经被注册"
  elseif instr(lcase(wstr),"未被注册的域名")>0 then
  body="域名未被注册"
  else
   body="网络延迟,请重新查找"
  end if                                  
end if
%>
   
<table width="40%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#999999">
  <tr>
   <td height="26" bgcolor="efefef">域名查询系统:<% if request("domain")>"" then response.Write(request("domain")&"."&request("root")&body) end if%></td>
  </tr>
  <tr>
   <td bgcolor="#FFFFFF"><form name="form1" method="post" action=""><table width="100%" border="0" cellspacing="1" cellpadding="1">
     <tr>
      
       <td height="36"> <div align="center">www.
         <input type="text" name="domain">
         <select name="root" id="select">
          <option value="cn" selected>.cn</option>
          <option value="com">.com</option>
          <option value="net">.net</option>
          <option value="org">.org</option>
          <option value="com.cn">.com.cn</option>
          <option value="net.cn">.net.cn</option>
          <option value="gov.cn">.gov.cn</option>
         </select>
        </div></td>
     
     </tr>
     <tr>
      <td height="35">
<div align="center">
        <input type="submit" name="Submit" value=" 查 询 ">
       </div>
       <div align="center"></div></td>
     </tr>
    </table></form></td>
  </tr>
</table>
   
<p align="center">&nbsp;</p>
<table width="40%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#999999">
  <tr>
   <td height="42" bgcolor="#FFFFFF">
<FORM name=search_form action='http://search.sohu.com/web' method=get target=_blank>
     <div align="center">
      <input type="hidden" name="pid" value="hljec">
      <input name="query" type="text" style="font-size:14px;width:150" value="好域名">
      <input type="submit" name="ss" value="查看"onclick=document.search_form.action='http://search.sohu.com/web' style="font-size:14px;width=40;height=20">
      &nbsp;</div>
    </FORM></td>
  </tr>
</table>

代码我已经在本地测试过了。正常通过。

感谢各位的阅读!关于使用XMLHTTP制作域名查询系统的案例分析就分享到这里了,希望以上内容可以对大家有一定的帮助,让大家可以学到更多知识。如果觉得文章不错,可以把它分享出去让更多的人看到吧!

向AI问一下细节

免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。

AI