Direkomendasikan: ADO Pemula Tutorial: ADO Display Cara paling umum untuk menampilkan data dari set rekaman adalah dengan menampilkan data dalam tabel HTML. Tampilkan Nama Bidang dan Nilai Bidang Kami memiliki basis data bernama Northwind, dan kami ingin menampilkan data di tabel pelanggan (ingat untuk menyimpan file ini dengan .asp sebagai ekstensi): htmlbody%set conn = server.createObject (
Skrip verifikasi login pengguna, chkpwd.asp
- <%
- '========= skrip verifikasi login pengguna ========
- 'Jika objek yang dilewati belum ditentukan, itu didefinisikan sebagai salah, menunjukkan bahwa itu belum melewati verifikasi
- Ifisempty (sesi (lulus)) lalu
- Sesi (lulus) = false
- Endif
- 'Sesi (Lulus) = Salah, yang berarti bahwa informasi verifikasi yang ditularkan dari formulir belum disahkan.
- Ifesession (lulus) = falsethen
- Username = request.form (nama pengguna)
- Userpwd = request.form (userpwd)
- Ifusername = lalu
- ERRMSG = Tip: Harap masukkan nama pengguna dan kata sandi Anda
- Kalau tidak
- '=====================================================
- SetConn = server.CreateObject (adodb.connection)
- Conn.connectionstring = driver = {sqlServer}; server = 192.168.1.3; uid = SA; pwd =; database = zcmrs
- Conn.open
- '============================= Baca data pengguna dari log tabel ==========================
- 'Tentukan objek Recordset
- SetRs = server.CreateObject (adodb.recordset)
- 'Atur Connectionstring Objek Koneksi
- Setrs.activeConnection = Conn
- 'Atur tipe kursor
- Rs.CursorType = 3
- 'Buka set rekaman
- rs.openselectusername, kata sandifromerpuserwhereUserName = '& username &'
- '=====================================================
- Ifrs.eoftthen
- Errmsg = tip: pengguna tidak ada atau kata sandi salah
- Kalau tidak
- Ifuserpwd <> rs.fields (kata sandi) lalu
- ERRMSG = Tip: Login Gagal! Kesalahan Kata Sandi?
- Lainnya'login berhasil
- Errmsg =
- Sesi (lulus) = true
- Sesi (nama pengguna) = rs.fields (nama pengguna)
- 'Identifikasi sesi izin pengguna (userId) = rs.fields (userid)
- Endif
- Endif
- Endif
- Endif
- 'Setelah login gagal, formulir login akan ditarik
- Ifnotsession (lulus) = Truethen
- %>
- <Html>
- <head> <title> desain home_dwww.cn </iteme>
- <styletype = text/css>
- <!-
- .Style1 {font-size: 12px; font-weight: bold; margin-left: 120px; outline: double}
- ->
- </tyle>
- <styletype = text/css>
- <!-
- .Style2 {font-size: 12px; font-weight: bold; outline: double; color:#ff3333}
- ->
- </tyle>
- </head>
- <bodyleftmargin = 0topmargin = 0marginheight = 0marginwidth = 0bgcolor =#000000>
- <Divid = ParentStyle = Tinggi: 300; Lebar: 450; gaya perbatasan: solid; Border-color: #fffff; margin-top: 80px; margin-kiri: 25%; margin-kanan: 25%; latar belakang-warna: #fffff>
- <Divid = DenGlustyle = font-size: 12px; font-weight: bold; latar belakang-warna:#0099ff; Teks-Align: tengah; tinggi: 40px;> <br> Login sistem ERP </div>
- <formaction = <%= request.serverVariable (path_info)%> Metode = postname = myFormId = myForm>
- <pclass = style1> Nama pengguna: <inputName = usernametype = textId = UsernamSize = 18MaxLength = 20>
- </p>
- <pclass = style1> Kata sandi: <inputName = userpwdtype = passwordId = userpwdSize = 18maxlength = 20>
- </p>
- <palign = centerclass = style2> <%= errmsg%> </p>
- <p>
- <inputType = submitalign = middlename = submitValue = sistem login>
- <inputName = Regetype = ButtLAlign = MiddleOnclick = location = 'register.asp'Id = Regevalue = Register User>
- </p>
- </form>
- </div>
- </body>
- </html>
- <%
- '<pclass = style1> kode verifikasi: <inputName = checkCodetype = textId = checkCodesize = 6maxlength = 4>
- '<Imgstyle = margin-right: 40pxalt = src = common/getCode.asp> </p>
- respons.end
- Endif
- %>
Halaman untuk mengunjungi erp.asp
- <!-#includeFile = chkpwd.asp->
- <body>
- <divstyle = 'font-size: 12px; font-weight: bold; border: 1pxsolid#001; padding: 4px; latar belakang: #ffccff; margin-top: 0;'> Selamat datang menggunakan sistem kueri ERP, pengguna yang masuk saat ini adalah:
- <%
- Ifesession (lulus) = truethen
- Response.write (sesi (nama pengguna))
- Endif
- %> <ahref = logout.asp> keluar dari sistem </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 yang ditentukan.
Logout.asp System Exit
- <body>
- <%
- Sesi (lulus) = false
- Sesi (nama pengguna) =
- Response.redirect (index.asp)
- %>
- </body>
Kirim formulir menggunakan gambar
- <formname = form1method = postaction =>
- <tDaLign = right> <inputType = ImageMethod = submitName = submitsrc = gambar/loginin.gifwidth = 70Height = 21Alt = Submit> </td>
- </form>
Bagikan: ADO Pemula Tutorial: ADO Tambahkan Rekaman Kita dapat menggunakan perintah SQL Insert Into untuk menambahkan catatan ke tabel di database. Menambahkan catatan ke tabel dalam database kami ingin menambahkan catatan baru ke tabel pelanggan di database Northwind. Pertama -tama kita perlu membuat formulir yang berisi bidang yang ingin kita pilih data: Metode HTMLBOBSFORM = Post Action = Dem