Direkomendasikan: Fungsi ASP Umum: lastday () Kode Program % 'Fungsi: Tentukan apakah ada nilai dalam sumber array: http://www.cncms.com/asp.asp function inarray (svalue, aarray) redup x inarray = false untuk setiap x dalam aarray jika x = svalue kemudian inarray = true exit untuk fungsi akhir selanjutnya % end function % end quining if x = svalue kemudian inarray = true exit untuk Fungsi akhir berikutnya
<%
pada kesalahan resume berikutnya
Private d_exsit
Redup pengambilan
Domain redup
Redup diambil
Function getUrl (url)
Set Retrieval = Server.CreateObject (microsoft.xmlhttp)
Dengan pengambilan
.Open get, url, false ,,
.Mengirim
GetUrl = .responsetext
Berakhir dengan
Atur retrieval = tidak ada
Fungsi akhir
Domain = ganti (request.form (domain), www.,) &. & Request.form (ext)
jika domain = .com atau request.form (domain) = lalu
Response.write (<script> waspada ('lihat apa yang Anda lupa isi? Apakah Anda tidak mengisi nama domain?'); JavaScript: history.back (1) </ptript>)
respons.end
akhiri jika
'TakeHtml = getUrl (http://www.internic.net/cgi/whois?whois_nic=&domain&&type=domain)
TakeHtml = getUrl (http://www.china-channel.com/checkdomain.asp?action=whois&domain= & domain)
d_exsit = 1
Jika instr (TakeHtml, tidak ada entri)> 1 lalu
Response.write Domain & ada yang salah, tolong kembali! <br> <br>
kalau tidak
if instr (TakeHtml, No Match)> 1 lalu %>
Selamat, nama domain yang ingin Anda daftarkan belum terdaftar <p> <a href =#>
Klik di sini untuk mulai mendaftarkan nama domain Anda </a> </p> </font>
< % else %>
<font color = red> <br> maaf </font> Nama domain yang ingin Anda daftarkan sudah terdaftar! <p> </p> Silakan coba lagi dengan nama domain </font>
<Form Method = Post Action = Search.asp Name = CheckDomain ID = Form1>
www. <input type = nama teks = domain id = text1>
<Pilih Nama = Ext ID = Select1>
<Option value = com dipilih> .com </pection>
<Opsi value = net> .net </pection>
<Option value = org> .org </pection>
<Opsi value = com.cn> .com.cn </pection>
<Opsi value = net.cn> .net.cn </pection>
<Opsi value = org.cn> .org.cn </option>
<Nilai opsi = cc> .cc </pection>
<Option value = TV> .tv </pection>
<Opsi value = Biz> .biz </pection>
<Option value = info> .info </tiption>
</pilih>
<Input Tipe = Kirim Nama = Kirim Nilai = Kueri ID = Kirim1 OnClick = return submitchecken ();>
</form> Berikut ini adalah informasi pendaftaran terperinci untuk nama domain ini <br> </font>
<able> <tr> <td> <pe> < % = dowith () %> </pr Pre> </td> </tr> </able> </font>
<% end if
akhiri jika
Fungsi dowith ()
Redup lstrurl
Redup pageBeFore
Redup pageafter
Redup Tempcontent
Redup pagestart
Redup pageend
suhu redup
PAGEAFTER = <Pr Pre>
PageBefore = </pr Pre>
Tempcontent = TakenHtml
jika d_exsit <> 0 lalu
pagestart = instr (1, Tempcontent, PageAfter, 1)
Jika pagestart = 0 lalu
dowith = <font color = red> kesalahan tak terduga 2! </font>
d_exsit = 3
Fungsi keluar
Kalau tidak
pagestart = pagestart + len (pageafter) + 1
Pageend = Instr (PagestArt, Tempcontent, PageBefore, 1)
Jika Pageend = 0 lalu
dowith = <font color = red> kesalahan tak terduga! </font>
d_exsit = 3
Fungsi keluar
Kalau tidak
pageend = pageend - pagestart 'dapatkan panjang konten
Tempcontent = Mid (Tempcontent, Pagestart, Pageend)
Akhiri jika
Akhiri jika
Atur pageregexp = regexp baru
pageregexp.global = true
pageregexp.pattern = <[^>]*>
Tempcontent = pageregexp.replace (tempcontent,)
Atur pageregexp = tidak ada
Dowith = Tempcontent
Akhiri jika
Fungsi akhir
%>
Bagikan: Fungsi Umum ASP: CheckBoxScript () Kode Program % 'Fungsi: Digunakan untuk memeriksa nilai -nilai kotak centang yang ditentukan' Sumber: http://www.cncms.com/asp.asp Fungsi Centang Kotak (ByVal FormElement, Byval ElementValue) CHECKBOXScript = skrip pt bahasa = JavaScript = text/Javascript vbcrlf string.prototype. Checkbo