Empfohlen: gemeinsame ASP -Funktionen: Lastday () Programmcode % 'Funktion: Bestimmen Sie, ob ein Wert in einer Array -Source vorhanden ist
<%
Bei der nächsten Fehleraufnahme als nächstes
Private d_xsity
Schwaches Abruf
Dunkle Domäne
Dim Takenhtml
Funktion geturl (URL)
Retrieval = server.createObject (microsoft.xmlhttp) festlegen.
Mit Abruf
.Open bekommen, url, falsch,,
.Schicken
Geturl = .responsetext
Enden mit
Retrieval einstellen = nichts
Endfunktion
Domain = Ersatz (Request.Form (Domain), www.,) &. & Request.form (ext)
Wenn domain = .com oder request.form (domain) = dann
Response.write (<Script> alert ('Sehen Sie sich an, was Sie vergessen haben zu ausfüllen? Haben Sie den Domain -Namen nicht ausgefüllt?'); JavaScript: History.back (1) </script>)
Antwort.end
Ende wenn
'Takenhtml = Geturl (http://www.internic.net/cgi/Whois?whois_nic=&domain&&type=domain)
Takenhtml = geturl (http://www.china-channel.com/checkdomain.asp?action=whois&domain= & Domain)
d_exsit = 1
Wenn Instrument (taken
Antwort.Write Domain und etwas ist schief gelaufen, bitte kehren Sie zurück! <br> <br>
anders
Wenn Instrument (taken
Herzlichen Glückwunsch, der Domain -Name, den Sie registrieren möchten, ist noch nicht registriert. <p> <a href =#>
Klicken Sie hier, um mit der Registrierung Ihres Domänennamens </a> </p> </font> zu starten
< % sonst %>
<font color = rot> <br> sorry </font> Der Domänenname, den Sie registrieren möchten, ist bereits registriert! <p> </p> Bitte versuchen Sie es erneut mit einem Domänennamen </font>
<formmethode = post action = such.asp name = checkdomain id = Form1>
www. <Eingabe type = text name = domain id = text1>
<select name = ext id = select1>
<Option Value = com ausgewählt> .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>
<Eingabe type = Sendename = Senden value = Abfrage -ID = Subjekte1 onclick = Rückgabe -Submchecken ();>
</form> Folgende Informationen finden Sie in den detaillierten Registrierungsinformationen für diesen Domänennamen <br> </font>
<table> <tr> <td> <pre> < % = dowith () %> </pre> </td> </tr> </table> </font>
<% Ende wenn
Ende wenn
Funktion Dowith ()
Dim lsturl
Dim Pagebefore
Dimer Fest
Dim Tempcontent
Dimer Pageestart
Dim Pageend
Dim Temperaturen
pagedher = <pre>
pagebefore = </pre>
tempContent = takenhtml
Wenn d_exsit <> 0 dann
pagestart = Instrument (1, TempContent, Page *, 1)
Wenn PageStart = 0 dann
dowith = <font color = rot> unerwarteter Fehler 2! </font>
d_exsit = 3
Ausgangsfunktion
Anders
pagestart = pagestart + len (pagedter) + 1
pageend = instr (pagestart, tempcontent, pagebefore, 1)
Wenn pageend = 0 dann
dowith = <font color = rot> unerwarteter Fehler! </font>
d_exsit = 3
Ausgangsfunktion
Anders
pageend = pageend - pagestart 'Inhaltslänge erhalten
tempContent = Mid (TempContent, PageStart, Pageend)
Ende wenn
Ende wenn
Setzen Sie PageReGexp = New Regexp
pageregexp.global = true
pageregexp.pattern = <[^>]*>
tempcontent = pageregexp.replace (tempcontent,)
Setzen Sie PageReGexp = nichts
dowith = tempcontent
Ende wenn
Endfunktion
%>
Teilen: Häufige Funktionen von ASP: CheckBoxScript () Programmcode % 'Funktion: Wird verwendet, um zu überprüfen, welche Werte des angegebenen Kontrollkästchens' Quelle: http://www.cncms.com/spasp.asp.spokboxScript (Byval Formelement, Byval ElementValue) CheckBoxScript = Skript IPT Language = JavaScript type = text/javascript vbcrlf String.Protecript. Checkbo