ASP implémente le code d'interface de base de données pour la requête de nom de domaine
<%
en cas d'erreur, reprendre ensuite
Sortie privée
Récupération de faible luminosité
Domaine faible
Faible priseHTML
Fonction GetURL(url)
Définir la récupération = Server.CreateObject (Microsoft.XMLHTTP)
Avec récupération
.Ouvrez GET, url, False, ,
.Envoyer
GetURL = .ResponseText
Terminer par
Définir la récupération = Rien
Fonction de fin
Domaine = Remplacer(Request.Form(domain),www.,) & .Request.Form(ext)
si Domain=.com ou Request.Form(domain)= alors
Response.Write (<script>alert( 'Regardez ce que vous avez oublié de remplir ? Vous n'avez pas renseigné le nom de domaine ? ');javascript:history.back(1)</script>)
réponse.end
finir si
'PrisHTML = GetURL()
TakenHTML = GetURL (= & Domaine)
d_sortie=1
si InStr(TakenHTML,Aucune entrée) > 1 alors
Response.Write Domain & Une erreur s'est produite, veuillez revenir ! <br><br>
autre
si InStr(TakenHTML,Aucune correspondance) > 1 alors %>
Félicitations, le nom de domaine <% =Domain %> que vous souhaitez enregistrer n'a pas encore été enregistré<p>< a href=# onClick=MM_openBrWindow( '../formmail/domain.htm ', ' ', 'scrollbars=auto ,largeur =500,hauteur=500 ')>
Cliquez ici pour commencer à enregistrer votre nom de domaine</a></p></font>
<% autre %>
<font color=red& gt;<br>Désolé</font> Le nom de domaine <% =Domain %> que vous souhaitez enregistrer a déjà été enregistré ! <p></p>Veuillez modifier le nom de domaine et réessayer</font>
<form method=post action=search.asp name=checkdomain id=Form1>
type=nom du texte=identifiant du domaine=Texte1>
<select name=ext id=Select1>
<option value=com sélectionné>.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>
</sélectionner>
<input type=submit name=Submit value= query id=Submit1 onClick = return submitchecken();>
</form>Voici les informations d'enregistrement détaillées pour ce nom de domaine<BR></font>
<table><tr><td><PRE><% =dowith() %></PRE></td></tr></table></font>
<% fin si
finir si
Fonction dowith()
Faible lStrURL
Faible pageavant
Faible page après
Contenu Dimtemp
Faible début de page
Fin de page sombre
temps sombre
pageaprès = <PRE>
pageavant = </PRE>
tempcontent = PrisHTML
si d_exsit<>0 alors
début de page = InStr(1,tempcontent, pageafter,1)
Si début de page = 0 Alors
dowith = <font color=red>Erreur inattendue 2 !</font>
d_sortie = 3
Fonction de sortie
Autre
début de page = début de page + Len (pageaprès) + 1
pageend = InStr(pagestart, tempcontent, pagebefore,1)
Si fin de page = 0 Alors
dowith = <font color=red>Erreur inattendue !</font>
d_sortie = 3
Fonction de sortie
Autre
pageend = pageend - pagestart 'Obtenir la longueur du contenu
tempcontent = Milieu (tempcontent, début de page, fin de page)
Fin si
Fin si
Définir pageregexp = Nouvelle RegExp
pageregexp.Global = Vrai
pageregexp.Pattern = <[^>]*>
tempcontent = pageregexp.Replace(tempcontent, )
Définir pageregexp = Rien
dowith=tempcontent
Fin si
Fonction de fin
%>