Skrip verifikasi login pengguna, chkpwd.asp
<%
'======== Skrip verifikasi login pengguna =======
'Jika objek yang dilewatkan tidak ditentukan, itu mendefinisikannya sebagai salah, menunjukkan bahwa itu belum melewati verifikasi
Jika isempty (sesi (lulus)) lalu
Sesi (lulus) = false
Akhiri jika
'Sesi (lulus) = false, menunjukkan bahwa informasi verifikasi dari formulir belum disahkan, belum melewati verifikasi
Jika sesi (lulus) = false maka
Username = request.form (nama pengguna)
Userpwd = request.form (userpwd)
Jika nama pengguna = lalu
Errmsg = prompt: Harap masukkan nama pengguna dan kata sandi
Kalau tidak
'==================== Connect database ===================
Set Conn = Server.CreateObject (AdodB.Connection)
Conn.connectionstring = driver = {SQL Server};
Conn.open
'=================== Baca data pengguna =====================
'Tentukan objek recordset
Set RS = Server.CreateObject (ADODB.OLDSET)
'Setel koneksi koneksi koneksi
Atur rs.activeConnection = conn
'Atur jenis kursor
Rs.CursorType = 3
'Buka set rekaman
Rs.oopen pilih nama pengguna, kata sandi dari erpuseer di mana nama pengguna = '& nama pengguna &'
'===========================================
Jika rs.eof maka
Errmsg = tip: pengguna tidak ada atau kesalahan kata sandi
Kalau tidak
Jika userpwd <> rs.fields (kata sandi) lalu
ERRMSG = Tip: Masuk!
Lainnya 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 tidak berhasil, bentuk login ditarik
Jika tidak sesi (lulus) = true maka
%>
<Html>
<head> <title> dokumen non -title </iteme>
<Tipe Gaya = Teks/CSS>
<!-
.Style1 {font-size: 12px;
->
</tyle>
<Tipe Gaya = Teks/CSS>
<!-
.Style2 {font-size: 12px;
->
</tyle>
</head>
<body leftmargin = 0 topmargin = 0 marginheight = 0 marginwidth = 0 bgcolor =#000000>
<Div ID = Parent Ckground- Warna: #FFFFFF>
<Div id gaya = ukuran font: 12px;
<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 type = kirim align = mide name = kirim nilai = sistem login>
<input name = rege type = tombol align = middle onck = location = 'register.asp' id = nilai rege = pengguna terdaftar>
</p>
</form>
</div>
</body>
</html>
<%
'<p class = style1> kode verifikasi: <input name = checkCode type = Text ID = checkCode size = 6 maxlength = 4>
'<Img style = margin-right: 40px alt = src = common/getCode.asp> </p>
respons.end
Akhiri jika
%>
Halaman erp.asp untuk dikunjungi
<!-#termasuk file = chkpwd.asp->
<body>
<div style = 'font-size: 12px;
<%
Jika sesi (lulus) = true maka
Response.write (sesi (nama pengguna))
Akhiri jika
%> <A href = logout.asp> sistem keluar </a>
</div>
</body>
Setiap kali Anda membuka ERP.ASP, Anda terlebih dahulu menjalankan chkpwd.asp (), yang secara efektif dapat mencegah pengguna yang tidak sah mengakses halaman web tertentu.
Logout.asp System Exit
<body>
<%
Sesi (lulus) = false
Sesi (nama pengguna) =
Response.redirect (index.asp)
%>
</body>
Gunakan gambar untuk mengirimkan formulir
<Form name = Metode Form1 = Post Action =>
<td align = right> <input type = Metode gambar = Kirim Nama = Kirim SRC = Image/Loginin.GIF Lebar = 70 Tinggi = 21 Alt = Kirim> </td>
</form>