<%
'***********************************
'Fungsi: isValidusername (byvalusername)
'Parameter: Nama pengguna, nama pengguna
'Penulis: Alixi
'Tanggal: 2007/7/15
'Deskripsi: Verifikasi apakah nama pengguna berisi karakter ilegal, tanpa karakter ilegal kembali: true
'Contoh: isValidusername (byvalusername)
'***********************************
FunctionIsValidusername (byvalusername)
Dimi, c
IsValidusername = true
Fori = 1tolen (nama pengguna)
c = lcase (mid (nama pengguna, i, 1))
Ifinstr ("$! <>?#^%@~` &*() ;:+= '"" ", c)> 0then
IsValidusername = false
Fungsi keluar
Endif
Berikutnya
Fungsi endfungsi
%>