断开的数据库连接的一个例子

来源：Linuxdby.com 作者：Webmaster 时间：2007-04-24 点击： [收藏] [投稿]

使用断开的Recordset的一个关键条件就是使用客户端临时表，即

指定Rs.CursorLocation  =  adUseClient  or  3，下面是一个完整
   的例子：
   demo-1.asp  (在线演示：http://www.aspcn.com/demo/demo-1.asp)
   ------------------------------------------------------------
<%@  Language=VBScript  %>
<%
'#  -------------------------------------------------------------------
---------
'#  程序描述：演示使用断开的记录集
'#  程序设计：亚豪
'#  -------------------------------------------------------------------

---------

On  Error  Resume  Next
Dim  adoConn,adoRs,SQLCmd,ConnectString
'#--------------------------------------------------------------------
---------
'#  使用SQL  Server的  DSN-less  方式连接数据库
'#--------------------------------------------------------------------
---------
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

如果您对本文有任何疑问或者建议，请到讨论区发表您的意见: >> 论坛入口 <<

上一篇：提高ASP页面的执行效率（下）下一篇：如何用checkbox做多选删除

【文章评论】【收藏本文】【推荐好友】【打印本文】【我要投稿】【论坛讨论】

更多相关文章

·Windows 2000 安全性技术概述--3

·Windows 2000 安全性技术概述--2

·Windows 2000 安全性技术概述--1

·ActiveX技术综述（二）

·ActiveX技术综述（一）

·动态网页技术--CGI:ASP:JSP:PHP(4)