斷開的數據庫連接的一個例子

2019-11-18 20:24:21

字體：大中小

來源：轉載

供稿：網友

使用斷開的Recordset的一個關鍵條件就是使用客戶端臨時表，即

指定Rs.CursorLocation  =  adUseClient  or  3，下面是一個完整
   的例子：
   demo-1.asp  (在線演示：http://www.aspcn.com/demo/demo-1.asp)
   ------------------------------------------------------------
<%@  Language=VBScr數據庫
'#--------------------------------------------------------------------
---------
ConnectString  =  "Driver={SQL  Server};"  &  _
                       "Server=(local);"  &  _
                       "Database=abc;"  &  _
                       "Uid=sa;"  &  _
                       "Pwd=123"

'#--------------------------------------------------------------------
---------
'#  創建對象實例，并初始化連接(Connection)
'#--------------------------------------------------------------------
---------
Set  adoConn  =  Server.CreateObject("ADODB.Connection")
Set  adoRs  =  Server.CreateObject("ADODB.Recordset")
adoConn.Open  ConnectString

SQLCmd  =  "Select  *  from  bbs_user  where  LTrim(RTrim(id))  =  'w3org'"
'#--------------------------------------------------------------------
---------
'#  使用客戶端臨時表打開并保存記錄集，關鍵所在！
'#  客戶端是運行ASP程序的主機，相對于數據庫服務器而言
'#--------------------------------------------------------------------
---------
adoRs.CursorLocation  =  3  'Const  adUseClient  =  3
adoRs.Open  SQLCmd,adoConn,0,2

'#--------------------------------------------------------------------
---------
'#  沒有發現記錄，結束程序
'#--------------------------------------------------------------------
---------
Err.Clear
If  adoRs.EOF  And  adoRs.BOF  Then
adoRs.Close
adoConn.Close
Set  adoRs  =  Nothing
Set  adoConn  =  Nothing
Response.Write  "用戶沒有發現！"
Response.End
End  If
'#--------------------------------------------------------------------
---------
'#  找到記錄，顯示原來的值后釋放記錄集的活動連接，之后關閉數據庫連接
'#--------------------------------------------------------------------
---------
Response.Write  "原來的昵稱是："  &  Trim(adoRs.Fields("NickName").Value)
&  "<br>"  &  vbCrLf
Set  adoRs.ActiveConnection  =  Nothing  '釋放Rs的活動連接
adoConn.Close
Response.Write  "連接已經關閉！<br>"  &  vbCrLf
'#--------------------------------------------------------------------
---------
'#  賦一個新的值給記錄的  NickName  列，這時已經沒有活動的數據庫連接
'#--------------------------------------------------------------------
---------
adoRs.Fields("NickName").Value  =  "NewTest-"  &  Second(Time())
'#--------------------------------------------------------------------
---------
'#  再次打開數據庫連接，并綁定到先前的記錄集上
'#--------------------------------------------------------------------
---------
adoConn.Open  ConnectString
adoRs.ActiveConnection  =  adoConn
'#--------------------------------------------------------------------
---------
'#  更新記錄集，并顯示新的值
'#--------------------------------------------------------------------
---------
adoRs.Update
Response.Write  "新的昵稱是："  &  Trim(adoRs.Fields("NickName").Value)  &
"<br>"  &  vbCrLf  '顯示一個結果
'#--------------------------------------------------------------------
---------
'#  如果發生錯誤則顯示錯誤
'#--------------------------------------------------------------------
---------
If  Err.number  <>  0  Then
Response.Write  "發生錯誤："  &  Err.description  &  "<br>"
End  If
adoRs.Close
adoConn.Close
Set  adoRs  =  Nothing
Set  adoConn  =  Nothing
%>
<HTML>
<HEAD><Title>演示斷開的連接</title></HEAD>

上一篇：判斷輸入是否為中文的函數

下一篇：在線短消息收發的程序,不用數據庫