ASP implementa código de interfaz de base de datos para consultas de nombres de dominio
<%
en caso de error reanudar siguiente
salida_privada
Recuperación tenue
Dominio tenue
Dim tomadoHTML
Función ObtenerURL(url)
Establecer recuperación = Server.CreateObject(Microsoft.XMLHTTP)
Con recuperación
.Abrir GET, URL, Falso, ,
.Enviar
ObtenerURL = .TextoRespuesta
Terminar con
Establecer recuperación = nada
Función final
Dominio = Reemplazar (Solicitud.Formulario (dominio), www.,) & & Solicitud.Formulario (ext)
si Dominio=.com o Request.Form(dominio)= entonces
Response.Write (<script>alert( '¿Mira lo que olvidaste completar? ¿No ingresaste el nombre de dominio? ');javascript:history.back(1)</script>)
respuesta.fin
terminar si
'TomadoHTML = ObtenerURL()
TakenHTML = GetURL(= & Dominio)
d_exsit=1
si InStr(TakenHTML,No hay entradas) > 1 entonces
Response.Write Domain & Se produjo un error, ¡devuélvalo! <br><br>
demás
si InStr(TakenHTML,No coincide) > 1 entonces %>
Felicitaciones, el nombre de dominio <% =Dominio %> que desea registrar aún no ha sido registrado <p>< a href=# onClick=MM_openBrWindow( '../formmail/domain.htm ', ' ', 'scrollbars=auto ,ancho =500,alto=500')>
Haga clic aquí para comenzar a registrar su nombre de dominio</a></p></font>
<% más %>
<font color=red& gt;<br>Lo sentimos</font> ¡El nombre de dominio <% =Dominio %> que deseas registrar ya ha sido registrado! <p></p>Cambie el nombre de dominio e inténtelo de nuevo</font>
<método de formulario=acción de publicación=search.asp nombre=checkdomain id=Form1>
tipo=nombre de texto=id de dominio=Texto1>
<seleccionar nombre=ext id=Seleccionar1>
<opción valor=com seleccionado>.com</opción>
<opción valor=net>.net</opción>
<opción valor=org>.org</opción>
<opción valor=com.cn>.com.cn</opción>
<opción valor=net.cn>.net.cn</opción>
<opción valor=org.cn>.org.cn</opción>
<opción valor=cc>.cc</opción>
<opción valor=tv>.tv</opción>
<opción valor=biz>.biz</option>
<opción valor=info>.info</opción>
</seleccionar>
<tipo de entrada=nombre de envío=valor de envío= ID de consulta=Enviar1 onClick = devolver checken();>
</form>La siguiente es la información de registro detallada para este nombre de dominio<BR></font>
<table><tr><td><PRE><% =dowith() %></PRE></td></tr></table></font>
<% final si
terminar si
Función hacer con()
lStrURL tenue
página oscura antes
página tenue después
Contenido de temperatura tenue
Inicio de página oscuro
final de página oscuro
temperaturas bajas
páginadespués = <PRE>
paginaantes = </PRE>
contenido temporal = HTML tomado
si d_exsit<>0 entonces
inicio de página = InStr(1, contenido temporal, página después, 1)
Si inicio de página = 0 Entonces
dowith = <font color=red>¡Error inesperado 2!</font>
d_exsit = 3
Función de salida
Demás
inicio de página = inicio de página + Len(página después) + 1
final de página = InStr(inicio de página, contenido temporal, página anterior,1)
Si final de página = 0 Entonces
dowith = <font color=red>¡Error inesperado!</font>
d_exsit = 3
Función de salida
Demás
pageend = pageend - pagestart 'Obtener la longitud del contenido
contenido temporal = Medio (contenido temporal, inicio de página, final de página)
Terminar si
Terminar si
Establecer pageregexp = Nueva RegExp
pageregexp.Global = Verdadero
pageregexp.Patrón = <[^>]*>
contenido temporal = pageregexp.Replace(contenido temporal,)
Establecer pageregexp = Nada
hacer con = contenido temporal
Terminar si
Función final
%>