Saya menggunakan kode javascript verifikasi bentuk ASP yang dihasilkan secara dinamis di internet dan memperluasnya sendiri. Saya lupa nama penulis, tetapi saya ingat dengan jelas bahwa kode dari Pasal 1 ke Pasal 9 adalah semua karya asli penulis. Adapun artikel sembilan hingga lima belas, saya menambahkannya sendiri. Selain itu, karena tingkat saya yang terbatas, dari Pasal 9 hingga Pasal 15, mungkin tidak berlaku semuanya? Haha, sebenarnya tidak perlu mempostingnya di sini, karena semua orang dapat menggunakan trik kecil ini. Saya memposisikan fungsinya sebagai: ketika Anda tidak dapat menemukan fungsi selama pengembangan, Anda bisa menyalinnya di sini. Haha, karena saya tidak memiliki pembakar atau hard drive seluler. Benar -benar tidak ada cara untuk membawa kode -kode ini, tetapi untungnya, Anda dapat mengakses internet di mana saja di Beijing. Jadi letakkan ini di sini, gunakan Ctrl+C, lalu Ctrl+V.
<% '********************************************************************
'Nama fungsi: checkForm_js (frmname, errstr)
Fungsi: Gunakan metode ASP untuk secara dinamis menulis fungsi verifikasi bentuk javascript checksubmit ()
'Metode Penggunaan: 1. <!-IncludeFile = URL+Halaman di mana fungsi ini berada>;
'2. <formoSubmit = "JavaScript: returnCheckSubmit ()">;
'Penulis asli telah dilupakan, penulis pengembangan kedua: Guo.qm
'Pembaruan Terakhir: 2004
'********************************************************************
'membantu:
'-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'· Deskripsi Partikel:
'frmname: nama bidang formulir
'errstr: Verifikasi daftar, seperti: "num | 3 | model tidak boleh kurang dari 8 digit | 8, email | 5 | silakan masukkan format email yang benar", di sini
'NUM mewakili nama bidang formulir, 3 mewakili parameter verifikasi, 8 mewakili jumlah digit yang tidak kurang dari (opsional)
'
'· Daftar Parameter Verifikasi:
'0: Jenis teks yang diperlukan
'1: Jenis ListMenu yang Diperlukan
'2: Harus berupa jenis teks nomor
'3: Harus berupa jenis teks dari jumlah digit yang ditentukan
'4: Jenis teks harus lebih besar dari jumlah digit yang ditentukan
'5: Harus Jenis Email Teks
'6: Harus AZ atau karakter 0-9
'7: Konfirmasikan kata sandi dan kata sandi harus sama dengan jenis teks
'8: Konfirmasikan bahwa itu bukan jenis teks yang dimulai dengan angka
'9: Harus berisi jenis teks dalam format 10-888888
'10: Jenis teks yang tidak dapat berisi bahasa Cina, spasi, dan karakter ilegal lainnya, yaitu, mereka hanya dapat berisi "_" "-" "-" "0-9" "AZ" AZ "
'11: Harus hanya memasukkan nomor dan "-"
'12: Harus menjadi jenis teks URL yang benar
'13: harus kurang dari jumlah tipe teks digit yang ditentukan
'14: Jenis teks yang tidak boleh berisi tag HTML
'15: Konfirmasikan bahwa tipe pilih tidak dinonaktifkan harus memilih format: item formulir yang diperiksa | 15 | Informasi Prompt | Item Asosiasi "
'Catatan: Jika ada menu cascading, silakan letakkan proses verifikasi menu cascading ke inspeksi terakhir! Lai Lai Lai
'-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
%>
<%
Subcheckform_js (frmname, errstr)
DIMTMPARR
Dimi
String output js dimstrshow
'Dapatkan daftar kesalahan, buat array
tmparr = split (errstr, ",")
'Menulis JS
fori = 0toubound (tmparr)
ifi <> 0then
strshow = strshow & "else" & findjs (frmname, tmparr (i))
kalau tidak
strshow = strshow & findjs (frmname, tmparr (i))
endif
Berikutnya
'Keluaran
strshow = "<scriptLanguage = javascript>" & vbcrlf & _
"<!-" & vbcrlf & _
"// powerbyguoquanman2004" & vbcrlf & _
"FunctionCheckSubmit ()" & vbcrlf & _
"{" & vbcrlf & _
"varemailreg =/^[_ a-z0-9]+@([_ a-z0-9]+/.)+[a-z0-9] {2,3} $/;" & vbcrlf & _
"varpwdreg =/[a-z0-9] $/;" & vbcrlf & _
"VARUIDBEGINREG =/^[0-9]+[_ A-Z0-9]/;" & vbcrlf & _
"varphonereg = // d {2}-/d {5}/;" & vbcrlf & _
"varphonedetailreg =/[^0-9/-]/;" & vbcrlf & _
"varuidreg =/[^a-za-z0-9 _/-]/;" & vbcrlf & _
"varhtmlreg =/<(.*)>.*</// 1>/;" & vbcrlf & _
"varre1 =/^http: //// [a-za-z] [a-za-z0-9/-]*[a-za-z]*/./;" & vbcrlf & _
"varre2 =/^http: //// [0-9] {1,5} [a-za-z]*[0-9]*/./;" & vbcrlf & _
"varre3 = //. {2,}/;" & vbcrlf & _
"varre4 = //: {2,}/;" & vbcrlf & _
"varre5 = /// {3,}/;" & vbcrlf & _
"varre6 = //,+/;" & vbcrlf & _
"varre7 = //!+/;" & vbcrlf & _
"varre8 = //@+/;" & vbcrlf & _
"varre9 = //#+/;" & vbcrlf & _
"varre10 = // $+/;" & vbcrlf & _
"varre11 = //^+/;" & vbcrlf & _
"varre12 = //*+/;" & vbcrlf & _
"varre13 = // |+/;" & vbcrlf & _
"varre14 = //. [a-z0-9 _ & =? //]*[a-za-z0-9 /// ~] {2,} $/;" & vbcrlf & _
Strshow & _
"else" & vbcrlf & _
"returntrue;" & vbcrlf & _
"}" & vbcrlf & _
"//->" & vbcrlf & _
"</script>"
Response.writesstrshow
Endsub
FunctionFindjs (frmname, errstr)
DIMTMPARR
Dimi
'Nilai parameter
i = 0
'Dapatkan daftar kesalahan, buat array
tmparr = split (errstr, "|")
'Kondisi kueri output
SelectCasetMparr (i+1)
Jenis teks yang diperlukan untuk kasing "0" '
findjs = "if ((dokumen." & frmname & "." & tmparr (i) & ". value) ==" "") "& vbcrlf & _
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"Dokumen." & Frmname & "." & Tmparr (i) & ". Pilih ();" & vbcrlf & _
"Dokumen." & Frmname & "." & Tmparr (i) & ". Focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Fungsi keluar
Jenis Daftar yang Diperlukan untuk Kasus "1"
findjs = "if ((dokumen." & frmname & "." & tmparr (i) & ". value) ==" "") "& vbcrlf & _
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"Dokumen." & Frmname & "." & Tmparr (i) & ". Focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Fungsi keluar
Kasing "2" 'harus menjadi jenis teks dari nomor tersebut
findjs = "if (isnan (dokumen." & frmname & "." & tmparr (i) & ". value))" & vbcrlf & _
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"Dokumen." & Frmname & "." & Tmparr (i) & ". Pilih ();" & vbcrlf & _
"Dokumen." & Frmname & "." & Tmparr (i) & ". Focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Fungsi keluar
Kasus "3" 'harus menjadi jenis teks dari jumlah digit yang ditentukan
findjs = "if (document." & frmname & "." & tmparr (i) & ". value.length! =" & tmparr (i+3) & ")" & vbcrlf & _
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"Dokumen." & Frmname & "." & Tmparr (i) & ". Pilih ();" & vbcrlf & _
"Dokumen." & Frmname & "." & Tmparr (i) & ". Focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Fungsi keluar
Kasus "4" 'harus lebih besar dari jenis teks dari jumlah digit yang ditentukan
findjs = "if (document." & frmname & "." & tmparr (i) & ". value.length <" & tmparr (i+3) & ")" & vbcrlf & _
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"Dokumen." & Frmname & "." & Tmparr (i) & ". Pilih ();" & vbcrlf & _
"Dokumen." & Frmname & "." & Tmparr (i) & ". Focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Fungsi keluar
Kasus "5" 'harus menjadi jenis teks dari email
findjs = "if ((! email.test (dokumen." & frmname & "." & tmparr (i) & ". value)) && (dokumen." & frmname & "." & tmparr (i) & ". Value! = ''))" & vbcrlf & _
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"Dokumen." & Frmname & "." & Tmparr (i) & ". Pilih ();" & vbcrlf & _
"Dokumen." & Frmname & "." & Tmparr (i) & ". Focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Fungsi keluar
Kasus "6" 'harus dari AZ atau tipe teks karakter 0-9
findjs = "if ((! pwdreg.test (dokumen." & frmname & "." & tmparr (i) & ". value)) && (dokumen." & frmname & "." & tmparr (i) & ". Value! = '')" & vbcrlf & _
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"Dokumen." & Frmname & "." & Tmparr (i) & ". Pilih ();" & vbcrlf & _
"Dokumen." & Frmname & "." & Tmparr (i) & ". Focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Fungsi keluar
Case "7" 'mengonfirmasi bahwa kata sandi dan kata sandi harus sama dengan jenis teks
findjs = "if ((dokumen." & frmname & "." & tmparr (i) & "value)! = (dokumen." & frmname & "." & tmparr (i+3) & ". value))" & vbcrlf & _
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"Dokumen." & Frmname & "." & Tmparr (i) & ". Pilih ();" & vbcrlf & _
"Dokumen." & Frmname & "." & Tmparr (i) & ". Focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Fungsi keluar
Kasus "8" 'mengkonfirmasi jenis teks yang dimulai dengan angka
findjs = "if ((uidbeginreg.test (dokumen." & frmname & "." & tmparr (i) & ". value)) && (dokumen." & frmname & "." & tmparr (i) & ". value! = '')" & vbcrlf & _
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"Dokumen." & Frmname & "." & Tmparr (i) & ". Pilih ();" & vbcrlf & _
"Dokumen." & Frmname & "." & Tmparr (i) & ". Focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Fungsi keluar
Kasus "9" 'mengkonfirmasi nomor telepon dalam format 10-101212
findjs = "if ((! phonereg.test (dokumen." & frmname & "." & tmparr (i) & ". value)) && (dokumen." & frmname & "." & tmparr (i) & ". Value! = '')" & vbcrlf & _
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"Dokumen." & Frmname & "." & Tmparr (i) & ". Pilih ();" & vbcrlf & _
"Dokumen." & Frmname & "." & Tmparr (i) & ". Focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Fungsi keluar
Kasus "10" 'mengkonfirmasi bahwa hanya teks termasuk huruf bahasa Inggris dan "-", "_". (Artinya, tidak termasuk karakter khusus Cina dan lainnya)
findjs = "if ((uidreg.test (dokumen." & frmname & "." & tmparr (i) & ". value)) && (dokumen." & frmname & "." & tmparr (i) & ". Nilai! = '')" & vbcrlf & _
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"Dokumen." & Frmname & "." & Tmparr (i) & ". Pilih ();" & vbcrlf & _
"Dokumen." & Frmname & "." & Tmparr (i) & ". Focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Fungsi keluar
Kasus "11" 'menegaskan bahwa hanya berisi angka dan "-" (biasanya digunakan dalam nomor telepon dan faks)
findjs = "if ((phonedetailreg.test (dokumen." & frmname & "." & tmparr (i) & ". value)) && (dokumen." & frmname & "." & tmparr (i) & ". value! = '')" & vbcrlf & _
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"Dokumen." & Frmname & "." & Tmparr (i) & ". Pilih ();" & vbcrlf & _
"Dokumen." & Frmname & "." & Tmparr (i) & ". Focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Fungsi keluar
Kasus "12" 'mengkonfirmasi apakah itu URL yang valid!
findjs = "if (((! re1.test (dokumen." & frmname & "." & tmparr (i) & ". value)) && (! re2.test (dokumen." & frmname & "." & tmparr (i) & ". Nilai))" & _
"&& (dokumen." & frmname & "." & tmparr (i) & ". value! = '')) ||" & _
"(re3.test (dokumen." & frmname & "." & tmparr (i) & "value)) || (re4.test (dokumen." & frmname & "." & tmparr (i) & ". Nilai)) ||" & _
"(re5.test (dokumen." & frmname & "." & tmparr (i) & "value)) || (re6.test (dokumen." & frmname & "." & tmparr (i) & ". Nilai)) ||" & _
"(re7.test (dokumen." & frmname & "." & tmparr (i) & "nilai)) || (re8.test (dokumen." & frmname & "." & tmparr (i) & ". Nilai)) ||" & _
"(re9.test (dokumen." & frmname & "." & tmparr (i) & "value)) || (re10.test (dokumen." & frmname & "." & tmparr (i) & ". Nilai)) ||" & _
"(re11.test (dokumen." & frmname & "." & tmparr (i) & "value)) || (re12.test (dokumen." & frmname & "." & tmparr (i) & "nilai)) ||" & _
"(re13.test (dokumen." & frmname & "." & tmparr (i) & "value)) || (! re14.test (dokumen." & frmname & "." & tmparr (i) & "nilai))" & _
"&& (dokumen." & frmname & "." & tmparr (i) & ". value! = ''))" & vbcrlf & _
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"Dokumen." & Frmname & "." & Tmparr (i) & ". Pilih ();" & vbcrlf & _
"Dokumen." & Frmname & "." & Tmparr (i) & ". Focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Fungsi keluar
Kasus "13" 'menegaskan bahwa jenis teks tidak lebih besar dari jumlah digit tetap
findjs = "if (document." & frmname & "." & tmparr (i) & ". value.length>" & tmparr (i+3) & ")" & vbcrlf & _
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"Dokumen." & Frmname & "." & Tmparr (i) & ". Pilih ();" & vbcrlf & _
"Dokumen." & Frmname & "." & Tmparr (i) & ". Focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Fungsi keluar
Case "14" 'Mengonfirmasi jenis teks yang berisi tag HTML
findjs = "if (htmlreg.test (dokumen." & frmname & "." & tmparr (i) & "value))" & vbcrlf & _
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"Dokumen." & Frmname & "." & Tmparr (i) & ". Pilih ();" & vbcrlf & _
"Dokumen." & Frmname & "." & Tmparr (i) & ". Focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Fungsi keluar
Kasus "15"
'=======================================================================================================
'Konfirmasikan bahwa tipe pilih tidak dinonaktifkan harus memilih format: state | 15 | Pilih nama provinsi! | Selcountry | Kota | Pilih Informasi Kota
'Catatan: Ketika SelectedIndex! = 0, Item 2 dan Item 3 dinonaktifkan! Tidak perlu memeriksa dua item lainnya
'Ketika item pertama SelectedIndex == 0 dari menu cascading, INTEDIndEndex dari item kedua tidak dapat 0, dan ketika item kedua SelectedIndex! = 0 dari item kedua, INTEDIntEndex dari item ketiga tidak dapat 0 juga.
'Item ini digunakan untuk memeriksa tiga menu kaskade negara/provinsi/kota. Ketika negara itu bukan Cina, provinsi dan kota mungkin tidak diisi. Ketika itu adalah Cina, provinsi dan kota relatif harus diisi!
findjs = "if (document." & frmname & "." & tmparr (i+3) & ". SelectedIndex == 0)" & vbcrlf & _
"{" & vbcrlf & _
"if (document." & frmname & "." & tmparr (i) & ". SelectedIndex == 0)" & vbcrlf & _
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"Dokumen." & Frmname & "." & Tmparr (i) & ". Fokus;" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf & _
"elseif (dokumen." & frmname & "." & tmparr (i) & ". SelectedIndex! = 0)" & vbcrlf & _
"{" & vbcrlf & _
"if (document." & frmname & "." & tmparr (i+4) & ". SelectedIndex == 0)" & vbcrlf & _
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+5) & "');" & vbcrlf & _
"Dokumen." & Frmname & "." & Tmparr (i+4) & ". Fokus;" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf & _
"}" & vbcrlf & _
"}" & vbcrlf
Fungsi keluar
Case "16" 'mengkonfirmasi bahwa jenis pilih tidak dinonaktifkan harus memilih format: item formulir yang diperiksa | 16 | Informasi Prompt | Item Asosiasi "CATATAN: Ketika item yang terkait adalah item pertama, konfirmasi dimulai!
findjs = "if (document." & frmname & "." & tmparr (i+3) & ". SelectedIndex! = 0)" & vbcrlf & _
"{" & vbcrlf & _
"if (document." & frmname & "." & tmparr (i) & ". SelectedIndex == 0)" & vbcrlf & _
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"Dokumen." & Frmname & "." & Tmparr (i) & ". Fokus;" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf & _
"}" & vbcrlf
Fungsi keluar
Endselect
Fungsi endfungsi
%>
