ASP程序中使用断开的数据记录集代码,ASP代码库,德仔网

代码语言

代码分类

【ASP】 ASP程序中使用断开的数据记录集

作者:Dezai.CN / 发布于2012/10/24/ 944

为了节省服务器资源，应该尽可能关闭连接以释放连接所占有的资源，这种关闭记录集的连接而不关闭记录集的技术叫做断开记录集，这个记录集本身则称为断开的记录集

<div><% @LANGUAGE = VBScript %></div>
<div><!--#include file="adovbs.inc"--></div>
<div><%</div>
<div>　Response.Expires = 0</div>
<div>　Dim Cnn,objRS, strOut, strQ, strC</div>
<div>　StrC= "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\asp24") & "\NorthWind.mdb;"</div>
<div>　'建立连接</div>
<div>　Set Cnn = Server.CreateObject("ADODB.Connection")</div>
<div>　Cnn.Open StrC</div>
<div></div>
<div>　'创建Recordset对象</div>
<div></div>
<div>　Set objRS = Server.CreateObject("ADODB.Recordset")</div>
<div>　objRS.CursorLocation =adUseClient</div>
<div>　objRS.CursorType = adOpenStatic</div>
<div>　objRS.LockType = adLockOptimistic</div>
<div></div>
<div>　strQ = "SELECT 运货商ID, 公司名称, 电话 FROM 运货商 "</div>
<div>　objRS.Open strQ, Cnn, , , adCmdText</div>
<div>　Set objRS.ActiveConnection = Nothing　　 '断开记录集</div>
<div>　Cnn.Close　　　　　　　　　　　　　　　　 '关闭连接</div>
<div>　Set Cnn = Nothing</div>
<div></div>
<div>　Response.Write "<HTML><BODY>"</div>
<div>　'下面使用断开的记录集</div>
<div>　Do While (Not objRS.EOF)</div>
<div>　　strOut = objRS("运货商ID") & ", " & objRS("公司名称") & ", " & objRS("电话")</div>
<div>　　Response.Write Server.HTMLEncode(strOut) & "<BR>"</div>
<div>　　objRS.MoveNext</div>
<div>　Loop</div>
<div>　Response.Write "<BR>准备新增或插入记录: "</div>
<div></div>
<div>　'若需要更新数据库, 则要重新建立连接</div>
<div>　Set Cnn = Server.CreateObject("ADODB.Connection")</div>
<div>　Cnn.Open strC</div>
<div>　Set objRS.ActiveConnection = Cnn</div>
<div>　objRS.Filter = "公司名称 = '吴丰'"</div>
<div>　If objRS.EOF Then</div>
<div>　　objRS.AddNew</div>
<div>　　objRS("公司名称") = "吴丰"</div>
<div>　　objRS("电话") = "571-7227298"</div>
<div>　　objRS.Update</div>
<div>　　Response.Write "符合该条件的记录不存在, 则新增.<BR>"</div>
<div>　Else</div>
<div>　　objRS("电话") = "571-7227071"</div>
<div>　　Response.Write "符合该条件的记录存在, 则 Update.<BR>"</div>
<div>　　objRS.Update</div>
<div>　End If</div>
<div>　Set objRS.ActiveConnection = Nothing</div>
<div>　Cnn.close</div>
<div>　Set Cnn = Nothing</div>
<div>　objRS.Close</div>
<div>　Set objRS = Nothing</div>
<div>　Response.Write "</BODY></HTML>"</div>
<div>%></div>

试试其它关键字

　数据记录集　

同语言下

可能有用的

Dezai.CN贡献的其它代码(4037)