夜鹰教程网-程序员的加油站
 当前位置:文章中心 >> Asp.net专题(WCF/WPF/WF)
asp域名查询的数据库接口代码
夜鹰教程网 来源:www.yyjcw.com 日期:2016-11-16 14:06:29
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教程之第十天:分页技…  下一条: IIS6架设网站的问题总结
夜鹰教程网成立于2008年,目前已经运营了将近 13 年,发布了大量关于 html5/css3/C#/asp.net/java/python/nodejs/mongodb/sql server/android/javascript/mysql/mvc/easyui/vue/echarts原创教程。 我们一直都在坚持的是:认证负责、一丝不苟、以工匠的精神来打磨每一套教程,让读者感受到作者的用心。我们默默投入的时间,确保每一套教程都是一件作品,而不是呆板的文字和视频! 目前我们推出在线辅导班试运营,模式为一对一辅导,教学工具为QQ。我们的辅导学科包括 java 、android原生开发、webapp开发、商城开发、C#和asp.net开发,winform和物联网开发、web前端开发,但不仅限于此。 普通班针对的是国内学员,例如想打好基础的大学生、想转行的有志青年、想深入学习的程序员、想开发软件的初学者或者业余爱好者等。 就业办针对即将毕业上岗的大四学生,或者打算转行的初级开发工程师。 留学生班针对的是在欧美、加拿大、澳洲、日本、韩国、新加坡等地留学的中国学子,目的是让大家熟练地掌握编程技能,按时完成老师布置的作业,并能顺利地通过考试。 详细咨询QQ:1416759661   夜鹰教程网  基于角色的权限管理系统(c-s/b-s)。
  夜鹰教程网  基于nodejs的聊天室开发视频教程
  夜鹰教程网  Git分布式版本管理视频教程
  夜鹰教程网  MVC+EasyUI视频教程
  夜鹰教程网  在线考试系统视频教程
  夜鹰教程网  MongoDB视频教程。
  夜鹰教程网 Canvas视频教程
  夜鹰教程网 报表开发视频教程
  热点推荐
表单提交中get和post方式的区别有…
解决ASP中UTF-8与GB2312编码转换乱…
asp数组中REDIM的用法(动态数组)…
生成html的新方法ASP
ASP字符串函数大全
ASP生成Word文件的代码
ASP中Randomize随机函数的使用
十天学会ASP教程之第一天:安装调…
自定义的asp日期格式化函数
防范ASP网站漏洞的八大法则之一
十天学会ASP教程之第二天:表单传…
asp中关于从utf8页面到gb2312页面…
ASP教程:实现长文章分页功能
IIS6架设网站的问题总结
五分钟打开 allow_url_fopen 的最…
  最近更新
C# Json数据中的特殊字符导致页面…
博客园是有开发博客查询相关的接口…
C#里面的ref和out区别
C#调用API让声卡发出声音
.NET使用反射读取用户自定义的枚举…
.net操作SqlServer数据库增删改查…
如何将WCF服务部署到远程服务器
对WebApi 实现服务端信息的监控
用WCF生成Restful风格的接口返回 …
只有一个地址如何调用WCF服务
WCF简介
搭一个简单的wcf服务
WCF配置说明
WCF传输的数据量过大问题的解决方…
asp.net大文件分块上传文件秒传断…

关于我们 | 网站建设 | 技术辅导 | 常见问题 | 联系我们 | 友情链接

夜鹰教程网 版权所有 www.yyjcw.com All rights reserved 备案号:蜀ICP备08011740号3