ASP數(shù)據(jù)庫簡單操作教程全接觸

1、ASP數(shù)據(jù)庫簡單操作教程 <1 >.數(shù)據(jù)庫連接(用來單獨(dú)編制連接文件conn.asp) < % Set conn = Server.CreateObject("ADODB.Connection") conn.Open "DRIVER=Microsoft Access Driver (*.mdb); DBQ=" & Server.MapPath("bbsdb1user.mdb") % > (用來連接bbsdb1目錄下的user.mdb數(shù)據(jù)庫) <2 >顯示數(shù)據(jù)庫記錄 原理：將數(shù)據(jù)庫中的記錄一一

2、顯示到客戶端瀏覽器，依次讀出數(shù)據(jù)庫中的每一條記錄 如果是從頭到尾：用循環(huán)并判斷指針是否到末 使用: not rs.eof 如果是從尾到頭：用循環(huán)并判斷指針是否到開始 使用：not rs.bof < ! -#include file=conn.asp- > (包含conn.asp用來打開bbsdb1目錄下的user.mdb數(shù)據(jù)庫) < % set rs=server.CreateObject("adodb.recordset") (建立recordset對象) sqlstr="select * from message" - >(m

3、essage為數(shù)據(jù)庫中的一個(gè)數(shù)據(jù)表，即你要顯示的數(shù)據(jù)所存放的數(shù)據(jù)表) rs.open sqlstr,conn,1,3 - >(表示打開數(shù)據(jù)庫的方式) rs.movefirst - >(將指針移到第一條記錄) while not rs.eof - >(判斷指針是否到末尾) response.write(rs("name") - >(顯示數(shù)據(jù)表message中的name字段) rs.movenext - >(將指針移動到下一條記錄) wend - >(循環(huán)結(jié)束) - rs.close conn.close 這幾句是用來關(guān)閉數(shù)據(jù)庫 set rs

4、=nothing set conn=nothing - % > 其中response對象是服務(wù)器向客戶端瀏覽器發(fā)送的信息 <3 >增加數(shù)據(jù)庫記錄 增加數(shù)據(jù)庫記錄用到rs.addnew,rs.update兩個(gè)函數(shù) < !-#include file=conn.asp- > (包含conn.asp用來打開bbsdb1目錄下的user.mdb數(shù)據(jù)庫) < % set rs=server.CreateObject("adodb.recordset") (建立recordset對象) sqlstr="select * from messa

5、ge" - >(message為數(shù)據(jù)庫中的一個(gè)數(shù)據(jù)表，即你要顯示的數(shù)據(jù)所存放的數(shù)據(jù)表) rs.open sqlstr,conn,1,3 - >(表示打開數(shù)據(jù)庫的方式) rs.addnew 新增加一條記錄 rs("name")="xx" 將xx的值傳給name字段 rs.update 刷新數(shù)據(jù)庫 - rs.close conn.close 這幾句是用來關(guān)閉數(shù)據(jù)庫 set rs=nothing set conn=nothing - % >.<4 >刪除一條記錄 刪除數(shù)據(jù)庫記錄主要用到rs.delete,rs.updat

6、e < !-#include file=conn.asp- > (包含conn.asp用來打開bbsdb1目錄下的user.mdb數(shù)據(jù)庫) < % dim name name="xx" set rs=server.CreateObject("adodb.recordset") (建立recordset對象) sqlstr="select * from message" - >(message為數(shù)據(jù)庫中的一個(gè)數(shù)據(jù)表，即你要顯示的數(shù)據(jù)所存放的數(shù)據(jù)表) rs.open sqlstr,conn,1,3 - >(表

7、示打開數(shù)據(jù)庫的方式) - while not rs.eof if rs.("name")=name then rs.delete rs.update 查詢數(shù)據(jù)表中的name字段的值是否等于變量name的值"xx"，如果符合就執(zhí)行刪除， else 否則繼續(xù)查詢,直到指針到末尾為止 rs.movenext emd if wend - - rs.close conn.close 這幾句是用來關(guān)閉數(shù)據(jù)庫 set rs=nothing set conn=nothing - % > <5 >關(guān)于數(shù)據(jù)庫的查詢 (a) 查詢字段為字符型 < %

8、dim user,pass,qq,mail,message user=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&qu

9、ot; then (檢測user值和pass值是否為空，可以檢測到空格) response.write("注冊信息不能為空") else set rs=server.CreateObject("adodb.recordset") sqlstr="select * from user where user='"&user&"'" (查詢user數(shù)據(jù)表中的user字段其中user字段為字符型) rs.open sqlstr,conn,1,3 if rs.eof then rs.addne

10、w rs("user")=user rs("pass")=pass rs("qq")=qq rs("mail")=mail rs("message")=message rs.update rs.close conn.close set rs=nothing set conn=nothing response.write("注冊成功") end if rs.close conn.close set rs=nothing set conn=nothing response.wri

11、te("注冊重名") % > (b)查詢字段為數(shù)字型 < % dim num num=request.form("num") set rs=server.CreateObject("adodb.recordset") sqlstr="select * from message where id="&num (查詢message數(shù)據(jù)表中id字段的值是否與num相等，其中id為數(shù)字型) rs.open sqlstr,conn,1,3 if not rs.eof then rs.delete rs.update rs.close conn.c