Home > Developer > ASP

Code for using disconnected data record set in ASP program

Source: Internet
Author: User
Developer on Alibaba Coud: Build your first app with APIs, SDKs, and tutorials on the Alibaba Cloud. Read more ＞

Therefore, to save server resources, you should close the connection whenever possible to release the resources occupied by the connection. This technology that closes the connection of the record set without closing the record set is called the disconnection record set, this record set is called a disconnected record set.

Next we will use an example to describe how to use this technology (NorthWind. mdb is a database that comes with Microsoft Access97, and the file adovbs. inc can be found under C: \ Program Files \ Common Files \ System \ ADO ):Copy codeThe Code is as follows: <% @ 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 ;"
'Establish a connection
Set Cnn = Server. CreateObject ("ADODB. Connection ")
Cnn. Open StrC

'Create A Recordset object

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

StrQ = "SELECT forwarder ID, company name, phone number FROM forwarder"
ObjRS. Open strQ, Cnn, ad1_text
Set objRS. ActiveConnection = Nothing 'disconnects the record Set.
Cnn. Close 'Close the connection
Set Cnn = Nothing

Response. Write "<HTML> <BODY>"
'Use the disconnected record set below
Do While (Not objRS. EOF)
StrOut = objRS ("Freight dealer ID") & "," & objRS ("company name") & "," & objRS ("phone ")
Response. Write Server. HTMLEncode (strOut) & "<BR>"
ObjRS. MoveNext
Loop
Response. Write "<BR> prepare to add or insert a record :"

'If you want to update the database, you need to reestablish the connection.
Set Cnn = Server. CreateObject ("ADODB. Connection ")
Cnn. Open strC
Set objRS. ActiveConnection = Cnn
ObjRS. Filter = "company name = 'wu feng '"
If objRS. EOF Then
ObjRS. AddNew
ObjRS ("company name") = "Wu Feng"
ObjRS ("phone") = "571-7227298"
ObjRS. Update
Response. Write "if the record that meets this condition does not exist, Add. <BR>"
Else
ObjRS ("phone") = "571-7227071"
Response. Write "if the record meets this condition exists, Update. <BR>"
ObjRS. Update
End If
Set objRS. ActiveConnection = Nothing
Cnn. close
Set Cnn = Nothing
ObjRS. Close
Set objRS = Nothing
Response. Write "</BODY> </HTML>"
%>

This article is an English version of an article which is originally in the Chinese language on aliyun.com and is provided for information purposes only. This website makes no representation or warranty of any kind, either expressed or implied, as to the accuracy, completeness ownership or reliability of the article or any translations thereof. If you have any concerns or complaints relating to the article, please send an email, providing a detailed description of the concern or complaint, to info-contact@alibabacloud.com. A staff member will contact you within 5 working days. Once verified, infringing content will be removed immediately.

Related Keywords:
factorial program in php using for loop how to insert data in mysql using php code asp code in html email code in asp net asp net code in aspx asp net set session variable in javascript sending mail in asp net using smtp
Related Article
ASP. NET core combined with consul cluster &docker to rea...
ASP. NET Core SignalR uses a generic hub to gracefully invoke...
ASP. NET Core 2.0 leverages Masstransit integrated RABBITMQ
Integration testing of ASP. NET Core Webapi using Xunit

Contact Us

The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion; products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the content of the page makes you feel confusing, please write us an email, we will handle the problem within 5 days after receiving your email.

If you find any instances of plagiarism from the community, please send an email to: info-contact@alibabacloud.com and provide relevant evidence. A staff member will contact you within 5 working days.

What's Trending
Top 10 Tags
datastax versions naming convention zookeeper client class definition md5 microsoft sql server 2005 data structures exception handling error handling
Top 10 Keywords
microsoft download center down wordpress address url site address url wordpress address url windows installer 4 0 download 302 not found web address url definition site address url wordpress db2 integer mac os installation step by step pdf abbreviation for return

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

  • Sales Support

    1 on 1 presale consultation

    Chat Contact Sales

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

    Open a Ticket

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

    Learn More