asp版域名查询的数据库接口 - ASP实例 - 网络编程

首页编程数据库网页图形冲浪邮件下载浏览器 QQ 系统办公软件站长安全手机邮件认证组网通信

网站首页 -> 网络编程 -> ASP实例

asp版域名查询的数据库接口

发表日期：2009-10-8

<%
on   error   resume   next
PRivate   d_exsit
Dim   Retrieval
Dim   Domain
Dim   TakenHTML
Function   GetURL(url)
          Set   Retrieval   =   Server.CreateObject("Microsoft.XMLHTTP")
                      With   Retrieval
                      .Open   "GET",   url,   False,   "",   ""
                      .Send
                      GetURL   =   .ResponseText
                      End   With
          Set   Retrieval   =   Nothing
End   Function
Domain   =   Replace(Request.Form("domain"),"www.","")   &   "."   &   Request.Form("ext")
if   Domain=".com"   or   Request.Form("domain")=""   then
Response.Write   ("<script>alert('看看您什么忘记填写了？没有填写域名吧？');javascript:history.back(1)</script>")
response.end
end   if
'TakenHTML   =   GetURL("http://www.internic.net/cgi/whois?whois_nic="&Domain&"&type=domain")
TakenHTML   =   GetURL("http://www.china-channel.com/checkdomain.asp?action=whois&domain="   &   Domain)
d_exsit=1
if   InStr(TakenHTML,"No   entries")   >   1   then

          Response.Write   Domain   &   "出错了,请返回！<br><br>"
else
          if   InStr(TakenHTML,"No   match")   >   1   then   %>
祝贺您，您想注册的域名   <%   =Domain   %>   还没有被注册<p><a   href="#"   onClick="MM_openBrWindow('../formmail/domain.htm','','scrollbars=auto,width=500,height=500')">
点击这里，开始注册您的域名</a></p></font>
<%   else   %>
              <font   color="red"><br>很抱歉</font>   您想注册的域名   <%   =Domain   %>   已经被注册了！<p></p>请您换个域名再试</font>
              <form   method="post"   action="search.asp"   name="checkdomain"   id=Form1>
                  www.<input   type="text"   name="domain"   id=Text1>
                  <select   name="ext"   id=Select1>
                      <option   value="com"   selected>.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="org.cn">.org.cn</option>
                      <option   value="cc">.cc</option>
                      <option   value="tv">.tv</option>
                      <option   value="biz">.biz</option>
                      <option   value="info">.info</option>
                  </select>
                  <input   type="submit"   name="Submit"   value="查询"   id=Submit1   onClick   =   "return   submitchecken();">
              </form>以下是此域名的详细注册信息<BR></font>
<table><tr><td><PRE><%   =dowith()   %></PRE></td></tr></table></font>
<%   end   if
end   if
Function   dowith()
Dim   lStrURL
          Dim   pagebefore
            Dim   pageafter
            Dim   tempcontent
            Dim   pagestart
            Dim   pageend
            dim   temps
                pageafter   =   "<PRE>"
                pagebefore   =   "</PRE>"
                tempcontent   =   TakenHTML
            if   d_exsit<>0   then
                pagestart   =   InStr(1,tempcontent,   pageafter,1)
                    If   pagestart   =   0   Then
                        dowith   =   "<font   color=""red"">意外的错误2!</font>"
                          d_exsit   =   3
                          Exit   Function
                    Else
                          pagestart   =   pagestart   +   Len(pageafter)   +   1
                          pageend   =   InStr(pagestart,   tempcontent,   pagebefore,1)
                              If   pageend   =   0   Then
                                  dowith   =   "<font   color=""red"">意外的错误!</font>"
                                  d_exsit   =   3
                                  Exit   Function
                            Else
                                pageend   =   pageend   -   pagestart   '得到内容长度
                                tempcontent   =   Mid(tempcontent,   pagestart,   pageend)
                            End   If
                    End   If
              Set   pageregexp   =   New   RegExp
              pageregexp.Global   =   True
              pageregexp.Pattern   =   "<[^>]*>"
              tempcontent   =   pageregexp.Replace(tempcontent,   "")
              Set   pageregexp   =   Nothing
              dowith   =   tempcontent
      End   If
End   Function
%>

上一篇：ASP利用prototype和Google的weather api做天气预报人气:9739

网站文章搜索

邮件订阅服务

输入你的邮件地址，你将不会错过任何关于<ASP实例教程>的内容

今日更新文章

·PS打造清爽艳丽的海景婚片
·Photoshop打造漂亮的黄绿色非主流MM
·PS调出MM秀丽清爽的色彩
·Photoshop打造洁白如玉的完美肌肤
·Photoshop给MM打造一幅光环艺术照
·Photoshop制作个性青黄色非主流效果
·PS给人物照片添加艺术背景
·Photoshop打造柔美的紫黄色时装美女图片
·Photoshop加强人像图片的质感并增加梦幻
·怎样让新站从开始就拥有高权重
·SEO市场的高端盈利模式详细分解
·站内高质量原创文章有利于网站优化