赛车

资深站长实例详解ASP狆断开记录集嘚使用

2019-07-12 20:44:54来源:励志吧0次阅读

09:34 来源:页教学 :阿小【纠错】人评论

A-A+ 怎么开淘宝店 站优化方法 创业如何获得投资 小米note顶配版评测 最新LOL活动

我们在使用ASP 内置的ADO组件进行数据库编程时,通常是在脚本的开头打开一个连接,并在脚本的最后关闭它,但是就较大脚本而言,在多数情况下连接打开的时间要比它需要打开的时间长得多。因此为了节省服务器资源,应该尽可能关闭连接以释放连接所占有的资源,这种关闭记录集的连接而不关闭记录集的技术叫做断开记录集,这个记录集本身则称为断开的记录集。

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

以下为引用的内容: <% @LANGUAGE = VBScript %> <!--#include file=c--> <%  pires = 0  Dim CnnobjRS strOut strQ strC  StrC= Driver={Microsoft Access Driver (*.mdb)}; DBQ= pPath(\asp24) \b;  '建立连接  Set Cnn = eateObject(nnection)  en StrC

'创建Recordset对象

Set objRS = eateObject(cordset)  rsorLocation =adUseClient  rsorType = adOpenStatic  ckType = adLockOptimistic

strQ = SELECT 运货商ID 公司名称 FROM 运货商  en strQ Cnn adCmdText  Set tiveConnection = Nothing   '断开记录集  ose                 '关闭连接  Set Cnn = Nothing

ite <HTML><BODY>  '下面使用断开的记录集  Do While (Not F)   strOut = objRS(运货商ID) objRS(公司名称) objRS()   ite MLEncode(strOut) <BR>   veNext  Loop  ite <BR>准备新增或插入记录:

'若需要更新数据库 则要重新建立连接  Set Cnn = eateObject(nnection)  en strC  Set tiveConnection = Cnn  lter = 公司名称 = '吴丰'  If F Then   dNew   objRS(公司名称) = 吴丰   objRS() =   date   ite 符合该条件的记录不存在 则新增.<BR>  Else   objRS() =   ite 符合该条件的记录存在 则 Update.<BR>   date  End If  Set tiveConnection = Nothing  ose  Set Cnn = Nothing  ose  Set objRS = Nothing  ite </BODY></HTML> %>

查看更多相似文章

微店货源
新零售平台
如何做一个品牌策划,这样做效果好
分享到: