在彈出來的「自定義連接字元串」對話框中，"連接名稱"隨便寫一個。「連接字元串」就要好好填寫了。當"使用此計算機上的驅動程序"時應用絕對路徑：DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:
ewgndatabasecnbruce.mdb 否則「使用測試伺服器上的驅動程序」採用Mappath轉換路徑 ："Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.mappath("/newgn/database/cnbruce.mdb") 註：如果將要上傳到網上去的頁子就可以直接採用Mappath了

點擊「測試」，出現成功即爽。

附註：需要更多瞭解的，可以打開DW的幫助教程。

第一種連接和記錄集分開聲明<%db="db/darden.mdb"set conn=server.createobject("ADODB.connection") connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("" & db & "")conn.open connstr%><% set rs=server.createobject("adodb.recordset")sql="select * from ebook order by id desc"rs.open sql,conn,3,3rs.addnew ............rs.update (rs.delete)rs.closeset rs=nothingconn.closeset conn=nothingresponse.write("<center><a href=viewdatabase.asp>顯示文字</a></center>") Response.Redirect "homepage.asp"%> 第二種連接和記錄集一同聲明<% set rs=server.createobject("adodb.recordset")sql="select * from ebook order by id desc"conn = "DBQ=" + server.mappath("book.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"rs.open sql,conn,3,3rs.addnew ............rs.update (rs.delete)rs.closeset rs=nothingresponse.write("<center><a href=viewdatabase.asp>顯示文字</a></center>") %> ASP資料庫簡單*作教程<1>.資料庫連接(用來單獨編製連接文件conn.asp)<%Set conn = Server.CreateObject(ADODB.Connection)conn.Open DRIVER={Microsoft Access Driver (*.mdb)}; DBQ= & Server.MapPath(bsdb1user.mdb) %>(用來連接bbsdb1目錄下的user.mdb資料庫)<2>顯示資料庫記錄原理：將資料庫中的記錄一一顯示到客戶端瀏覽器，依次讀出資料庫中的每一條記錄如果是從頭到尾：用循環並判斷指針是否到末 使用: not rs.eof如果是從尾到頭：用循環並判斷指針是否到開始 使用：not rs.bof

<!--#include file=conn.asp--> (包含conn.asp用來打開bbsdb1目錄下的user.mdb資料庫)<%set rs=server.CreateObject(adodb.recordset) (建立recordset對象)sqlstr=select * from message ---->(message為資料庫中的一個數據表，即你要顯示的數據所存放的數據表)rs.open sqlstr,conn,1,3 ---->(表示打開資料庫的方式)rs.movefirst ---->(將指針移到第一條記錄)while not rs.eof ---->(判斷指針是否到末尾)response.write(rs(name)) ---->(顯示數據表message中的name欄位)rs.movenext ---->(將指針移動到下一條記錄)wend ---->(循環結束)------------------------------------------------------ rs.closeconn.close 這幾句是用來關閉資料庫set rs=nothingset conn=nothing-------------------------------------------------------%>其中response對象是伺服器向客戶端瀏覽器發送的信息<3>增加資料庫記錄增加資料庫記錄用到rs.addnew,rs.update兩個函數<!--#include file=conn.asp--> (包含conn.asp用來打開bbsdb1目錄下的user.mdb資料庫)<%set rs=server.CreateObject(adodb.recordset) (建立recordset對象)sqlstr=select * from message ---->(message為資料庫中的一個數據表，即你要顯示的數據所存放的數據表)rs.open sqlstr,conn,1,3 ---->(表示打開資料庫的方式)rs.addnew 新增加一條記錄rs(name)=xx 將xx的值傳給name欄位rs.update 刷新資料庫 ------------------------------------------------------ rs.closeconn.close 這幾句是用來關閉資料庫set rs=nothingset conn=nothing-------------------------------------------------------

%><4>刪除一條記錄刪除資料庫記錄主要用到rs.delete,rs.update<!--#include file=conn.asp--> (包含conn.asp用來打開bbsdb1目錄下的user.mdb資料庫)<%dim namename=xxset rs=server.CreateObject(adodb.recordset) (建立recordset對象)sqlstr=select * from message ---->(message為資料庫中的一個數據表，即你要顯示的數據所存放的數據表)rs.open sqlstr,conn,1,3 ---->(表示打開資料庫的方式)------------------------------------------------------- while not rs.eofif rs.(name)=name thenrs.deleters.update 查詢數據表中的name欄位的值是否等於變數name的值xx，如果符合就執行刪除，else 否則繼續查詢,直到指針到末尾為止rs.movenextemd ifwend------------------------------------------------------------------------------------------------------------ rs.closeconn.close 這幾句是用來關閉資料庫set rs=nothingset conn=nothing------------------------------------------------------- %><5>關於資料庫的查詢(a) 查詢欄位為字元型<%dim user,pass,qq,mail,messageuser=request.Form(user)pass=request.Form(pass)qq=request.Form(qq)mail=request.Form(mail)message=request.Form(message)if trim(user)&x=x or trim(pass)&x=x then (檢測user值和pass值是否為空，可以檢測到空格)response.write(註冊信息不能為空)elseset rs=server.CreateObject(adodb.recordset)sqlstr=select * from user where user="&user&" (查詢user數據表中的user欄位其中user欄位為字元型)rs.open sqlstr,conn,1,3if rs.eof thenrs.addnewrs(user)=userrs(pass)=passrs(qq)=qqrs(mail)=mailrs(message)=messagers.updaters.closeconn.closeset rs=nothingset conn=nothingresponse.write(註冊成功)end if rs.closeconn.closeset rs=nothingset conn=nothingresponse.write(註冊重名)%>(b)查詢欄位為數字型<%dim numnum=request.Form(num)set rs=server.CreateObject(adodb.recordset)sqlstr=select * from message where id=&num (查詢message數據表中id欄位的值是否與num相等，其中id為數字型)rs.open sqlstr,conn,1,3if not rs.eof thenrs.deleters.updaters.closeconn.closeset rs=nothingset conn=nothingresponse.write(刪除成功)end ifrs.closeconn.closeset rs=nothingset conn=nothingresponse.write(刪除失敗)%>

推薦閱讀：

相關文章