ASP implementa código de interface de banco de dados para consulta de nome de domínio
<%
em caso de erro, retome a seguir
d_exsit privado
Recuperação escura
Domínio Escuro
Dim TakenHTML
Função GetURL(url)
Definir recuperação = Server.CreateObject(Microsoft.XMLHTTP)
Com recuperação
.Abra GET, url, Falso, ,
.Enviar
ObterURL = .ResponseText
Terminar com
Definir recuperação = nada
Função final
Domínio = Substituir(Request.Form(domínio),www.,) & .
se Domínio=.com ou Request.Form(domínio)= então
Response.Write (<script>alert( 'Olha o que você esqueceu de preencher? Você não preencheu o nome de domínio? ');javascript:history.back(1)</script>)
resposta.fim
terminar se
'TomadoHTML = GetURL()
TakenHTML = GetURL(= & Domínio)
d_exsit=1
se InStr(TakenHTML,Sem entradas) > 1 então
Response.Write Domain & Ocorreu um erro, retorne! <br><br>
outro
se InStr(TakenHTML,Sem correspondência) > 1 então %>
Parabéns, o nome de domínio <% =Domínio %> que você deseja registrar ainda não foi registrado <p>< a href=# onClick=MM_openBrWindow( '../formmail/domain.htm ', ' ', 'scrollbars=auto ,largura =500,altura=500 ')>
Clique aqui para começar a registrar seu nome de domínio</a></p></font>
<% mais %>
<font color=red& gt;<br>Desculpe</font> O nome de domínio <% =Domínio %> que você deseja registrar já foi registrado! <p></p>Altere o nome de domínio e tente novamente</font>
<método de formulário=post action=search.asp name=checkdomain id=Form1>
tipo=nome do texto=id do domínio=Texto1>
<selecionar nome=ext id=Selecionar1>
<option value=com selecionado>.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>
</selecionar>
<input type=submit name=Enviar valor= query id=Submit1 onClick = return submitchecken();>
</form>A seguir estão as informações detalhadas de registro deste nome de domínio<BR></font>
<table><tr><td><PRE><% =dowith() %></PRE></td></tr></table></font>
<% fim se
terminar se
Função dowith()
Dim lStrURL
Escurecer página antes
Escurecer página depois
Dimtempcontent
Escurecer início da página
Fim de página escuro
baixa temperatura
página seguinte = <PRE>
páginaantes = </PRE>
tempcontent = TakenHTML
se d_exsit<>0 então
pagestart = InStr(1,tempcontent, pageafter,1)
Se início da página = 0 Então
dowith = <font color=red>Erro inesperado 2!</font>
d_exsit = 3
Função de saída
Outro
início da página = início da página + Len(página seguinte) + 1
pageend = InStr(pagestart, tempcontent, pagebefore,1)
Se pageend = 0 Então
dowith = <font color=red>Erro inesperado!</font>
d_exsit = 3
Função de saída
Outro
pageend = pageend - pagestart 'Obtém o comprimento do conteúdo
tempcontent = Mid(tempcontent, pagestart, pageend)
Terminar se
Terminar se
Definir pageregexp = Novo RegExp
pageregexp.Global = Verdadeiro
pageregexp.Pattern = <[^>]*>
tempcontent = pageregexp.Replace(tempcontent, )
Definir pageregexp = Nada
dowith=tempcontent
Terminar se
Função final
%>