asp实现域名解析的数据库组件代码

发布时间：2023-07-15 14:30:46 所属栏目：Asp教程来源：

导读：asp实现域名查询的数据库接口代码

<%

on error resume next

Private d_exsit

Dim Retrieval

Dim Domain

Dim TakenHTML

Function GetURL

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"& gt;<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

  %>

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!