ASP mengimplementasikan kode antarmuka database untuk permintaan nama domain
<%
pada kesalahan lanjutkan berikutnya
D_exsit pribadi
Pengambilan Redupkan
Redupkan Domain
Redupkan DiambilHTML
Fungsi DapatkanURL(url)
Setel Pengambilan = Server.CreateObject(Microsoft.XMLHTTP)
Dengan Pengambilan
.Buka GET, url, Salah, ,
.Mengirim
GetURL = .ResponseText
Akhiri Dengan
Setel Pengambilan = Tidak Ada
Fungsi Akhir
Domain = Ganti(Request.Form(domain),www.,) & .
jika Domain=.com atau Request.Form(domain)= maka
Response.Write (<script>alert( 'Lihat apa yang lupa Anda isi? Bukankah Anda sudah mengisi nama domainnya? ');javascript:history.back(1)</script>)
respon.akhir
berakhir jika
'DiambilHTML = DapatkanURL()
DiambilHTML = DapatkanURL(= & Domain)
d_exsit=1
jika InStr(TakenHTML,Tidak ada entri) > 1 maka
Response.Write Domain & Terjadi kesalahan, silakan kembali! <br><br>
kalau tidak
jika InStr(DiambilHTML,Tidak cocok) > 1 maka %>
Selamat, nama domain <% =Domain %> yang ingin Anda daftarkan belum terdaftar<p>< a href=# onClick=MM_openBrWindow( '../formmail/domain.htm ', ' ', 'scrollbars=auto ,lebar =500,tinggi=500 ')>
Klik di sini untuk mulai mendaftarkan nama domain Anda</a></p></font>
<% lain %>
<font color=red& gt;<br>Maaf</font> Nama domain <% =Domain %> yang ingin Anda daftarkan telah terdaftar! <p></p>Silakan ubah nama domain dan coba lagi</font>
<metode formulir=tindakan posting=pencarian.asp nama=periksa id domain=Form1>
ketik=nama teks=id domain=Teks1>
<pilih nama=ext id=Pilih1>
<nilai opsi=com dipilih>.com</option>
<nilai opsi=net>.net</option>
<option value=org>.org</option>
<nilai opsi=com.cn>.com.cn</option>
<nilai opsi=net.cn>.net.cn</option>
<option value=org.cn>.org.cn</option>
<nilai opsi=cc>.cc</option>
<nilai opsi=tv>.tv</option>
<nilai opsi=biz>.biz</option>
<nilai opsi=info>.info</option>
</pilih>
<tipe input=nama kirim=Kirim nilai= id kueri=Kirim1 onClick = kembalikan kirimchecken();>
</form>Berikut adalah informasi detail pendaftaran nama domain ini<BR></font>
<tabel><tr><td><PRE><% =dowith() %></PRE></td></tr></table></font>
<% berakhir jika
berakhir jika
Fungsi lakukan()
Redupkan lStrURL
Redupkan halaman sebelumnya
Redupkan halaman setelahnya
Konten sementara
Redupkan halaman awal
Redupkan halaman akhir
suhu redup
halamansetelah = <PRE>
halamansebelum = </PRE>
konten sementara = DiambilHTML
jika d_exsit<>0 maka
pagestart = InStr(1,tempcontent, pageafter,1)
Jika pagestart = 0 Maka
dowith = <font color=red>Kesalahan tak terduga 2!</font>
d_exsit = 3
Fungsi Keluar
Kalau tidak
pagestart = pagestart + Len(halaman setelah) + 1
pageend = InStr(pagestart, tempcontent, pagebefore,1)
Jika akhir halaman = 0 Maka
dowith = <font color=red>Kesalahan tak terduga!</font>
d_exsit = 3
Fungsi Keluar
Kalau tidak
pageend = pageend - pagestart 'Dapatkan panjang konten
tempcontent = Pertengahan(tempcontent, pagestart, pageend)
Akhiri Jika
Akhiri Jika
Setel pageregexp = RegExp Baru
pageregexp.Global = Benar
pageregexp.Pattern = <[^>]*>
tempcontent = pageregexp.Replace(tempcontent, )
Setel pageregexp = Tidak Ada
dowith=konten sementara
Akhiri Jika
Fungsi Akhir
%>