指定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>
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
