Sebagian besar program pembelajaran memerlukan operasi koneksi dengan database. Berikut ringkasan singkat beberapa kode untuk akses koneksi asp demi kenyamanan teman-teman yang membutuhkannya. 1. Dibandingkan dengan lingkungan yang lebih lama, disarankan untuk menggunakan yang kedua
setel dbconnection=Server.CREATEOBJECT(ADODB.CONNECTION)
DBPath = Server.MapPath(pelanggan.mdb)
dbconnection.Open driver={Microsoft Access Driver (*.mdb)};dbq= & DBPath
SQL=pilih * dari autentikasi di mana id=' & user_id &'
SET daftar atas=dbconnection.EXECUTE(SQL)
2. Untuk mesin dengan win2003 atau lebih tinggi, disarankan menggunakan cara ini, yang lebih efisien.
setel dbconnection=Server.CreateObject(ADODB.Connection)
DBPath = Server.MapPath(pelanggan.mdb)
dbconnection.Penyedia terbuka=microsoft.jet.oledb.4.0;sumber data=&dbpath
SQL=pilih * dari autentikasi di mana id=' & user_id &'
SET daftar atas=dbconnection.EXECUTE(SQL)
3.
DBPath = Server.MapPath(pelanggan.mdb)
setel sesi(rs)=Server.CreateObject(ADODB.Recordset)
'rs=Server.CreateObject(ADODB.Recordset)
connstr=provider=microsoft.jet.oledb.4.0;sumber data=&dbpath
SQL=pilih * dari autentikasi di mana id=' & user_id &'
sesi(rs).Buka sql,koneksi,1,3
4.
Bangun sumber odbc xxx
setel koneksi=server.buat objek(Adodb.koneksi)
samb.open DSN=xxx;UID=;PWD=;Database=pelanggan
5. Terlampir adalah kode koneksi database yang umum digunakan untuk sqlserver dan akses.
Copy kode kodenya sebagai berikut:
<%
Tipe Basis Data Konstan=1
Jika DataBaseType=0 maka
DBPath=/jb51/news.asp
SqlNowString = Sekarang()
ystr=benar
nstr=salah
suiji=rd(id)
Kalau tidak
'Jika ini adalah database SQL, harap ubah opsi database berikut dengan hati-hati
DataServer = wwwjb51net 'IP server basis data
DataUser = jb51net 'Akses nama pengguna basis data
DataBaseName = jb51net 'Nama basis data
DataBasePsw = Kata Sandi'Akses kata sandi basis data
SqlNowString = getdate()
ystr=1
nstr=0
suiji=anak baru()
Berakhir jika
Pada Kesalahan Lanjutkan Berikutnya
Jika DataBaseType = 1 Maka
ConnStr=driver={SQL Server};server=&dataserver&;UID=&datauser&;PWD=&databasepsw&;Database=&namadatabase
Kalau tidak
ConnStr = Penyedia=Microsoft.Jet.OLEDB.4.0;Sumber Data= & Server.MapPath(DBPath)
Akhiri Jika
Setel koneksi = Server.CreateObject(ADODB.Connection)
samb.buka SambunganStr
Jika Err Then Err.Clear:Set conn = Nothing:Response.Write Koneksi database error, silakan periksa pengaturan parameter database di file Conn.asp. :Respon.Akhir
%>