使用XMLHTTP制作域名查询系统

2016-01-29 17:51 3 1 收藏

使用XMLHTTP制作域名查询系统,使用XMLHTTP制作域名查询系统

【 tulaoshi.com - ASP 】

 

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

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

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="http://panda.www.net.cn/cgi-bin/Whois.cgi?domain="&request("domain")&"&"&request("root")&"=yes&work=whois&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
%

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

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

来源:http://www.tulaoshi.com/n/20160129/1503255.html

延伸阅读
有好米域名批量查询好用吗   支持多线程,查询速度超快. 采用多线程独立查询域名是否注册,并有辅助线程查询 其它域名信息,为提高查询速度建立坚强后盾.在频繁查询时, 域名服务器,可能无法及时返回信息,可以尝试使用 查询等待, 有效避免服务器忙的域名状态. 重新查询,域名信息一个不漏 支持批量查询时,域名服务...
标签: PHP
  (主要用了两个字符串函数implode()和explode) 我制作的域名查询的源代码,主要用了两个字符串函数implode()和explode,利用这两个函数的切割字符串的强大功能,可以查询.com,.net.,org.,cc.,tv下的域名whois。 <?php echo '<center<form'; echo '<input type="text" name="string"'; echo '<in...
此教程的大致过程是增加了一个 域名信息查询的 web service ,然后使用 flash mx 2004 自带的组件,定义相关的名字,在调整好界面以后,设置好发送与接受的关系。然后就可以利用网上提供的服务,直接显示信息了。 01、域名信息查询动画教程 在线学习 下载教程 Flash Player V9.0 简体中文版,使用播放器,效果更好。
标签: ASP
  voodoo发表于 2000-06-03 22:42:07<%@ Language=VBScript % <HTML <HEAD <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0" </HEAD <BODY <form action=whois.asp method=post 域名:www<B.</B <INPUT size=8 name=domainname value="<% =request("domain...
标签: PHP
  <?   // 查询是否存在一个域名   function SearchDomain($domainName) {   // 判断域名是否合法,我对正规表达式不熟悉,那位朋友有详细资料,不妨借我一阅 :-)   // if(!eregi("*.*",$domainName)) {   // $re[0]="域名只能是字母、数字和“-”(键盘上的减号...

经验教程

269

收藏

34
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部