您的位置:首页技术开发ASP教程 → asp域名查询的数据库接口代码

asp域名查询的数据库接口代码

时间:2010/2/1 17:16:00来源:本站整理作者:我要评论(0)

asp域名查询的数据库接口代码:

<%   
  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("")   
  TakenHTML   =   GetURL("="   &   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>   
                     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下面javascript上传图片限制格式大小方法ie6下面asp.net mvc3 部署应用程序ASP网站安装不成功的解决办法asp的日期转换星座函数快速掌握ASP连接11种数据库的常用语法ASP将access数据导出为excel电子表的方法技巧:用ASP在线创建Word与Excel文档ASP木马密码加密的破解方法

文章评论
发表评论

热门文章 没有查询到任何记录。

最新文章 《龙珠:超宇宙》 战斗E3 2014:瘆人僵尸《消 asp代码实现access数据导出到excel文件如何使用FSO读取Js文件内容并可以编辑修改对初学者有用的一些asp函数集学习ASP编程必会的代码

人气排行 asp代码实现access数据导出到excel文件asp不需要任何配置的伪静态实现如何使用FSO读取Js文件内容并可以编辑修改asp去除html标记和空格的代码Asp全选删除代码教大家网页伪静态知识及其2种实现方法Microsoft SQL Server 7.0安装问题(一)ASP.NET中的Code Behind技术4