Koneksi Basis Data:
Berikut ini adalah konten referensi:
<%
Set Conn = Server.CreateObject (AdodB.Connection)
conn.open driver = {Microsoft Access Driver (*.mdb)};
%>
Buka database:
Berikut ini adalah konten referensi:
Exec = Select * dari Tabel Basis Data
Set RS = Server.CreateObject (ADODB.OLDSET)
Rs.oopen Exec, Conn, 1,1
Parameter 1, 1 untuk dibaca
Baca format konten: <%= rs (bidang)%>
Tambahkan Program Pemrosesan Rekam:
Berikut ini adalah konten referensi:
<%
Set Conn = Server.CreateObject (AdodB.Connection)
conn.open driver = {Microsoft Access Driver (*.mdb)};
name = request.Form (bidang) Nama, tel, pesan untuk mengirimkan nilai bidang
Tel = request.Form (bidang)
pesan = request.form (bidang)
EXEC = INSERT INTO NAMA TABLE (FIELD) VALUES ('+FIELD+') dipisahkan oleh koma dengan koma
Conn.Execute Exec menggunakan pengiriman eksekusi
Conn.Close
Setel Conn = Tidak Ada
%>
Program Pemrosesan Pencarian:
Berikut ini adalah konten referensi:
<%
name = request.Form (bidang) Nama, Tel adalah nilai bidang yang ditetapkan oleh pengaturan formulir formulir
Tel = request.Form (bidang)
Set Conn = Server.CreateObject (AdodB.Connection)
conn.open driver = {Microsoft Access Driver (*.mdb)};
EXEC = SELECT * DARI TABLE WHER NAME = '+FIELD+' DAN TEL =+Field
Set RS = Server.CreateObject (ADODB.OLDSET)
Rs.oopen Exec, Conn, 1,1
%>
'Konten halaman yang dicari
<%
lakukan sementara tidak rs.eof
%> <tr>
<td> <%= rs (name)%> </td>
<td> <%= rs (tel)%> </td>
<td> <%= rs (waktu)%> </td>
</tr>
<%
rs.movenext
lingkaran
%>
Hapus Program Pemrosesan Rekaman:
Berikut ini adalah konten referensi:
<%
Set Conn = Server.CreateObject (AdodB.Connection)
conn.open driver = {Microsoft Access Driver (*.mdb)};
exec = delete * dari nama tabel di mana nomor = & request.form (id)
Conn.Execute Exec
%>
Ubah Program Pemrosesan Catatan:
Berikut ini adalah konten referensi:
<%
Set Conn = Server.CreateObject (AdodB.Connection)
conn.open driver = {Microsoft Access Driver (*.mdb)};
EXEC = SELECT * Dari nama tabel Where Number = & Request.Form (ID)
Set RS = Server.CreateObject (ADODB.OLDSET)
Rs.oopen Exec, Conn, 1,3 '1,3 adalah makna yang dimodifikasi
Rs (name) = request.form (bidang) 'name, tel, pesan adalah nilai bidang yang ditetapkan oleh pengiriman formulir
rs (tel) = request.form (bidang)
Rs (pesan) = request.form (bidang)
rs.update
Rs.close
Setel RS = Tidak Ada
Conn.Close
Setel Conn = Tidak Ada
%>
Ubah Program Eksekusi Catatan: Masukkan halaman Nomor ID >>> Ekspor data ID yang sesuai >>>>>> Program Pemrosesan yang Dimodifikasi Langsung
Contoh prosedur pemrosesan login:
Berikut ini adalah konten referensi:
<%
Nama redup, kata sandi
name = request.form (name)
kata sandi = request.form (kata sandi)
redup exec, conn, rs
exec = SELECT *Dari nama tabel di mana (name = '& field &' dan password = '& field &')
Set Conn = Server.CreateObject (AdodB.Connection)
conn.open driver = {Microsoft Access Driver (*.mdb)};
Set RS = Server.CreateObject (ADODB.OLDSET)
Rs.oopen Exec, Conn
Jika tidak rs.eof maka
Rs.close
Conn.Close
sesi (diperiksa) = ya
sesi (periksa) = benar
response.redirect index.asp
kalau tidak
sesi (diperiksa) = tidak
sesi (periksa) = w
response.redirect login.asp
akhiri jika
%>
Setiap halaman latar belakang plus:
<%jika tidak sesi (diperiksa) = ya lalu 'sesi tentukan variabel string yang diperiksa
response.redirect login.asp
kalau tidak
%>