孤獨者 - 心在黑暗裡旅行 ...... ... 至尊會員
遊蕩的過客 - 枉入紅塵若許年 .. ... - UID
- 18273
- 帖子
- 12122
- 精華
- 1273
- 積分
- 240737
- 金幣
- 492641
- 威望
- 5001
- 推廣
- 0
- 閱讀權限
- 99
- 來自
- 尋覓中
- 註冊時間
- 2006-6-24
- 最後登錄
- 2015-5-27
|
2樓
大 中
小 發表於 2006-12-1 00:23
三、使用Asp操作數據庫:
1.通過ODBC或者OLE方式連接的區別?
現在有兩種連接數據庫的方法。一方面,可以用ODBC產生一個連接,這種連接與任何有ODBC驅動器的數據庫(即基本上是市場上所有的數據庫)兼容;另一方面,可以用原始OLE DB提供商產生一個連接。
該用哪個提供商?盡可能用原始OLE DB提供商,因為它提供了對數據更有效的訪問。Microsoft正逐步用OLE DB取代ODBC標準,應該僅僅在沒有原始OLE DB提供商時使用ODBC。
.用ODBC方式連接SQL Server:
.配置ODBC
.連接代碼:
conn_odbc.asp
<%
Set Conn = Server.CreateObject("ADODB.Connection")
'Conn.Open "DSN=course_dsn;UID=course_userWD=course_password;DATABASE=course"
Conn.Open "course_dsn","course_user","course_password"
%>
注意:在配置MyDSN時若指定默認數據庫為course則上述代碼作用想同,否則第二行的連接方式更有靈活性,可以指定連接某個數據庫(當然,前提是course_user對這個數據庫有操作權限)。
.用OLE方式連接SQL Server:
conn_ole.asp
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "ROVIDER=SQLOLEDB;DATA SOURCE=10.1.43.238,2433; UID=course_userWD=course_password;DATABASE=course"
%>
2.操作數據庫:Connection和Recordset
聯合使用connection和recordset操作數據庫,或者只使用connection操作數據庫。
例子:
.聯合使用connection和recordset操作數據庫
use_db_1.asp
<%
Set conn=Server.CreateObject("ADODB.Connection") '創建連接數據庫的對象
conn.Open "course_dsn","course_user","course_password" '使用該對像連接數據庫
Set rs=Server.CreateObject("ADODB.RecordSet") '創建記錄集對像
rs.Open "select * from user_info",conn,1,1 '使用記錄集對像打開數據庫
if rs.recordcount>0 then '如果有記錄
response.write "User_id User_name<br>"
for i=1 to rs.recordcount '循環讀取所有紀錄
response.write rs("id")&" "&rs("user_name")&"<br>"
'向瀏覽器輸出紀錄的字段
rs.movenext '指針下移一行
if rs.eof then exit for '如果到達記錄集底部則退出循環
next
end if
%>
效果:
User_id User_name
1 ahyi
3 test
.只使用connection操作數據庫:
use_db_2.asp
<%
Set conn=Server.CreateObject("ADODB.Connection") '創建連接數據庫的對象
conn.Open "course_dsn","course_user","course_password" '使用該對像連接數據庫
conn.execute "delete from user_info"
%>
效果:
user_info表中所有數據被刪除
思考:兩種方式有和區別?各應用於什麼場合?
3.如何使用事務處理、存儲過程和視圖?
.使用存儲過程
.定義好存儲過程
CREATE PROCEDURE [output_1]
@sid int output
AS
set @sid=2
CREATE PROCEDURE [return_1]
(@user_name varchar(40),@password varchar(20))
AS
if exists(select id from user_info where user_name=@user_name and password=@password)
return 1
else
return 0
CREATE PROCEDURE [user_info_1]
(@user_name varchar(40),@password varchar(20))
AS
select id from user_info where user_name=@user_name and password=@password
CREATE PROCEDURE [user_info_2]
(@user_name varchar(40),@password varchar(20))
AS
SET XACT_ABORT ON
BEGIN TRANSACTION
delete from user_info where user_name=@user_name and password=@password
COMMIT TRANSACTION
SET XACT_ABORT OFF
CREATE PROCEDURE [user_info_3] AS
select * from user_info
.在Asp中調用
use_proc.asp
<!-- #include virtual="/adovbs.inc" -->
<%
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "course_dsn","course_user","course_password"
'使用recordset調用帶兩個輸入參數和返回紀錄集的存儲過程
'CREATE PROCEDURE [user_info_1]
'(@user_name varchar(40),@password varchar(20))
'AS
'select id from user_info where user_name=@user_name and password=@password
response.write "普通的調用方法:<br>"
set rs=server.createobject("adodb.recordset")
sql="user_info_1 '"&request.querystring("user_name")&"','"&request.querystring("password")&"'"
rs.open sql,conn,1,1
response.write rs("id")&"<br>"
rs.close
'使用recordset調用無輸入參數,返回紀錄集的存儲過程,可以使用recordcount等屬性
'CREATE PROCEDURE [user_info_3] AS
'select * from user_info
response.write "<br>返回紀錄集,可以使用recordcount等屬性:"
sql="exec user_info_3"
rs.open sql,conn,1,1
for i=1 to rs.recordcount
response.write "<br>"&rs("user_name")
rs.movenext
next
rs.close
set rs=nothing
'使用command調用帶輸出參數的存儲過程
'CREATE PROCEDURE [output_1]
'@sid int output
'AS
'set @sid=2
response.write "<br><br>調用帶輸出參數的存儲過程:<br>"
set cmd=server.createobject("adodb.command")
cmd.activeconnection=conn
cmd.commandtext = "output_1"
cmd.parameters.append cmd.createparameter("@sid",adinteger,adparamoutput)
cmd("@sid")=10
cmd.execute()
bbb=cmd("@sid")
response.write bbb&"<br>"
set cmd=nothing
'使用command調用帶兩個輸入參數和返回值的存儲過程
'CREATE PROCEDURE [return_1]
'(@user_name varchar(40))
'AS
'if exists(select id from user_info where user_name=@user_name)
'return 1
'else
'return 0
response.write "<br>調用帶兩個輸入參數和返回值的存儲過程:<br>"
set cmd=server.createobject("adodb.command")
cmd.activeconnection=conn
cmd.commandtype = adcmdstoredproc
cmd.commandtext = "return_1"
cmd.parameters.append cmd.createparameter("@return_value",adinteger,adparamreturnvalue)
cmd.parameters.append cmd.createparameter("@user_name",advarchar,adparaminput,40)
cmd.parameters.append cmd.createparameter("@password",advarchar,adparaminput,20)
cmd("@user_name")="tuth"
cmd("@password")="yyuyu"
cmd.execute()
rrr=cmd("@return_value")
response.write rrr
set cmd=nothing
conn.close
set conn=nothing
%>
效果:
訪問訪客無法瀏覽此圖片或連結,請先 註冊 或 登入會員 。時,出現如下
普通的調用方法:
12
返回紀錄集,可以使用recordcount等屬性:
ahyi
tet
tuth
調用帶輸出參數的存儲過程:
2
調用帶兩個輸入參數和返回值的存儲過程:
1
注意:若存儲過程無參數,則調用的sql語句直接為存儲過程名,一個參數為「存儲過程名 參數」,若是多個參數,則「存儲過程名 參數1,參數2,……,參數n」;如果在sql語句中加入exec,則在返回的記錄集中可以使用recordcount等屬性;如果想獲得存儲過程的返回值或輸出參數,可以使用command對象。
.使用事務處理
.Asp內嵌的事務支持
例子:
use_transaction_1.asp
<%
'Asp中使用事務
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "course_dsn","course_user","course_password"
conn.begintrans '開始事務
sql="delete from user_info"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,3
if conn.errors.count>0 then '有錯誤發生
conn.rollbacktrans '回滾
set rs=nothing
conn.close
set conn=nothing
response.write "交易失敗,回滾至修改前的狀態!"
response.end
else
conn.committrans '提交事務
set rs=nothing
conn.close
set conn=nothing
response.write "交易成功!"
response.end
end if
%>
.數據庫級的事務
i.創建存儲過程
CREATE PROCEDURE [user_info_2]
(@user_name varchar(40),@password varchar(20))
AS
SET XACT_ABORT ON
BEGIN TRANSACTION
delete from user_info where user_name=@user_name and password=@password
COMMIT TRANSACTION
SET XACT_ABORT OFF
ii.在Asp中調用
use_transaction_2.asp
<%
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "course_dsn","course_user","course_password"
sql="user_info_2 '"&request.querystring("user_name")&"','"&request.querystring("password")&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
set rs=nothing
conn.close
set conn=nothing
%>
討論:兩種方式的優劣?
.使用視圖
在數據庫中定義好視圖之後,在Asp中如同使用一個表一樣來使用視圖
4.一個數據庫分頁的例子
db_page.asp
<%
on error resume next
Set conn=Server.CreateObject("ADODB.Connection") '創建連接數據庫的對象
conn.Open "course_dsn","course_user","course_password" '使用該對像連接數據庫
set rs=server.createObject("adodb.recordset")
sql="select * from user_info order by id desc"
rs.open sql,conn,1,1
if rs.recordcount>0 then '如果有記錄
rs.pagesize=2 '每頁最多顯示2條紀錄
'從URL獲取當前要顯示的頁
page=cint(request("page"))
'頁面參數異常處理
if page="" then page=1
if page<1 then page=1
if page>= rs.pagecount then page=rs.pagecount
rs.absolutepage=page '當前頁為page參數指定的頁
for i=1 to rs.pagesize '根據pagesize參數的大小循環顯示當前頁中的紀錄
response.write "User_id:"&rs("id")&"<br>"
response.write "User_name:"&rs("user_name")&"<br><br>"
rs.movenext '紀錄指針下移
if rs.eof then exit for '如果到達紀錄集底部則退出循環
next
end if
'顯示翻頁按鈕
if page>1 then
response.write "<a href="&request.servervariables("document_name")&"?page=1>第一頁</a> "
response.write "<a href="&request.servervariables("document_name")&"?page="&(page-1)&">上一頁</a> "
end if
if page<>rs.pagecount then
response.write "<a href="&request.servervariables("document_name")&"?page="&(page+1)&">下一頁</a> "
response.write "<a href="&request.servervariables("document_name")&"?page="&rs.pagecount&">最後一頁</a> "
end if
response.write"頁碼:"&page&"/"&rs.pagecount
'關閉對象,釋放內存
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
思考:分頁過程中使用了哪些額外的屬性?
|