ASP implementiert Datenbankschnittstellencode für die Abfrage von Domänennamen
<%
Bei Fehler als nächstes fortfahren
Privat d_exsit
Dunkler Abruf
Domäne abdunkeln
Dim TakenHTML
Funktion GetURL(URL)
Set Retrieval = Server.CreateObject(Microsoft.XMLHTTP)
Mit Abruf
.Öffnen Sie GET, URL, False, ,
.Schicken
GetURL = .ResponseText
Ende mit
Abruf festlegen = Nichts
Funktion beenden
Domain = Ersetzen(Request.Form(domain),www.,) & .
wenn Domain=.com oder Request.Form(domain)= dann
Response.Write (<script>alert( 'Sehen Sie, was Sie vergessen haben auszufüllen? Haben Sie den Domainnamen nicht eingegeben? ');javascript:history.back(1)</script>)
Antwort.Ende
Ende wenn
'TakenHTML = GetURL()
TakenHTML = GetURL(= & Domain)
d_exsit=1
wenn InStr(TakenHTML,Keine Einträge) > 1 dann
Response.Write Domain & Es ist ein Fehler aufgetreten, bitte zurückgeben! <br><br>
anders
wenn InStr(TakenHTML,No match) > 1 dann %>
Herzlichen Glückwunsch, der Domainname <% =Domain %>, den Sie registrieren möchten, wurde noch nicht registriert <p>< a href=# onClick=MM_openBrWindow( '../formmail/domain.htm ', ' ', 'scrollbars=auto ,Breite =500,Höhe=500 ')>
Klicken Sie hier, um mit der Registrierung Ihres Domainnamens zu beginnen</a></p></font>
<% sonst %>
<font color=red& gt;<br>Entschuldigung</font> Der Domainname <% =Domain %>, den Sie registrieren möchten, wurde bereits registriert! <p></p>Bitte ändern Sie den Domainnamen und versuchen Sie es erneut</font>
<form method=post action=search.asp name=checkdomain id=Form1>
Typ=Textname=Domänen-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>
<Eingabetyp=Submit-Name=Submit-Wert=Abfrage-ID=Submit1 onClick = return subscribechecken();>
</form>Im Folgenden finden Sie detaillierte Registrierungsinformationen für diesen Domainnamen<BR></font>
<table><tr><td><PRE><% =dowith() %></PRE></td></tr></table></font>
<% end if
Ende wenn
Funktion dowith()
Dimmen Sie lStrURL
Seite vorher abblenden
Seite danach abblenden
Dimtempcontent
Seitenanfang abblenden
Dunkles Seitenende
gedämpfte Temperaturen
pageafter = <PRE>
pagebefore = </PRE>
tempcontent = TakenHTML
wenn d_exsit<>0 dann
pagestart = InStr(1,tempcontent, pageafter,1)
Wenn pagestart = 0, dann
dowith = <font color=red>Unerwarteter Fehler 2!</font>
d_exsit = 3
Exit-Funktion
Anders
pagestart = pagestart + Len(pageafter) + 1
pageend = InStr(pagestart, tempcontent, pagebefore,1)
Wenn pageend = 0, dann
dowith = <font color=red>Unerwarteter Fehler!</font>
d_exsit = 3
Exit-Funktion
Anders
pageend = pageend - pagestart 'Inhaltslänge abrufen
tempcontent = Mid(tempcontent, pagestart, pageend)
Ende wenn
Ende wenn
Legen Sie pageregexp = New RegExp fest
pageregexp.Global = True
pageregexp.Pattern = <[^>]*>
tempcontent = pageregexp.Replace(tempcontent, )
Setze pageregexp = Nichts
dowith=tempcontent
Ende wenn
Funktion beenden
%>