Direkomendasikan: Menafsirkan penggunaan fungsi objek RegExp dari ASP Objek RegExp memberikan dukungan ekspresi reguler yang sederhana. Penggunaan Objek RegExp: Berikut ini adalah konten yang direferensikan: fungsi regexptest (patn, strng) red
Skrip verifikasi login pengguna, chkpwd.asp
| Berikut ini adalah konten yang dikutip: <% '========= skrip verifikasi login pengguna ======== 'Jika objek yang dilewati belum ditentukan, itu didefinisikan sebagai salah, menunjukkan bahwa itu belum melewati verifikasi Jika isempty (sesi (lulus)) lalu Sesi (lulus) = false Akhiri jika 'Sesi (Lulus) = Salah, yang berarti bahwa informasi verifikasi yang ditularkan dari formulir belum disahkan. Jika sesi (lulus) = false maka Username = request.form (nama pengguna) Userpwd = request.form (userpwd) Jika nama pengguna = maka ERRMSG = Tip: Harap masukkan nama pengguna dan kata sandi Anda Kalau tidak '================================================== == Set Conn = Server.CreateObject (AdodB.Connection) Conn.connectionstring = driver = {sql server}; server = 192.168.1.3; uid = SA; pwd =; database = zcmrs Conn.open '============================= Baca data pengguna dari log tabel ================ ========== 'Tentukan objek Recordset Set RS = Server.CreateObject (ADODB.Recordset) 'Atur Connectionstring Objek Koneksi Atur rs.activeConnection = Conn 'Atur tipe kursor Rs.CursorType = 3 'Buka set rekaman rs.open pilih nama pengguna, kata sandi dari erpuser di mana nama pengguna = '& nama pengguna &' '================================================== == Jika rs.eof maka Errmsg = tip: pengguna tidak ada atau kata sandi salah Kalau tidak Jika userpwd <> rs.fields (kata sandi) maka ERRMSG = Tip: Login Gagal! Lain 'Login berhasil Errmsg = Sesi (lulus) = true Sesi (nama pengguna) = rs.fields (nama pengguna) 'Identifikasi sesi izin pengguna (userId) = rs.fields (userid) Akhiri jika Akhiri jika Akhiri jika Akhiri jika 'Setelah login gagal, formulir login akan ditarik Jika tidak sesi (lulus) = true maka %> <Html> <head> <title> unt judul dokumen </iteme> <Tipe Gaya = Teks/CSS> <!- .Style1 {font-size: 12px; font-weight: bold; margin-left: 120px; outline: double} -> </tyle> <Tipe Gaya = Teks/CSS> <!- .Style2 {font-size: 12px; font-weight: bold; outline: double; color:#ff3333} -> </tyle> </head> <body leftmargin = 0 topmargin = 0 marginheight = 0 marginwidth = 0 bgcolor =#000000> <Div ID = gaya induk = tinggi: 300; lebar: 450; gaya perbatasan: solid; color perbatasan: #fffff; margin-top: 80px; margin-kiri: 25%; margin-kanan: 25%; latar belakang- Warna: #FFFFFF> <Div ID = Denglu Style = font-size: 12px; font-weight: bold; latar belakang-warna:#0099ff; Teks-Align: tengah; Tinggi: 40px;> <br> Login sistem ERP </div> <Form Action = <%= request.serverVariable (path_info)%> Metode = nama pos = myForm id = myForm> <p class = style1> username: <input name = Username type = Text ID = Username size = 18 maxlength = 20> </p> <p class = style1> Kata sandi: <input name = Userpwd type = Kata sandi id = UserPWD size = 18 maxlength = 20> </p> <p align = center class = style2> <%= errmsg%> </p> <p> <Input Tipe = Kirim Align = Nama Tengah = Kirim Nilai = Masuk ke Sistem> <input name = rege type = tombol align = middle onClick = location = 'register.asp' id = rege value = register user> </p> </form> </div> </body> </html> <% '<p class = style1> kode verifikasi: <input name = checkCode type = Text ID = CheckCo |
Bagikan: Asp Reguler Expression Learning Kami dapat dengan mudah memverifikasi legalitas berbagai data dengan objek "ekspresi reguler". Pertama, mari kita mengerti apa sebenarnya objek "ekspresi reguler" dari VBScript.
2 halaman Total halaman sebelumnya halaman berikutnya