热门专题:行业资讯
asp域名查询的数据库接口代码
作者:IT社区   发布日期:   2010-05-15来源: 字号: [] [] []
简 介:
<%   
  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   ("")   
  response.end   
  end   if   
  ’TakenHTML   =   GetURL("")   
  TakenHTML   =   GetURL("="   &   Domain)   
  d_exsit=1   
  if   InStr(TakenHTML,"No   entries")   >   1   then   
            
          Response.Write   Domain   &   "出错了,请返回!

"   
  else   
          if   InStr(TakenHTML,"No   match")   >   1   then   %>   
  祝贺您,您想注册的域名   <%   =Domain   %>   还没有被注册

   
  点击这里,开始注册您的域名

   
  <%   else   %>   
              
很抱歉   您想注册的域名   <%   =Domain   %>   已经被注册了!

请您换个域名再试   
                 
                     type="text"   name="domain"   id=Text1>   
                     
                      .com   
                      .net   
                      .org   
                      .com.cn   
                      .net.cn   
                      .org.cn   
                      .cc   
                      .tv   
                      .biz   
                      .info   
                     
                     
              以下是此域名的详细注册信息
   
  
<%   =dowith()   %>
   
  <%   end   if   
  end   if   
  Function   dowith()   
  Dim   lStrURL   
          Dim   pagebefore   
            Dim   pageafter   
            Dim   tempcontent   
            Dim   pagestart   
            Dim   pageend   
            dim   temps   
                pageafter   =   "
"    
                pagebefore   =   "
"   
                tempcontent   =   TakenHTML   
            if   d_exsit<>0   then   
                pagestart   =   InStr(1,tempcontent,   pageafter,1)   
                    If   pagestart   =   0   Then   
                        dowith   =   "意外的错误2!"   
                          d_exsit   =   3   
                          Exit   Function   
                    Else   
                          pagestart   =   pagestart   +   Len(pageafter)   +   1   
                          pageend   =   InStr(pagestart,   tempcontent,   pagebefore,1)   
                              If   pageend   =   0   Then   
                                  dowith   =   "意外的错误!"   
                                  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   
  %> 
// 用户登录
百容建站 - google - 百度
共同关注 - 网页制作 - 行业资讯 - 图文资讯 - 关于我们
模版制作电话:15939900631
Copyright © 2010-2012 www.yugps.cn, All Rights Reserved Powered by SiteServer CMS