Verifikasi registrasi mencegah nama pengguna memasukkan spasi, asp menggantikan karakter khusus dalam kode fungsi batch check.asp
Copy kode kodenya sebagai berikut:
<%
'''''''''''''''''''''''''''''''
Fungsi GantiTeks(fString,patrn,replStr)
Setel regEx = RegExp Baru ' Buat ekspresi reguler.
regEx.Pattern = pola ' Tetapkan pola.
regEx.IgnoreCase = True ' Setel apakah peka huruf besar-kecil.
regEx.Global = Benar ' Tetapkan ketersediaan global.
GantiTeks = regEx.Ganti(&fString&,&replStr&) 'Ganti.
Setel regEx=tidak ada
Fungsi Akhir
'''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''
Fungsi HTMLEncode(fString)
fString=Potong(fString)
fString=Ganti(fString,CHR(9),)
fString=Ganti(fString,CHR(13),)
fString=Ganti(fString,CHR(22),)
fString=Ganti(fString,CHR(38),&) '&
fString=Ganti(fString,CHR(32), ) '
fString=Ganti(fString,CHR(34),) '
fString=Ganti(fString,CHR(37),%) '%
fString=Ganti(fString,CHR(39),') ''
fString=Ganti(fString,CHR(42),*) '*
fString=Ganti(fString,CHR(43),+) '+
fString=Ganti(fString,CHR(44),,) ',
fString=Ganti(fString,CHR(45)&CHR(45),--) '--
fString=Ganti(fString,CHR(92),/) '/
'fString=Ganti(fString,CHR(95),_) '_
fString=Ganti(fString,CHR(40),() '(
fString=Ganti(fString,CHR(41),)) ')
fString=Ganti(fString,CHR(60),<) '<
fString=Ganti(fString,CHR(62),>) '>
fString=Ganti(fString,CHR(123),{) '{
fString=Ganti(fString,CHR(125),}) '}
fString=Ganti(fString,CHR(59),;) ';
fString=Ganti(fString,CHR(10),<br>)
fString=ReplaceText(fString,([&#])([a-z0-9]*);,$1$2;)
fString=ReplaceText(fString,(fuck|sialan),string(len(&$1&),*))
jika IsSqlDataBase=0 lalu 'Filter Katakana (karakter Jepang) [/u30A0-/u30FF] oleh yuzi
fString=melarikan diri(fString)
fString=ReplaceText(fString,%u30([AF][0-F]),0$1;)
fString=unscape(fString)
berakhir jika
HTMLEncode=fString
Fungsi Akhir
'''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''
FungsiRequestInt(fString)
RequestInt=Permintaan(fString)
jika IsNumeric(RequestInt) maka
PermintaanInt=int(PermintaanInt)
kalau tidak
PermintaanInt=0
berakhir jika
Fungsi Akhir
'''''''''''''''''''''''''''''''
Nama Pengguna=HTMLEncode(unescape(Permintaan.QueryString(NamaPengguna)))
Panjang NamaPengguna=RequestInt(PanjangNamaPengguna)
Jika len(NamaPengguna)<>Panjang NamaPengguna Lalu
respon.tulis nama pengguna adalah ilegal!
Kalau tidak
respon.tulis nama pengguna itu sah!
Akhiri Jika
%>
Fungsi HTMLEncode adalah langkah penting untuk mengubah nama pengguna menjadi karakter resmi.
Fungsi RequestInt terutama menentukan apakah nama pengguna mengandung spasi berdasarkan jumlah karakter valid yang dimasukkan.
Metode pemanggilan: check.asp?UserName=nama pengguna&UserNameLength=panjang nama pengguna
check.asp umumnya digunakan untuk penilaian Ajax