1、ASP與數(shù)據(jù)庫-連接、寫入、修改、刪除、顯示代碼Recordset屬性與方法        PageCount 屬性: 決定 Recordset 對象包括多少“頁”的數(shù)據(jù)。        這里的“頁”是數(shù)據(jù)記錄的集合，大小等于 PageSize 屬性的設定，即使最后一頁的記錄數(shù)比 PageSize 的值少，最后一頁也算是 PageCount 的一頁。必須注意也并不是所有的數(shù)據(jù)提供者都支持此項屬性。   PageSize 屬性：顯示 Re

2、cordset 對象每一頁顯示的記錄數(shù)。          PageSize 屬性是決定 ADO 存取數(shù)據(jù)庫時如何分頁顯示的關鍵，使用它就可以決定多少記錄組成一個邏輯上的“一頁”。設定并建立一個頁的大小，從而允許使用 AbsolutePage 屬性移到其它邏輯頁的第一條記錄。PageSize 屬性能隨時被設定。 RecordCount 屬性：顯示 Recordset 對象記錄的總數(shù)。 rs.RecordCount：游標中的數(shù)據(jù)記錄總數(shù)。 rs.MoveFirst： 指向第一條記錄。   

3、0;      rs.Move(6): 移動到第6條記錄。 rs.MoveLast： 指向最后一條記錄。 rs.MovePrev： 指向上一條記錄。 rs.MoveNext： 指向下一條記錄。 rs.GetRows： 將數(shù)據(jù)放入數(shù)組中Recordset對象的Open函數(shù)： Rs.Open 數(shù)據(jù)表名稱或SQL指令，Connection對象，Recordset類型，鎖定類型 參數(shù)一：若指定成數(shù)據(jù)表名稱，則打開整個數(shù)據(jù)表，若指定成Select指令，則所建立的Recordset對象是Select指令選取的數(shù)據(jù)記錄的結果。 參數(shù)二：傳入某一個已打開的數(shù)據(jù)

4、庫的Connection對象。 參數(shù)三：是Recordset類型，它含有下表的四種設置值： Recordset類型的設置值 意義 AdOpenForwardOnly(=0) 只讀，且當前數(shù)據(jù)記錄只能向下移動 AdOpenStatic(=3) 只讀，當前數(shù)據(jù)記錄可自由移動 AdOpenKeyset(=1) 可讀寫，當前數(shù)據(jù)記錄可自由移動 AdOpenDynamic(=2) 可讀寫，當前數(shù)據(jù)記錄可自由移動 AdOpenKeyset和AdOpenDynamic的差別只表現(xiàn)在多人共用數(shù)據(jù)庫時，若以AdOpenKeyset 模式打開數(shù)據(jù)表，則無法看到其他人新增的數(shù)據(jù)記錄（除非重新啟動），如果是以AdOp

5、enDynamic模式打開數(shù)據(jù)庫，則可以看到其他人新增的數(shù)據(jù)記錄。 參數(shù)四：是鎖定類型，它同樣含有四種設置值，見下表： 鎖定類型的設置值 意義 adLockReadOnly(=1) 默認值，用來打開只讀的數(shù)據(jù)記錄 adLockPessimistic(=2) 悲觀鎖定 adLockOptimistic(=3) 樂觀鎖定 adLockBatchOptimistic(=4) 批次樂觀鎖定數(shù)據(jù)庫連接MS Access數(shù)據(jù)庫連接用DSN連接并且沒有用戶名和密碼：<%set conn=Server.CreateObject("ADODB.Connection")conn.open

6、 "YourDSNName"%>用DSN連接并且有用戶名和密碼：<%set conn=Server.CreateObject("ADODB.Connection")conn.open "YourDSNName","username","password"%>用實際的數(shù)據(jù)庫絕對路徑連接：<%Set conn=Server.CreateObject("ADODB.Connection")Strconn="DRIVER=Microsoft Acce

7、ss Driver (*.mdb); "Strconn=Strconn & "DBQ=e:yanhangdatabase.mdb" conn.Open Strconn%>用實際的數(shù)據(jù)庫相對路徑連接：<%Set conn=Server.CreateObject("ADODB.Connection")Strconn="DRIVER=Microsoft Access Driver (*.mdb); "Strconn=Strconn & "DBQ=" & Server.MapP

8、ath("/database/yanhang.mdb")conn.Open Strconn%>MS SQL Server數(shù)據(jù)庫連接用DSN連接：<%set conn=Server.CreateObject("ADODB.Connection")conn.open "DSN=MyDSN;UID=user;PWD=password;DATABASE=databasename"%>不用DSN連接：<%Set conn=Server.CreateObject("ADODB.Connection")D

9、SNtemp="DRIVER=SQL Server;SERVER=ServerName;UID=USER;PWD=password;DATABASE=databasename"conn.open DSNtemp%>Oracle數(shù)據(jù)庫連接：<%set conn=server.createobject("adodb.connection")conn.cursorlocation=adUseClientDSNTemp="Provider=MSDAORA.1;Password=xxxxx;User ID=yanhang;Data Sourc

10、e=xxx.world"conn.open DSNtemp%>數(shù)據(jù)寫入<!-i nclude file="common/conn.asp"-><%set rs=server.createobject("adodb.recordset")sql="select * from online"rs.open sql,conn,3,2rs.addnewrs("name")=request("name")rs("Tel")=request("

11、tel")rs("fax")=request("fax")rs("mail")=request("email")rs("code")=request("zip")rs("content")=request("contents")rs("Address")=request("Address")rs.updaters.close%>數(shù)據(jù)修改<%if request("a

12、ction")="edit" then '判斷是否修改'取得表單傳遞的數(shù)據(jù)member_name=Trim(Request.Form("member_name")member_pwd=Trim(Request.Form("member_pwd")question=Trim(Request.Form("question")answer=Trim(Request.Form("answer")realname=Trim(Request.Form("realname&

13、quot;)sex=Trim(Request.Form("sex")zip=Trim(Request.Form("zip")address=Trim(Request.Form("address")tel=Trim(Request.Form("tel")fax=Trim(Request.Form("fax")mobile=Trim(Request.Form("mobile")email=Trim(Request.Form("email")web=Trim(R

14、equest.Form("web")vip=request.form("vip")remark=Trim(Request.Form("remark")sql="select * from member where m_id="&m_idset rs=server.createobject("adodb.recordset")rs.open sql,conn,1,3rs("member_name")=member_namers("answer")=a

15、nswerrs("question")=questionrs("member_pwd")=member_pwdrs("realname")=realnamers("sex")=sexrs("zip")=ziprs("tel")=telrs("mobile")=mobilers("fax")=faxrs("address")=addressrs("email")=emailrs("web&

16、quot;)=webrs("vip")=viprs("remark")=remarkrs.updaters.closeset rs=nothingcall ok("資料修改成功！","edit_member.asp?m_id="&m_id)end if%>數(shù)據(jù)刪除數(shù)字字段<%set rs=server.createobject("adodb.recordset")sql="select * from pay where ID =1"rs.open sql,

17、conn,1,3if not rs.eof and not rs.bof thenrs.movefirstdo while not rs.eofrs.deleters.movenextloopend ifrs.close%>數(shù)據(jù)刪除字符串字段<%set rs=server.createobject("adodb.recordset")sql="select * from pay where namer ='aaa'"rs.open sql,conn,1,3if not rs.eof and not rs.bof thenrs.

18、movefirstdo while not rs.eofrs.deleters.movenextloopend ifrs.close%>數(shù)據(jù)顯示<%Lei="行業(yè)資訊" '設置顯示信息類別set rs=server.CreateObject("adodb.Recordset")sql="Select top 20 * from News where Lei <> '"&Lei&"' order by ID desc"rs.open sql,conn,1,1if rs.eof then '判斷數(shù)據(jù)庫內有無信息，防止讀取錯誤%&