ASP程序中使用断开的数据记录集的代码

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

下面我们就通过一个实例来说明这种技术的使用方法(NorthWind.mdb是Microsoft Access97自带的一个数据库，文件adovbs.inc可在C:\Program Files\Common Files\System\ADO下找到)：


代码如下:

<% @LANGUAGE = VBScript %>
<!--#include file="adovbs.inc"-->
<%
　Response.Expires = 0
　Dim Cnn,objRS, strOut, strQ, strC
　StrC= "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\asp24") & "\NorthWind.mdb;"
　'建立连接
　Set Cnn = Server.CreateObject("ADODB.Connection")
　Cnn.Open StrC

　'创建Recordset对象

　Set objRS = Server.CreateObject("ADODB.Recordset")
　objRS.CursorLocation =adUseClient
　objRS.CursorType = adOpenStatic
　objRS.LockType = adLockOptimistic

　strQ = "SELECT 运货商ID, 公司名称, 电话 FROM 运货商 "
　objRS.Open strQ, Cnn, , , adCmdText
　Set objRS.ActiveConnection = Nothing　　 '断开记录集
　Cnn.Close　　　　　　　　　　　　　　　　 '关闭连接
　Set Cnn = Nothing

　Response.Write "<HTML><BODY>"
　'下面使用断开的记录集
　Do While (Not objRS.EOF)
　　strOut = objRS("运货商ID") & ", " & objRS("公司名称") & ", " & objRS("电话")
　　Response.Write Server.HTMLEncode(strOut) & "<BR>"
　　objRS.MoveNext
　Loop
　Response.Write "<BR>准备新增或插入记录: "

　'若需要更新数据库, 则要重新建立连接
　Set Cnn = Server.CreateObject("ADODB.Connection")
　Cnn.Open strC
　Set objRS.ActiveConnection = Cnn
　objRS.Filter = "公司名称 = '吴丰'"
　If objRS.EOF Then
　　objRS.AddNew
　　objRS("公司名称") = "吴丰"
　　objRS("电话") = "571-7227298"
　　objRS.Update
　　Response.Write "符合该条件的记录不存在, 则新增.<BR>"
　Else
　　objRS("电话") = "571-7227071"
　　Response.Write "符合该条件的记录存在, 则 Update.<BR>"
　　objRS.Update
　End If
　Set objRS.ActiveConnection = Nothing
　Cnn.close
　Set Cnn = Nothing
　objRS.Close
　Set objRS = Nothing
　Response.Write "</BODY></HTML>"
%>

赞 (0)

相关推荐

  • ASP程序中使用断开的数据记录集的代码

    因此为了节省服务器资源,应该尽可能关闭连接以释放连接所占有的资源,这种关闭记录集的连接而不关闭记录集的技术叫做断开记录集,这个记录集本身则称为断开的记录集. 下面我们就通过一个实例来说明这种技术的使用方法(NorthWind.mdb是Microsoft Access97自带的一个数据库,文件adovbs.inc可在C:\Program Files\Common Files\System\ADO下找到): 复制代码 代码如下: <% @LANGUAGE = VBScript %> <!--

  • 在Asp程序中取得表单所有内容的代码

    在Asp中如何得到所有表单的名称跟对应的值.其实,这个问题很简单,但是可能还是有很多人不知道该怎么做,所以特地写下来,仅供参考.在Asp程序中,用来获得客户端数据的对象是 Request,这个对象给我们提供了很多的方法以及属性.比如,有这样一个Form, <FORM METHOD=POST name=cqq ACTION=""> <INPUT TYPE="text" NAME="username"> <INPUT T

  • ASP.net中Core自定义View查找位置的实例代码

    .NET Core 的内容处处可见,刷爆全球各大社区,所以,老周相信各位大伙伴已经看得不少了,故而,老周不考虑一个个知识点地去写,那样会成为年度最大的屁话,何况官方文档也很详尽.老周主要扯一下大伙伴们在入门的时候可能会疑惑的内容. ASP.NET Core 可以在一个项目中混合使用 Web Pages 和 MVC ,这是老周最希望的,因为这样会变得更灵活.Web Pages 类似于我们过去的 Web 开发方式,以页面为单位,此模型侧重于功能划分.而 MVC 侧重于数据,有什么样的数据模型就有什么

  • ASP.NET中RadioButtonList绑定后台数据后触发点击事件

    本文实例为大家分享了RadioButtonList绑定后台数据,触发点击事件的方法 首先前台页面放置一个RadioButtonList 控件 <asp:RadioButtonList runat="server" ID="RadioButtonList1" BorderStyle="None" RepeatColumns="3" CssClass="" RepeatLayout="Flow&

  • ASP.NET中实现jQuery Validation-Engine的Ajax验证实现代码

    ASP.NET中实现jQuery Validation-Engine的Ajax验证实现代码

    见下图: 验证的例子:http://www.position-relative.net/creation/formValidator/ 官方地址: http://www.position-absolute.com/articles/jquery-form-validator-because-form-validation-is-a-mess/ 这个插件支持大部分的浏览器,但由于有使用到了css3的阴影和圆角样式,所以在IE浏览器下无法看到圆角和阴影效果(IE 9 支持圆角效果). 本文主要内容是

  • Asp.Net中的数据源概述与配置及实例代码

    Asp.Net中的数据源概述与配置及实例代码

    数据源 数据绑定分为数据源和数据绑定控件两部分,数据绑定控件通过数据源来获得数据,通过数据源来隔离数据提供者和数据使用者,数据绑定控件通过数据源来对数据进行修改,数据源有SqlDataSource.AccessDataSource.ObjectDataSource.LinqDataSource.EntityDataSource.XmlDataSource等 ObjectDataSourceWeb开发中应用最广的数据源,做为主要介绍 数据绑定控件 数据绑定控件有列表数据绑定控件(DropDownL

  • 在程序中压缩sql server2000的数据库备份文件的代码

    怎样压缩sql server2000的数据库备份文件,像rar一样?小弟有一7m的sql server2000 数据库备份文件,在程序中怎样压缩啊? 复制代码 代码如下: procedure TForm1.Button2Click(Sender: TObject);  var    SHExecInfo: SHELLEXECUTEINFO;  begin   SHExecInfo.cbSize := sizeof(SHELLEXECUTEINFO);    SHExecInfo.fMask :=

  • ASP.NET中的DataGridView绑定数据和选中行删除功能具体实例

    首现我们拖入一个DataGridView控件到.aspx页面中,然后绑定你需要显示的列,具体代码如下. 复制代码 代码如下: <asp:GridView ID="gvDepartList" runat="server" AutoGenerateColumns="False"          Height="108px" Width="600px"  OnRowDeleting="gvDep

  • ASP程序中常用的脚本语言

    在浏览器中通过查看源代码的方式是无法看到ASP源代码的,你只能看到由ASP文件输出的结果,而那些只是纯粹的HTML而已.这是因为,在结果被送回浏览器前,脚本已经在服务器执行了. 实例: 用ASP写文本 以下为引用的内容: <html> <body> <% response.write("Hello World!") %> </body> </html> 向文本添加HTML 以下为引用的内容: <html> <

  • ASP.NET中实现把Json数据转换为ADO.NET DataSet对象

    ASP.NET中实现把Json数据转换为ADO.NET DataSet对象

    Json数据转换为ADO.NET DataSet其实方法有很多,Newtonsoft.Json也提供了DataSet的Converter用以转换Json数据.但是有些情况下DataSet Converter并不管用,而且也不一定能够满足项目需要.这里介绍另一种简单有效的方法,能够方便快速地将Json数据转为ADO.NET DataSet. 设计 事实上Newtonsoft.Json已经提供了一套完整的Json数据文档结构,Newtonsoft.Json.Linq命名空间下提供了这种文档结构的对象

随机推荐