ASP practice-ASP (8)

Source: Internet
Author: User
Use ASP, VB, and XML to create applications running on the Internet (2)
In the actual programming process, you should use some methods to make the application more efficient. You can move the ASP code to a COM application and create an XSLT transform to display the returned data. Okay, I'm not talking about it anymore. Now all you have to do is give it a try!
Option Explicit
Private RCommands As Recordset
Private RCustomers As Recordset
Private RCust As Recordset
Private sCustListCommand As String
Private Const dataURL = "http: // localhost/XHTTPRequest/getData. asp"
Private arrCustomerIDs () As String
Private Enum ActionEnum
VIEW_HISTORY = 0
VIEW_RECENT_PRODUCT = 1
End Enum
Private Sub dgCustomers_Click ()
Dim CustomerID As String
CustomerID = RCustomers ("CustomerID"). Value
If CustomerID <> "" Then
If optAction (VIEW_HISTORY). Value Then
Call getCustomerDetail (CustomerID)
Else
Call getRecentProduct (CustomerID)
End If
End If
End Sub
Private Sub Form_Load ()
Call initialize
Call getCustomerList
End Sub
Sub initialize ()
'Command name and corresponding value returned from the database
Dim sXML As String
Dim vRet As Variant
Dim F As Field
SXML = "<? Xml version = "" 1.0 ""?> "
SXML = sXML & "<command> <commandtext> Initialize </commandtext>"
SXML = sXML & "<returnsdata> True </returnsdata>"
SXML = sXML & "</command>"
Set RCommands = getRecordset (sXML)
Do While Not RCommands. EOF
For Each F In RCommands. Fields
Debug. Print F. Name & "=" & F. Value
Next
RCommands. MoveNext
Loop
End Sub
Function getCommandXML (command_name As String) As String
RCommands. MoveFirst
RCommands. Find "command_name = '" & command_name & "'", adSearchForward, 1
Related Article

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

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.