ASP數據庫簡單操作教程淺析

　　< >數據庫連接(用來單獨編制連接文件connasp)
　　< %
　　Set conn = ServerCreateObject(ADODBConnection)
　　connOpen DRIVER={Microsoft Access Driver (*mdb)}; DBQ= & ServerMapPath(\bbs\db\usermdb)
　　% >
　　(用來連接bbs\db\目錄下的usermdb數據庫)
　　< >顯示數據庫記錄
　　
　　原理將數據庫中的記錄一一顯示到客戶端浏覽器依次讀出數據庫中的每一條記錄
　　如果是從頭到尾用循環並判斷指針是否到末 使用: not rseof
　　如果是從尾到頭用循環並判斷指針是否到開始 使用not rsbof
　　
　　< ! #include file=connasp > (包含connasp用來打開bbs\db\目錄下的usermdb數據
　　庫)
　　< %
　　set rs=serverCreateObject(adodbrecordset) (建立recordset對象)
　　sqlstr=select * from message >(message為數據庫中的一個數據表即你要顯示的
　　數據所存放的數據表)
　　rsopen sqlstrconn >(表示打開數據庫的方式)
　　rsmovefirst >(將指針移到第一條記錄)
　　while not rseof >(判斷指針是否到末尾)
　　responsewrite(rs(name)) >(顯示數據表message中的name字段)
　　rsmovenext >(將指針移動到下一條記錄)
　　wend >(循環結束)
　　
　　rsclose
　　connclose 這幾句是用來關閉數據庫
　　set rs=nothing
　　set conn=nothing
　　
　　% >
　　其中response對象是服務器向客戶端浏覽器發送的信息
　　< >增加數據庫記錄
　　增加數據庫記錄用到rsaddnewrsupdate兩個函數
　　
　　<　!#include file=connasp > (包含connasp用來打開bbs\db\目錄下的usermdb數據
　　庫)
　　< %
　　set rs=serverCreateObject(adodbrecordset) (建立recordset對象)
　　sqlstr=select * from message >(message為數據庫中的一個數據表即你要顯示的
　　數據所存放的數據表)
　　rsopen sqlstrconn >(表示打開數據庫的方式)
　　rsaddnew 新增加一條記錄
　　rs(name)=xx 將xx的值傳給name字段
　　rsupdate 刷新數據庫
　　
　　rsclose
　　connclose 這幾句是用來關閉數據庫
　　set rs=nothing
　　set conn=nothing
　　
　　% >
　　< >刪除一條記錄
　　刪除數據庫記錄主要用到rsdeletersupdate
　　<　!#include file=connasp > (包含connasp用來打開bbs\db\目錄下的usermdb數據
　　庫)
　　<　%
　　dim name
　　name=xx
　　set rs=serverCreateObject(adodbrecordset) (建立recordset對象)
　　sqlstr=select * from message >(message為數據庫中的一個數據表即你要顯示的數據所存放的數據表)
　　rsopen sqlstrconn >(表示打開數據庫的方式)
　　
　　while not rseof
　　if rs(name)=name then
　　rsdelete
　　rsupdate 查詢數據表中的name字段的值是否等於變量name的值xx如果符合就執行刪
　　除
　　else 否則繼續查詢直到指針到末尾為止
　　rsmovenext
　　emd if
　　wend
　　
　　
　　rsclose
　　connclose 這幾句是用來關閉數據庫
　　set rs=nothing
　　set conn=nothing
　　
　　% >
　　< >關於數據庫的查詢
　　(a) 查詢字段為字符型
　　< %
　　dim userpassqqmailmessage
　　user=requestform(user)
　　pass=requestform(pass)
　　qq=requestform(qq)
　　mail=requestform(mail)
　　message=requestform(message)
　　if trim(user)&x=x or trim(pass)&x=x then (檢測user值和pass值是否為空可以檢測
　　到空格)
　　responsewrite(注冊信息不能為空)
　　else
　　set rs=serverCreateObject(adodbrecordset)
　　sqlstr=select * from user where user=&user& (查詢user數據表中的user字段其中user
　　字段為字符型)
　　rsopen sqlstrconn
　　if rseof then
　　rsaddnew
　　rs(user)=user
　　rs(pass)=pass
　　rs(qq)=qq
　　rs(mail)=mail
　　rs(message)=message
　　rsupdate
　　rsclose
　　connclose
　　set rs=nothing
　　set conn=nothing
　　responsewrite(注冊成功)
　　end if
　　rsclose
　　connclose
　　set rs=nothing
　　set conn=nothing
　　responsewrite(注冊重名)
　　% >
　　(b)查詢字段為數字型
　　< %
　　dim num
　　num=requestform(num)
　　set rs=serverCreateObject(adodbrecordset)
　　sqlstr=select * from message where id=&num (查詢message數據表中id字段的值是否與
　　num相等其中id為數字型)
　　rsopen sqlstrconn
　　if not rseof then
　　rsdelete
　　rsupdate
　　rsclose
　　connclose
　　set rs=nothing
　　set conn=nothing
　　responsewrite(刪除成功)
　　end if
　　rsclose
　　connclose
　　set rs=nothing
　　set conn=nothing
　　responsewrite(刪除失敗)
　　% >
　　%>
From:http://tw.wingwit.com/Article/program/net/201311/13436.html