论坛交流
首页办公自动化| 网页制作| 平面设计| 动画制作| 数据库开发| 程序设计| 全部视频教程
应用视频: Windows | Word2007 | Excel2007 | PowerPoint2007 | Dreamweaver 8 | Fireworks 8 | Flash 8 | Photoshop cs | CorelDraw 12
编程视频: C语言视频教程 | HTML | Div+Css布局 | Javascript | Access数据库 | Asp | Sql Server数据库Asp.net  | Flash AS
当前位置 > 文字教程 > asp教程
Tag:入门,文摘,实例,技巧,iis,表单,对象,上传,数据库,记录集,session,cookies,存储过程,注入,分页,安全,优化,xmlhttp,fso,jmail,application,防盗链,stream,组件,md5,乱码,缓存,加密,验证码,算法,ubb,正则表达式,水印,,日志,压缩,url重写,控件,函数,破解,触发器,socket,ADO,初学,聊天室,留言本,视频教程

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

文章类别:asp | 发表日期:2008-10-5 20:50:08

使用断开的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     
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>     
视频教程列表
文章教程搜索
 
Asp推荐教程
Asp热门教程
看全部视频教程
购买方式/价格
购买视频教程: 咨询客服
tel:15972130058