Business Reference Architecture: Enterprises to consumers (B2C E-Commerce Practice) Chapter 7: Consolidatedretail.com's fun

zhaozj2021-02-08 257

Business reference architecture: business to consumers

Chapter 7: Function of ConsolidatedRetail.com

Microsoft Corporation

May 2001

Summary: This chapter introduces the functionality of the consolidatedretail.com application, and provides a pseudo code and actual code example to detail the processing flow.

Introduction

Now, you have an overall understanding of the components of the solution, you can start checking the specific features provided by the site. This chapter discusses the following aspects of the solution and focus on the internal problems faced when writing code for each ribbon:

Represents service user authentication and user profile maintenance product catalog "Shopping Basket" Management Order Processing

When reading each section of this chapter, you will learn about the implementation of specific features, and how to reuse some or all of your company in your own enterprises (B2C) solutions for the consuppidatedretail.com application.

Express service

The representation service in the consolidatedretail.com site is provided by the XSLisapi filter. The main development problem is: How to generate a suitable XML in each PASP script, and how to create the appropriate XSL style sheet to represent the XML as HTML (or other representation format).

XML output from the PASP file in consolidatedretail.com

In the consolidateDretail.com site, each PASP file generates the same XML document. This is to join the include reference to the Common.asp file in each page of the site, and call its Pagestart process.

The PageStart process in the Common.asp file contains the following code:

Sub Pagestart (STRPAGENAMEWITHEXTENSION)

'Remove the PASP file extension

DIM STRPAGENAME

StrPageName = Trim (left (StrPageNamewitHextension, _

INSTRREV (StrPageNameWitHextension, _

".") - 1))

'XML header

Response.write_

"Server-config =" "" "" ""

STRPAGENAME & "-config.xml" "href =" "" & _

STRPAGENAME & "-ie5.xsl"?> "

'The root of the page element.

'Generate end tags in the "pagend" subroutine.

Response.write " "& vbcrlf

End Sub

This process creates an XML header for the document to be generated for the PASP file. At the end of each PASP script, the PageEnd process will be called to generate the end tag of and complete the XML document. The following is listed below related code in the Pagend process:

Sub pagend ()

'In order to express it more clear, the code for directory, logout and error message is omitted here.

Call XmlendTag ("Page")

End Sub

The XMlendTAG process is one of the many XML Helper processes in Common.asp. (For more information, please refer to the "XML Helper Process" section in this chapter.) It generates an XML end tag using the following code: SUB XMLENDTAG (STRTAGNAME)

Response.write Mc_STRSTARTTAG & MC_STRFORWARDSLASHTAG & _

Lcase (Replace (Strtagname, MC_STRBLANK, _

MC_STRUNDERSCORE)) & _

MC_STRENDTAG & VBCRLF

End Sub

The XML document generated using the Pagestart and Pagend processes is similar to the following code:

Server-config = "filename-config.xml"

HREF = "filename-ie5.xsl"?>

XML Helper process

In addition to the XMLendTAG mentioned above, Common.asp also contains multiple utility routines related to XML. Use these procedures to generate some tags that will be used in the XML document generated by the PASP page in the ConsolidatedRetail.com site.

Although in many cases, the desired XML characters (such as "<" and ">", please note that the quotation marks are hardened more efficient, however, in various XML generation, a large number of XML characters constants are all Declaration in Common.asp. This increases the readability of the code while helping to debug. These constants are:

Const mc_strstarttag = "<"

Const mc_strendtag = ">"

Const mc_strforwardslashtag = "/"

Const mc_strunderscore = "_"

Const mc_strblank = "" "

These constants are used in the following XML generation process:

XMLbegtag: This utility is written in an XML start tag (for example ) according to the strtagname parameter. XMlendTag: This utility (described above) is written according to the strtagname parameter (for example, ). XMLEMPTYTAG: This utility writes an empty XML tag (for example, ) according to the StrtagName parameter. XMLTAG: This utility writes an XML tag that contains values (for example ) based on the StrtagName and the StrtagValue parameters (eg MyValue ). GetXmlFromrs: This utility creates the XML representation of the record set. GetxmlFromrsrow: This utility creates XML representation of the current line in the recordset.

In addition, many other processes (collectively referred to as xxxwithdsplynm) are used to generate an XML tag containing the displayName property, for example: joe

The marked display name is retrieved from the CatalogDefinitionProperties application-level dictionary variable based on the tagname.

To fully understand the features provided by the XML Helper process, check the source code in Common.asp.

XSL style sheet in consolidatedretail.com site

As mentioned earlier, each page has a associated "file name" -config.xml file, which lists the XSL style sheet to be applied to each client browser or device type. In this implementation, you only support Microsoft® Internet Explorer 5.5, although you can create an alternative style sheet and add to the site to solve this problem.

The XSL file for each PASP page is named "Page Name" -ie5.xsl (where "page name" is a non-version specific name of the PASP page), which contains the page data dedicated XSL code. However, in order to keep the site uniform appearance, you need to define the public user interface (UI) element of all pages in a separate XSL file (named UI_Layout-IE5.xsl). This file is stored in the incrude directory. Each page dedicated XSL file uses the XSL Include instruction to merge the representation logic in ui_layout-ie5.xs to the present page, as shown in the following code segment:

Templates used in Ui_Layout-IE5.xsl

The UI_Layout-IE5.xsl file contains several templates. The Page Template will be applied to the element in the XML document generated by each PASP page. This template references the stylesheet.css cascade style sheet and creates an HTML table containing five lines, and the overall page will be based on the HTML table. The system calls other templates in the UI_Layout-IE5.xsl file to populate these rows.

The first line of the table contains calls to the PageHeader template (defined in the following scripts). This template presents page headline, including images that link to "Shopping Basket", "Profile", and "Home".

The second line is used to create a spacing from the third line, while the third line contains the call to the main template. This template contains the logic required to present the left menu panel (including search form) on the left side of the page. Main template calls the GetCatalogsForuser template, Exceptions template, and Advertising or ProfileMenu template (depending on whether there is an Advertising or ProfileMenu XML element).

The fourth line of the table is similar to the second line, used to create the spacing from the fifth line; the fifth line calls the PageFooter template. This template presents the bottom panel of the page, including a copyright statement.

The PAGE template in Ui_Layout-IE5.xsl is shown in the following code. You can view PageHeader, Main, PageFooter, and other templates for rendering sites in UI_Layout-IE5.xsl.

consolidatedretail.com </ title> <link rel = "stylesheet" type = "text / css" href = "stylesheet.css" /> </ hEAD> <body bgcolor = "# ceb6d5" leftmargin = "0" marginwidth = "0" TopMargin = "0" marginheight = "0" οnlοad = "FOCUS ()"> <table width = "100%" cellpadding = "0" cellspacing = "0" border = "0"> <tr> <TD> <XSL: Call-Template Name = "PageHeader" /> </ td> </ TR> <tr> <TD Height = "10" /> </ TR> <tr> <TD> <XSL: Call-Template Name = "Main" /> </ td> </ TR> <tr> <TD Height = "10" /> </ TR> <tr> <TD> <XSL: Call-Template Name = "Pagefooter" /> </ td> </ TR> </ TABLE> </ body> </ html> </ xsl: template> <! - In order to express more clear, this is omitted with the code of other templates -> </ xsl: stylesheet> Render index.pasp You can check the INDEX.PASP page to see the combination relationship between all pages in the site. The index.pasp page is the default page of the site (ie, home page). INDEX.PASP contains code that performs the following tasks: Use the value index.pasp to define a constant called MC_STRPAGENAME. Call the Pagestart procedure in Common.asp to create the appropriate <page> start tag. Create an empty <Advertising /> tag using the XMLEMPTYTAG process. Call the Pagend process Create </ page> End Tag. The following code performs the above tasks: <! - # include file = "incrude / site_const.asp" -> <! - # include file = "incrude / common.asp" -> <% Const mc_strpagename = "index.pasp" Sub main () Call PageStart (MC_STRPAGENAME) XMLEMPTYTAG (MC_STRADVERTISINGMENU) Call Pagend () End Sub Call main () %> This code generates the following XML documentation: <? Xml-stylesheet type = "text / xsl" Server-config = "index-config.xml" HREF = "index-ie5.xsl"?> <Page PageName = "INDEX.PASP"> <advutising /> <getCatalogsforuser> <SelectionTitle> Browse Directory: </ SelectionTitle> <catalog> <catalogname> book </ catalogname> </ catalog> <catalog> <CatalogName> Hardware </ CatalogName> </ catalog> </ getcatalogsforuser> <Profile /> <Exceptions> </ exceptions> </ page> These XML code will be passed to the XSLISAPI filter that determines the corresponding style sheet in Index-Config.xml. The XSLISAPI filter checks the HTTP request header information to determine the type and version of the browser. Then, the browser information is compared to the corresponding style sheet in INDEX-Config.xml. If a matching entry is not found, apply the default style sheet (INDEX-IE5.xsl). INDEX-Config.xml is similar to the following code: <? XML Version = "1.0"?> <Server-Styles-Config> <! - For HDML 3.0 Browser -> <device target-markup = "HDML 3.0"> <stylesheet href = "index-hdml3.xsl" /> </ device> <! - For WML 1.1 Browser -> <device target-markup = "wml1.1"> <stylesheet href = "index-wml11.xsl" /> </ device> <! - For IE 4.0 Browser -> <Device Browser = "IE" Version = "4.0"> <stylesheet href = "index-ie5.xsl" /> </ device> <! - For IE 5.0 Browser -> <Device Browser = "IE" Version = "5.0"> <stylesheet href = "index-ie5.xsl" /> </ device> <! - For MME Browser -> <device Browser = "MME"> <stylesheet href = "index-wml11.xsl" /> </ device> </ Server-Styles-Config> When receiving the request from the Internet Explorer 5.0 browser, use the index-ie5.xsl style sheet as an HTML. (Other entries in the index-config.xml file are just as an example; the consolidatedretail.com site does not provide the corresponding style sheet.) INDEX-IE5.xsl is similar to the following code: <? XML Version = "1.0"?> <XSL: Stylesheet XMLns: XSL = "http://www.w3.org/1999/xsl/transform" Version = "2.0"> <xsl: include href = "incrude / ui_layout-ie5.xsl" /> <XSL: Template Match = "* | /"> <xsl: Apply-Templates /> </ XSL: Template> <XSL: Template Match = "Text () | @ *"> <xsl: value-of select = "." /> </ xsl: template> <XSL: Template Name = "Pageleft" /> <XSL: Template Name = "PageCenter"> <script language = "javascript"> <! [Cdata [ Function focus () { Document.formsearch.txtSearchphrase.focus () } ]]]] </ script> <table width = "100%" cellpadding = "0" cellspacing = "0" border = "0" bgcolor = "# fff"> <tr> <td width = "11"> <img src = "/ china / msdn / images / spacer.gif" width = "1" height = "1" border = "0" /> </ td> <TD Valign = "TOP" class = "content-text"> <table width = "100%" cellpadding = "0" cellspacing = "0" border = "0"> <tr> <TD Valign = "TOP" colspan = "3" class = "content-text"> Welcome to consolidateDretail.com Welcome to this site, you can easily purchase any items you need here. <a href="registration.Pasp"> <img src = "/ china / msdn / images / home_freeshipping.gif" width = "271" height = "46" vSpace = "5" border = "0" /> </> </ td> </ TR> <tr> <TD Valign = "TOP" class = "content-text"> <img src = "/ china / msdn / images / spaceer.gif" width = "200" height = "1" border = "0" /> </ td> <td width = "1" bgcolor = "# CEB6D5"> <img src = "/ china / msdn / images / spacer.gif" width = "1" height = "1" border = "0" /> </ td> <td width = "125" align = "right" Valign = "TOP" class = "content-text"> <img src = "/ china / msdn / images / giftregistries.gif" Width = "118" height = "30" border = "0" /> This function can be implemented in the near future. </ td> </ TR> </ TABLE> </ td> <td width = "11"> <img src = "/ china / msdn / images / spaceer.gif" width = "1" height = "1" border = "0" /> </ td> </ TR> </ TABLE> </ xsl: template> <XSL: Template Name = "PAgeright" /> </ xsl: stylesheet> This style table contains the UI_Layout-IE5.xsl style sheet described above. Ui_Layout-IE5.xsl style sheet is used to present the public UI element of the page. In this example, the XML document contains the <advertising /> tag. Therefore, UI_Layout-IE5.xsl also uses the Advertising template to render the right panel of the page. The resulting index page is similar to Figure 7-1. Figure 7-1: Code The consolidatedretail.com site is rendered in the PASP page in accordance with the method described above. Use this method (XML content in the PASP file, define a representation in the XSL style sheet), you can easily change the style sheet for displaying the page without affecting the business logic in the PASP file. Therefore, this solution is very flexible and is easy to reuse. User authentication and maintenance of user profiles Microsoft® Commerce Server 2000 supports scalable configuration file systems that store large number of user data. The user data (or user profile) can include the consignee address and contact information. Customers can use these profiles to store personal data, including consignee addresses and contact information so they do not have to re-enter such information every time you have access to the site. Companies can use the profile information for commercial analysis and carry out targeted advertising activities. To create and maintain a configuration file, the user must log in to the site and register on the site. This will create a unique user ID that identifies the user and retrieves the corresponding profile information from the database. The user's ID is stored in the cookie on the client browser. If the user is not logged in, the cookie will contain the user ID associated with an anonymous user, at which point the configuration file information is not available. When the user logs in, the corresponding user ID will be retrieved and the cookie is written, so that the configuration file information can be used during the later session. Note that this site requires the browser to allow cookies. If the user uses the browser configured to allow each session cookie (ie, cookie not stored on the user's hard disk), the user will be able to log in to the site, but also use the site, but cannot use the product Put it in the shopping basket. If you don't allow cookies at all, the user will not access this site. User registration Users can register to this site using the registration.pasp page. This page contains a form that is sent back to itself when using the Registration-IE5.xsl style sheet. The registration.pasp page contains the code that performs the following tasks: Check the data in the form to determine the MODE and Processction parameters. The MODE parameter is used to specify the user to redirect the user after the registration is complete (the default value is acct.pasp). The ProcessAction parameter is used to determine whether the registration form is displayed to allow the user to register, or turn the form back back to proceed. Transfer the registration data to the PutuserObject to create a new configuration file. PutuserObject is defined in the Profile.asp header file. Redirect the user to the acct.pasp page (or other pages specified by the MODE parameter). Registration.PASP Pages Use the MSCSAppframework application-level variable to retrieve the Mode and ProcessAction values from the query string, as shown in the following code segment: strpagemode = _Application ("mscsappframework"). RequestString (_ "Mode", Null,, True, True, 0, NULL StrProcessingAction = _ Application ("mscsappframework"). RequestString (_ "Processction", NULL, TRUE, TRUE, 0, NULL Mode is usually empty, which means that the user has successfully registered and should be redirected to the account management page (Acct.PASP). In some cases, Mode contains the name of other pages, and the user should be redirected to the page. For example, if an anonymous user adds the product to the shopping basket before registration, you may want to redirect the user to the "Checkout" page after the user is registered. The ProcessAction parameter is used to determine that the user is from another page in the site to enter the registration page, or from the registration page itself. If it is the former case, a registration form will be rendered; if it is the latter case, the content of the registration form will be used to register the user. If the ProcessAction parameter is EditUserObject, you can use the data in the form on the form to register the user. The script then retrieves the form data and passes the data to the PUTUSEROBJECT function, which is defined in the profile.asp header file. The header contains various processes for managing user profiles, and each page in the site will use these procedures. The PUTUSEROBJECT function is used to add or update the user profile and return a Boolean value indicating success or failure. If the user is successfully created, the user is allowed to log in and redirect it to another page. If it fails (for example, due to the specified username already exists), the registration.pasp page is res. and the error message indicates that the problem is. The code calls the GetUserID function in Common.asp to retrieve user ID. This function is used to update existing users, which will be discussed in detail later. The next line of the next line for registering new users will check if there is user name with the specified user name: set objmscsprofile = _ Application ("MscsprofileService"). Getprofile (strusername, _ _ MC_STRUSEROBJECT, BLNRETURNCODE) IF not (objmscsprofile is nothing) THEN Call addexception (m_varrexceptions, 1, _ "The user name already exists.", MC_STRPAGENAME) Set objmscsprofile = Nothing If this username has not been used, the code will generate a GUID (unique user ID) and add the user while calling the CreateProfile method of the ProfileService object. The value from the registration form will assign the configuration file: struserid = generateGUID () set objmscsprofile = _ Application ("MscsprofileService"). CreateProfile (_ StruserName, MC_STRUSEROBJECT) Objmscsprofile.fields (mc_strgeneralinfo) .value _ (MC_STRUSER_ID) = CSTR (StrUserID) Objmscsprofile.fields (mc_straccountinfo) .value _ (MC_STRACCOUNT_STATUS) = CINT (1) Objmscsprofile.fields (mc_strgeneralinfo) .value _ ("User_Type") = STRUSERTYPE Objmscsprofile.fields (mc_strgeneralinfo) .value _ (MC_STRUSER_SECURITY_PASSWORD) = STRPASSWORD Most of the code in the remainder of this page is used to update existing user objects. Finally, update the configuration file object, the function returns true: objmscsprofile.Update Set objmscsprofile = Nothing PutuserObject = TRUE After the function is running, the new user registers the site database. After the user is registered, registration.pasp redirects the browser to acct.PASP (if the Mode parameter is null) or other pages specified by the MODE parameter: if BlnRegistered Then IF isnull (strpagemode) THEN Response.Redirect "acct.pasp? Mode =" & strpagemode Else Response.Redirect strpagemode & "? Mode =" & strpagemode END IF END IF Authenticate users The registered user must log in and via authentication to access its configuration file information. As mentioned above, the code in the registration.PASP will automatically log in to the newly registered user. However, when the user logs in again, the username and password must be provided to verify. Note: In this application example, login details are passed using the HTTP protocol to pure text format. However, in the actual site, you should use the Secure Hypertext Transfer Protocol (HTTPS) to encrypt security credentials. Users can log in with Login.PASP page. Like Registration.PASP, this page sends data to itself and uses Profile.asp to process data. Login.PASP page contains code that performs the following tasks: Check the data in the form to determine the MODE and Processction parameters. The Mode parameter is used to specify the page to redirect the user after the login is complete (the default value is acct.pasp). The ProcessAction parameter is used to specify whether to display the user credential form to allow the user to log in, or turn the form back to proceed. Retrieve user credentials from the form. Pass the credential to the login function in Profile.asp. Redirect the user to the acct.pasp page (or other pages specified by the MODE parameter). The most important code in login.pasp is a call to the login function in profile.asp: blnloginsuccessful = login (strusername, strpassword) login function is used to verify the user's username and password, and send the authentication order in the form of cookie to Client browser. The first task of this function is to create and initialize the AuthManager object using the following code: set objmscsauthmgr = _ Server.createObject (MC_STRAUTHMANAGER) Call Objmscsauthmgr.initialize_ (Application ("mscsdictconfig"). S_sitename) The code then removes the user's existing authentication list from the previous login: if objmscsauthmgr.isauthenticated then Call objmscsauthmgr.setauthticket_ ("", blncookiesupport, _ Application ("mscsdictconfig") ._ I_Formlogintimeout END IF Check and make sure the username is not empty, the code will use the application-level MSCSProfileService object to load configuration files for users with the specified name: set objmsprofileObject = Application ("msprofileservice"). Getprofile (strusername, mc_struserObject, blnreturncode) If you find a matching profile for the registered user, check your password and user ID and compare the password provided by the user: strprofilepassword = _ ObjmscsprofileObject (mc_strgeneralinfo) .value _ (MC_STRUSER_SECURITY_PASSWORD) Struserid = objmscsprofileObject (mc_strgeneralinfo). _ Value (MC_STRUSER_ID) IF cstr (strprofilepassword) = cstr (strpassword) THEN ... You can add the product to the shopping basket while browsing in anonymous manner, which is one of the design features of the consolidatedretail.com site. If the user added the product to the shopping basket before logging in, the user has issued an anonymous configuration file. The AuthManager object now retrieves this document so that you can transfer anonymous users' shopping basket content to a shopping basket for users who have passed authenticated: strprofileuserid = _ Objmscsauthmgr.getuserid (MC_BYTPROFILETICKETTYPE) Tag a new document (by authentication user documents), set anonymous cookies to blank values, to delete it: Call Objmscsauthmgr.SetAutAutHticket_ (Struserid, Blncookiesupport, _ Application ("mscsdictconfig"). I_Formlogintimeout Call objmscsauthmgr.setUserid (mc_bytauthtickettype, _ struserid Call objmscsauthmgr.setUserid (mc_bytprofiletickettype, "") Call Objmscsauthmgr.SetProfiletic (", BLNCOOKIESUPPORT) Finally, transmit all products in anonymous shopping basket and state the success: if (len (strprofileuserid> 0) THEN 'Get profiles from anonymous sessions 'Object Set objmscsunregprofileObject = Application (_ "MscsprofileService"). Getprofilebykey (_ MC_STRUSER_ID, STRPROFILEUSERID, _ Mc_struserObject, blnreturncode) 'If you return a matching anonymous configuration file IF not (objmscsunregprofileObject is nothing) THEN 'Transfer your shopping basket from anonymous ID to has been registered 'Id Call MovebasketItems (StrofileUserid, Struserid) 'Remove anonymous profile from the configuration file store Call Application ("MscsprofileService"). _ DeleteProfilebyKey (Mc_Struser_ID, _ StrofileUserid, MC_STRUSEROBJECT) END IF Set objmscsunregprofileObject = Nothing END IF 'Return to indicate the value of successful login Logon = TRUE During the subsequent session, the user provides authentication cookies for each request, so that the code can retrieve the user's configuration file information. Retrieve and update configuration file information This site allows users to view and edit their configuration file information on multiple pages. Since all pages use similar code to update the fields in the user profile, this chapter only discusses the userprofile.pasp page in detail. You can also view code in EditadDressbook.PASP and ChangePasswd.Pasp, which performs similar features. UserProfile.PASP page contains a form that users can view and change the name, last name, email address, and phone number in this form. Its design idea is similar to the Registration.PASP page described above. UserProfile.PASP page contains the code that performs the following tasks: Check the value of the ProcessingAction query string. If the value is EdituserObject, the page has sent the form content to itself, and the configuration file must be updated. Retrieve the form value from the query string. Pass the form value to the PutuserObject function in Profile.asp. Convert the configuration file value to an XML format. As mentioned above, the PUTUSEROBJECT function is used to register new users when receiving the username. If the user name is not received, the function assumes that the user has existed and attempts to update the data in the existing configuration file. To access the configuration file, PutuserObject uses the GetUserID function in Common.asp to retrieve the current user ID from the authentication order, as shown below: Function GetUserid () Dim Objmscsauthmgr 'Authentication Manager DIM STRUSER_ID 'from the Authentication Manager 'Retrieved user ID 'Institute of Authmanager objects and initialize. Set objmscsauthmgr = _ Server.createObject (MC_STRAUTHMANAGER) Call Objmscsauthmgr.initialize_ (Application ("mscsdictconfig"). S_sitename) Struser_id = NULL 'If the user has verified by authentication and the authentication is not ' time out IF objmscsauthmgr.isauthenticated then 'Get the unique login ID used in authentication. Struser_id = _ Objmscsauthmgr.getuserid (MC_BYTAUTHTICKETTYPE) 'Otherwise, if the user browsses anonymously Else 'Get the configuration file user ID (ie Guid). 'If the getUserid method returns an empty string 'Convert this string to NULL Struser_id = _ Objmscsauthmgr._ GetUserId (MC_BYTPROFILETICKETTYPE) IF not isnull (struser_id) THEN If Len (Trim (Struser_ID)) = 0 THEN Struser_id = NULL END IF END IF END IF 'Return to new GUID or currently verified by authentication ' username GetUserid = struser_id Set objmscsauthmgr = Nothing END FUNCTION In order to retrieve user profiles, PROFILE.ASP's PUTUSEROBJECT function code uses the PROFILEBYKEY method of the ProfileService object: set objmscsprofile = Application ("mscsprofileservice"). Getprofilebykey (_ MC_STRUSER_ID, STRUSERID, MC_STRUSEROBJECT, BLNRETURNCODE) Finally, the code updates the user's configuration file field: objmsprofile.fields (mc_strgeneralinfo) .value (_ _ MC_STRFIRST_NAME) = StrfirstName Objmscsprofile.fields (mc_strgeneralinfo) .value (_ MC_STRLAST_NAME) = STRLASTNAME Objmscsprofile.fields (Mc_StrGeneralInfo) .value (_MC_STREMAIL_ADDRESS = strearatdress Objmscsprofile.fields (mc_strgeneralinfo) .value (_ MC_STRTEL_NUMBER) = STRTELNUMBER Objmscsprofile.fields (mc_strgeneralinfo) .value (_ MC_STRWORK_NUMBER) = StrWorkNumber Objmscsprofile.fields (mc_strgeneralinfo) .value (_ MC_STRWORK_EXTENSION = StrWorKextension Objmscsprofile.fields (MC_STRPROFILESTEM) .VALUE (_ _ MC_STRDATE_LAST_CHANGED) = now Objmscsprofile.update After updating the configuration file, the code in the userprofile.pasp calls the GetUserObjectXML process, which will use the entire user profile as an XML render (actually display the fields referenced in UserProfile-IE5.xsl, but can do not change the code, Style sheets are modified to display other profile information). The GetUserObjectXML process uses the GetProfileByKey method of the ProfileService object to retrieve the user's configuration file. Then, use the XML Helper routine in include / Common.asp to present data. The getUserObjectXML routine is similar to the following code: SUB getUserObjectXML () DIM Objmscsprofile DIM STRUSERID DIM Field Dim Group DIM BLNRETURNCODE Const c_strofile = "UserObject" struserid = getUserid IF not isnull (struserid) THEN 'Use the specified architecture to initialize the configuration file service and connect to the configuration file storage area IF Not Application ("MscsprofileService") is nothing then 'Use the configuration file service to retrieve the user's configuration file object and assign the object 'Return value for functions Set objmscsprofile = Application ("MscsprofileService") .Getprofilebykey (mc_struser_id, getuserid, _ Mc_struserObject, blnreturncode) IF not objmsprofile is nothing then Call Xmlbegtag (c_strprofile) For Each Group in Objmscsprofile.fields Call Xmlbegtag (Group.name) For Each Field in Group.Value Call Xmltag (Field.Name, Field.Value) NEXT Call XmlendTag (Group.name) NEXT Call XmlendTag (c_strprofile) END IF Set objmscsprofile = Nothing END IF END IF End Sub This process will generate the following XML output: <? Xml-stylesheet type = "text / xsl" Server-config = "UserProfile-config.xml" HREF = "UserProfile-IE5.xsl"?> <Page PageName = "UserProfile.Pasp"> <profilemenu /> <PageMode /> <UserObject> <accountinfo> <ORG_ID /> <Account_Status> 1 </ Account_Status> <user_catalog_set /> <date_register /> </ accountinfo> <Advertising> <campaign_history />> </ advertising> <businessdesk> <partner_desk_role /> </ businessdesk> <generalinfo> <user_id> {8A7D56E9-DABA-499A-96B8-1F8DD93D032B} </ user_id> <logon_name> Kim </ logon_name> <user_security_password> Password </ user_security_password> <email_address> kim@somecompany.com </ email_address> <User_Type> 1 </ user_type> <user_title /> <last_name> </ last_name> <first_name> </ first_name> <tel_number> </ tel_number> <TEL_EXTENSION /> <fax_number> </ fax_number> <fax_extension> </ fax_extension> <user_id_changed_by /> </ generalinfo> <ProfileSystem> <Date_Last_Changed> 2/8/2001 11:57:13 PM </ date_last_changed> <date_created> 2/8/2001 11:57:13 PM </ date_created> </ profilesystem> </ userObject> <! - The rest of this page is generated by common.asp -> <getCatalogsforuser> <SelectionTitle> Browse Directory: </ SelectionTitle> <catalog> <catalogname> Book </ CatalogName> </ catalog> <catalog> <CatalogName> Hardware </ CatalogName> </ catalog> </ getcatalogsforuser> <Profile Auth = "Auth" /> <Exceptions> </ exceptions> </ page> The consolidatedretail.com site provides a valid configuration file feature and demonstrates the basic method of creating, retrieving, and updating user profile information. With Commerce Server Management Desk, you can extend this feature to create custom profile properties, and you can use profile information to provide site personalized services for each user. For more information on using the Commerce Server 2000 configuration file function, please refer to the Commerce Server 2000 documentation. product list A simple way to browse the product catalog for users is one of the most important design goals when designing e-commerce sites. The consolidatedretail.com site implements this goal through the following three ways: The directory is always listed in the user interface. Users can browse through the hierarchical category structure. Users can search for a specific string in the directory. The current user-related directory set is always column in the left pane of the user interface. This is implemented by adding a code that determines and displays the code that can be used and displayed in the Pagend process of Common.asp: This process creates and initializes the CatalogSet object, then calls its GetCatalogSforuser method to pass the ProfileService object referenced by the MSCSProfileService application level variable, the current user (possibly an anonymous user) ID and the default directory collection name to use (if not assigned to the user Directory Set): set objcatalogsets = _ Server.createObject (MC_STRCATALOGSETS) Call ObjcatalogSets.initialize_ (Application ("mscsdictconfig"). _ s_catalogconnectionstring, _ Application ("mscsdictconfig") ._ S_TransactionsConnectionstring) Set rscatalogs = ObjcatalogSets.getcatalogsforuser (_ Application ("MscsprofileService", GetUserid & "", _ GetDefaultCatalogSet) This will return an ADO recorder object, you can use standard recordset programming techniques (such as check file end (EOF) tag and use the MoveNext method) to browse this object: Do While Not Rscatalogs.eof Call Xmlbegtag (c_strcatalog) Call getxmlfromrswithdsplynm (RSCatalogs) Call XmlendTag (C_STRCATALOG) Rscatalogs.Movenext Loop When using the UI_Layout-IE5.xsl style sheet to present the XML generated by this code, the resulting web page displays the name of each directory in the directory set as a link to category.PASP. The generated XML segment is similar to the following: <catalog> <catalogname> Book </ CatalogName> </ catalog> <catalog> <CatalogName> Hardware </ CatalogName> </ catalog> Directory browsing function The directory in the consolidatedretail.com solution is implemented in a hierarchical structure. Both "books" and "hardware" include several categories. The Book of Books also contains a subclass. The product can be stored on any layer of the directory. The page used to browse directory data in the consolidatedretail.com is category.pasp. You can use this page in two modes: root mode or category mode. In the root mode, the page retrieves the product and category from the root specified directory. In the category mode, this page retrieves the product, subcategory, and parent categories from the specified category. This page contains the code that performs the following tasks: Use the MSCSAppFramework object to retrieve the TXTCATALOG and TXTCATEGORY values transmitted in the request string. If the txtcatalog value is not found, then the page redirects the user to Index.PASP. Call the XML header of the pagestart generation page. Retrieve the specified directCatalog object from the MSCSCATALOGMANAGER application variable and write the directory name into the <SearchScope> XML element. Rendering the directory property as an XML. Thus, an attribute such as a directory name can be presented in the user interface. Determine if the catenation name is delivered in the request string. If you do not specify a class name, the page retrieves categories and products from the root of the directory and converts it to an XML format. If a category is provided, the page retrieves the data from the category provided and converts the data to an XML format. Call the Pagend process to close the XML document. This page uses the following code to create <searchscope> element before using the Commerce Server Directory Object to retrieve directory information. Call XMLTAG (c_strsearchscope, strcatalogname) UI_LAYOUT-IE5.xsl Style Table Use this element to pass the current directory name to the search function, then qualify the search. (This chapter will discuss the search function later.) Actual directory data is retrieved using the hierarchical structure of the Commerce Server automation object. The top layer of the hierarchical structure is a CatalogManager object that is used to access all program access to the directory system. The CatalogManager object contains some ProductCatalog objects that represent the directory in the site. In category.pasp, the GetCatalog method for the MSCSCatalogManager application-level variable is used to retrieve the specified directory, as shown in the following code segment: Set objmscsprdcat = application ("mscscatalogmanager"). _ GetCatalog (STRCATALOGNAME) With the GetCatalogAttributes method, you can retrieve the properties of the ProductCatalog object as the ADO recordset. Code in category.PASP Use this method to pass each row in the record set to the getXmlFromrswithDSPlyNM routine in Common.asp, which converts the row to XML format: SET RSPROPERTIES = _ Objmscsprdcat.getCatalogATTRIBUTES If not (rsproperties.eof and rsproperties.bof) THEN Call Xmlbegtag (c_strgetcatalogattribute) Do While Not Rsproperties.eof 'Get the XML version of the record collection Call getxmlfromrswithdsplynm (rsproperties) rsproperties.movenext Loop Call XmlendTag (c_strgetcatalogattributes) END IF This will generate an XML code segment in the following format: <getCatalogAttributes> <CatalogName> Book </ CatalogName> <locale> 8 </ local> <StartDate> 12/8/1999 </ startdate> <Enddate> 12/8/2006 </ enddate> <variantid> ISBN </ variantid> <ProductID> Title </ ProductID> <currency> USD </ currency> <weightmedmeasure> lbs </ weightmeasure> <catalogid> 1 </ CatalogID> <CustomCatalog> False </ CustomCatalog> <freetextindexcreated> 2/8/2001 11:56:22 PM </ freetextindexcreated> <ProductTableUpdated> 2/8/2001 11:53:37 PM </ productTableUpdated> </ getcatalogattributes> You can also use the recordset object to represent the category in the directory root. The rootcategories method is used to retrieve these categories from category.PASP, as shown in the following code segment (note that the Fields collection property is used to retrieve the specified data field from the record set): Set rscategories = objmscsprdcat.rootcategories 'In order to express it, some code is omitted here. Do While Not Rscategories.eof Call Xmlbegtag (c_strrootcategory) Call XmltagwithdsplyNM ("CatalogName", Objmscsprdcat.catalogName) Call XmltagwithdsplyNM ("CategoryName", _ Rscategories.fields ("categoryName"). Value Call XmlendTag (c_strrootcategory) Rscategories.Movenext Loop This will generate an XML code segment as follows: <rootcategory> <catalogname> Book </ CatalogName> <categoryName> Business Software </ CategoryName> </ rootcategory> <rootcategory> <catalogname> Book </ CatalogName> <categoryName> Development Tool </ categoryName> </ rootcategory> <rootcategory> <catalogname> Book </ CatalogName> <categoryName> Featured Products </ categoryName> </ rootcategory> ... Similar to it, for products in the root, you can use the rootproducts method to retrieve the record sets containing these products: Set rsproducts = objmscsprdcat.rootproducts XML generated for each product in the RSProducts record is similar to the following code: <book> <OID> 64 </ OID> <definitionname> SDKBook </ definitionname> <cy_list_price displayName = "Price"> 19.99 </ cy_list_price> <OriginalPrice DisplayName = "Buy Price"> 19.99 </ Original PricE> <i_classtype> 4 </ i_classtype> <Parentoid> -1 </ Parentoid> <productID> Microsoft Age of Empires II: The Age of Kings: Inside Moves </ productID> <variantid /> <title displayName = "Title"> Microsoft Age of Empires II: The Age of Kings: Inside Moves </ Title> <ISBN DisplayName = "ISBN"> 0-7356-0513-0 </ ISBN> <Description> In an exciting new version of Microsoft Age of Empires, you will master all key strategic strategies, skills, and counseling that can help you capture victories! Microsoft Age of Empires II: Age of Kings: Inside Moves show you how to survive from the Roman Empire to the Middle Ages for thousands of years. </ description> <image_filename> Boxshots / Press / 2388.gif </ image_filename> <image_height> 120 </ iMage_height> <image_width> 120 </ image_width> <author displayname = "Author"> Microsoft Corporation </ author> <name displayName = "Name"> Microsoft Age of Empires II: The Age of Kings: Inside Moves </ name> <PageCount DisplayName = "Page"> 280 </ pagecount> <ProductURL DisplayName = "Product Information URL"> a href = http://mspress.microsoft.com/produ/books/2388.htm target = _a http://mspress.microsoft.com/produ/2388.htm / a </ produterl> <publication_year displayname = "Published Year"> 1999 </ publication_year> <Publisher DisplayName = "Publisher"> Microsoft Press </ PUBLISHER> <Reading_level DisplayName = "Read Level:"> All Level </ Reading_level> <CatalogName> Book </ CatalogName> </ book> If the code needs to drill to a deeper directory and retrieve some of the contents of the category, you can use the Category object. Category.PASP page Use the Category object to access the contents of the specified category. This object instantiates using the getCategory method of the ProductCatalog object, as shown in the following code segment: Set objmscscategory = _ Objmscsprdcat.getcategory (strcategoryName) You can use the Products property to retrieve the products in the category as a recordset: SET RSPRODUCTS = ObjmscScategory.Products The Category object also provides the ChildCategories property to retrieve the subclass of records, providing the ParentCategories property to return the parent category recordset. Whether they are in a hierarchical structure, you can use Commerce Server Business Desk to create the relationship between categories and products in your catalog. The Category object provides the RelatedCategories and the RelatedProducts property to retrieve the record set containing the corresponding content. You can see examples of how to use these objects in Category.Pasp. View Product Category-IE5.xsl style sheet for rendering directory data generates HTML, which is requested by the user when the user clicks the "Get Detail" link of a particular product. This page will display specific data for the selected product. The beginning of the code in Product.Pasp is similar to category.pasp. This code retrieves the directory, product ID, and optional product variables in the request string. If there is no directory or product ID parameter, redirect the user to INDEX.PASP. Then, the code calls PageStart starts to generate XML for this page. The code becomes interesting when retrieving the Commerce Server product object from the directory object using the getProduct method: Set objmscsprd = objmscsprdcat.getProduct (STRPRoductID) You can use the getProductProperties method to retrieve some properties of the product in the record set object, such as product name and price: Set rsproduct = objmscsprd.getProductProperties Products in the Commerce Server directory support variants (such as different colors or different products). You can use the Variants attribute to retrieve a variable list of a particular product as a recordset. In addition, you can also use the RelatedProducts and the RelatedCategories property to retrieve any related products or categories. Use these properties to create a link to get a cross-selling opportunity. All of these properties are used to generate XML data for the product in Product.PASP page, which lists a XML code. Then use the Product-IE5.xsl style sheet to present these data. <getProduct> <book> <catalogname> Book </ CatalogName> <definitionname> SDKBook </ definitionname> <cy_list_price displayName = "Price"> 19.99 </ cy_list_price> <originalprice displayName = "Buy Price"> 19.99 </ Original Price> <i_classtype> 4 </ i_classtype> <ProductID> Microsoft Age of Empires II: The Age of Kings: Inside Moves </ ProductID> <variantid /> <author displayname = "Author"> Microsoft Corporation </ author> <Description> In an exciting new version of Microsoft Age of Empires, you will master all key strategic strategies, skills, and counseling that can help you capture victories! Microsoft Age of Empires II: Age of Kings: Inside Moves show you how to survive from the Roman Empire to the Middle Ages for thousands of years. </ description> <image_filename> Boxshots / Press / 2388.gif </ image_filename> <image_height> 120 </ iMage_height> <image_width> 120 </ image_width> <ISBN DisplayName = "ISBN"> 0-7356-0513-0 </ ISBN> <name displayName = "Name"> Microsoft Age of Empires II: The Age of Kings: Inside Moves </ name> <PageCount DisplayName = "Page"> 280 </ pagecount> <ProductURL DisplayName = "Product Info. URL"> a href = http: //mspress.microsoft.com/produ/books/2388.htm target = _a http://mspress.microsoft.com/Prod/Books/2388. HTM / A </ productURL> <publication_year displayname = "Published Year"> 1999 </ publication_year> <Publisher DisplayName = "Publisher"> Microsoft Press </ PUBLISHER> <Reading_level DisplayName = "Read Level:"> All levels </ reading_level> <title displayName = "Title"> Microsoft Age of Empires II: The Age of Kings: Inside Moves </ Title> </ book> </ getProduct> Search directory In addition to providing users who are used to browse directory, a high-efficiency site should also provide search. In the consolidateDretail.com site, users can enter search criteria, search for specific products in the directory. Search features in Commerce Server 2000 can be searched in the current directory, or search in a directory based on the current user. Search feature is implemented in SearchResults.Pasp, searchResults.PASP contains code that performs the following tasks: Retrieve the search phrase, directory, the number of rows, directories to return from the query string, and give the default value as needed and the number of start position parameters to be given, and generate an exception in the case where the search phrase is not provided. If the directory is not specified, retrieve the directory set based on the current user profile. Search for specified search phrases in the specified directory or user directory set. Rendering the search results as XML. The actual code of the search directory uses the FretextSearch method for the application-level MSCSCatalogManager object to retrieve the search results in the record set. This method accepts the following parameters: Search for a list of directory lists to search (separated by comma) The attribute list (comma-separated) should be selected as a result of the result list indicates the number of record numbers to be returned by the Boolean value in ascending order. Output parameters, indicate the number of total rows that are actually returned If the user does not specify a directory, the current user's default directory set will be retrieved as the recordset, and each directory name is connected to a comma-separated string: Set objcatalogsets = server.createObject (MC_STRCATALOGSETS) Call ObjcatalogSets.initialize_ (Application ("mscsdictconfig"). S_catalogconnectionstring, _ Application ("mscsdictconfig"). S_transactionsconnectionstring) Set rscatalogs = ObjcatalogSets.getcatalogsforuser_ (Application ("MscsprofileService", GetUserid & "", _ GetDefaultCatalogSet) STRCATALOGSTOSEARCH = "" " IF not (RSCatalogs.eof and rscatalogs.bof) THEN Do While Not Rscatalogs.eof STRCATALOGSTOSEARCH = STRCATALOGSTOARCH & "," & _ Rscatalogs.fields ("CatalogName"). Value & "" Rscatalogs.Movenext Loop STRCATALOGSEARCH = TRIM (MID (Strcatalogstosearch, 2)) END IF Or, if you specify a directory, simply assign the directory name to the STRCATALOGSTOSEARCH variable: STRCATALOGSEARCH = STRCATALOGNAME Finally, call the freeEtextSearch method: SET RSPRODUCTS = _ Application ("MSCSCATALOGMANAGER"). FreetextSearch_ (strsearchphase, strcatalogstosearch,, _ "CatalogName, CategoryName, Definitionname, _ OriginalPrice, CY_LIST_PRICE, I_CLASSTYPE, ProductID, Description, Image_FileName, _ Image_width, image_height, name, _ "i_classtype, catalogname", _ True, _ LNGSEARCHSTARTPOS, _ LNGSEARCHROWTORTURN, _ LNGTOTALRECORDSINQUERY) The remaining code on this page is just converting the rows in the records returned by FreeEtextSearch to an XML format, so that the XSLisapi application can present search results for display. The XML generated for the search results has the following format: <SearchScope> Book </ SearchScope> <searchString> Age of Empires </ searchString> <Searchcount> 4 </ searchcount> <SearchrowStoreTurn> 15 </ searchrowstoreTurn> <searchstartpos> 1 </ searchstartpos> <searchResults> <book> <catalogname> Book </ CatalogName> <definitionname> SDKBook </ definitionname> <OriginalPrice DisplayName = "Buy Price"> 19.99 </ Original PricE> <cy_list_price displayName = "Price"> 19.99 </ cy_list_price> <i_classtype> 4 </ i_classtype> <ProductID> Microsoft Age of Empires II: The Age of Kings: Inside Moves </ ProductID> <Description> In an exciting new version of Microsoft Age of Empires, you will master all key strategic strategies, skills, and counseling that can help you capture victories! Microsoft Age of Empires II: Age of Kings: Inside Moves show you how to survive from the Roman Empire to the Middle Ages for thousands of years. </ description> <image_filename> Boxshots / Press / 2388.gif </ image_filename> <image_width> 120 </ image_width> <image_height> 120 </ iMage_height> <name displayName = "Name"> Microsoft Age of Empires II: The Age of Kings: Inside Moves </ name> </ book> <! - In order to express more clear, other results are omitted here -> <SelectionTitle> The product found in the search criteria 'Age of Empires'. </ selectionTitle> </ searchResults> "Shopping Basket" Like most B2C sites, consolidateDretail.com solution uses a shopping cart or a shopping basket concept to select the product to be purchased together. Whether it is logged in or anonymous user, consolidatedretail.com allows them to add products to the shopping basket; but anonymous users must log in before checkout. Add products to your shopping basket When the user clicks on the Product.PASP page, the product and quantity information will be sent to the _addItem.asp page. This page contains the code that performs the following tasks before the user is redirected to the Basket.PASP page that is displayed in the shopping basket: Retrieve the categories, products, variables, and directory values recorded in the query string. Check the number value passed in the query string (if the number is not passed, add 1 instance of the item). Carry the user's shopping basket into an OrderGroup object. If the product has been listed in the shopping basket, add the specified number to an existing entry; otherwise create a new entry for this product. Redirect the user to BASKET.PASP. _ADDITEM.ASP Page Use the loadbasket function in the Basket.asp header file to retrieve the OrderGroup object containing the current user shopping basket. The LoadBasket function is similar to the following code: Function Loadbasket (Struserid) DIM Objmscsordergroup Set objmscsordergroup = Server.createObject (_ MC_STRORDERGROUP) Call Objmscsordergroup.initialize (Application) "Mscsdictconfig"). S_TransactionsConnectionstring, _ struserid Call objmscsordergroup.loadbasket () Set loadingbasket = objmscsordergroup Set objmscsordergroup = Nothing END FUNCTION Note: The ORDERGROUP object is created and initialized by transmitting a transaction connection string defined in the MSCSDictConfig application variable and the user ID of the current user. (User ID is taken from the getGuaranteedUserid function in the profile.asp header. For the logged in user, the user ID will be returned to the authentication, and the configuration file user ID is returned for anonymous users.) Then, the LoadBasket method of the ORDERGROUP object is called to retrieve the shopping basket content associated with the current user. After loading the shopping basket, the code in _additem.asp searchs in the basket in the shopping basket, check whether the requested product is listed. If the product has been in the shopping basket, add the specified quantity on the order, as shown below: Blnskumatch = false 'If the detail project exists IF Objmscsordergroup.value ("Total_LineItems"> 0 THEN 'Cycle search for each detailed item, look up match For Each Colitem in ObjmscsOrdergroup.Value_ ("ORDERFORMS"). Value ("default"). Items If isnull (strvariantid) THEN IF (Trim (CSTR (Colitem.Product_ID) = _ Trim (CSTR (STRPRoductID))))) Isnull (Colitem.Product_variant_id) Thenblnskumatch = TRUE EXIT for END IF Else IF (Trim (CSTR (Colitem.Product_ID) = _ Trim (CSTR (STRPRoductID))))) TRIM (CSTR (Colitem. _ Product_variant_id)) = _ TRIM (CSTR (Strvariantid))) BLnskumatch = TRUE EXIT for END IF END IF NEXT IF blnskumatch 'If the project has been in the basket, add the number of new items to 'The number of existing projects Colitem.quantity = colitem.quantity intProductQty 'Save new shopping basket Call objmscsordergroup.saveasbasket () ... If the product is not listed in the shopping basket, the code calls the AddITEMTOBASKET partial function to add it to the shopping basket. The AddITEMTOBASKET function creates a dictionary object to represent the project and add the item to the shopping basket using the AddItem method of the ORDERGROUP object. Then, use the SaveAsBasket method to save the shopping basket. The code of the AddItemTobasket function is similar to the following code: Function additemtobasket (ObjmscsorderGroup, _ STRPRODUCTID, _ STRCATALOGNAME, INTPRODUCTQTY, _ Strvariantid, strcategoryName) DIM ObjmscsProductDictionary 'Creating a product dictionary Set objmscsproductDictionary = _ Server.createObject (MC_STRDictionary) ObjmscsproductDictionary.LineItem_UID = generateGUID () ObjmscsproductDictionary.product_id = strproductID ObjmscsproductDiction.Product_catalog = strcatalogname ObjmscsproductDiction.quantity = intProductQty IF not isnull (strvariantid) THEN ObjmscsproductDictionary.product_variant_id = _ StrvariantID END IF IF not isnull (strcategoryName) THEN ObjmscsproductDictionary.Product_category = _ StrcategoryName END IF Call objmscsordergroup.additem (objmscsproductDictionary) Call objmscsordergroup.saveasbasket () Set objmscsproductDictionary = Nothing END FUNCTION Note: Adding a project is achieved by creating a Dictionary object representing the item and then passes the item to the AddIst method method of OrderGroup (indicating the shopping basket). After updating the shopping basket, the code in _addItem.asp redirects the user to Basket.PASP. View shopping basket Users can use the Basket.PASP page to view and edit the content of the shopping basket. Basket.PASP contains code that performs the following tasks: Check the integrity of the shopping basket. Retrieve user ID (retrieved from the authentication order or anonymous configuration file). If the user's shopping basket is non-empty, use the Pagbasket pipe to retrieve the shopping basket information to display. Write the total count of detailed items into the <TotallineItems> XML tag. Use the Commerce Server DictionaryXmlTransForms object to convert the shopping basket content to XML and write its response. This page uses the following code to load the user's shopping basket and check if the shopping basket contains products: Set objmscsordergroup = loadingbasket (struserid) 'Check if the shopping basket contains projects IF not isbasketeempty (objmscsordergroup) THEN blnbasketisempty = false END IF ISBASKETEMPTY function in include / Basket.asp checks if the project is included in ORDERGROUP. If the shopping basket contains the product, transfer the shopping basket to the Pagbasket pipe to prepare for display: Set objmscspipelines = Application ("mscspipes") Interrorlevel = _ Runmtspipeline (Objmscspipelines.pagbasket, _ Objmscspipelines.logfolder & struserid & _ ".log", _ Objmscsordergroup) Pagbasket pipeline The pipe is used to configure a series of components that will operate a business object in a fixed order. The operation of the pipeline is divided into several "phases". In this example, the components contained in the Pagbasket pipe operate on the ORDERGROUP object, which represents the user's shopping basket. You can use the Commerce Server pipeline editor to view the configuration of the Pagbasket pipeline, just open the Pagbasket.pcf file in the "Pipe" folder on the site. Pagbasket pipes are shown in Figure 7-2. Figure 7-2: Pagbasket pipeline When a shopping basket is displayed each time, the Pagbasket pipe collects all the data required to display the shopping basket and makes the necessary calculations. In addition to running the pipe before displaying the shopping basket, it is also necessary to run it in the final stage of the checkout process to make the necessary calculations to create the final order totaled. Product information The pipe starts from the "product information" phase. This stage is used to manage product information, involving two components: QueryCatalogInfo: QueryCatalogInfo component retrieves product information from each item in the order. It will retrieve information to each project dictionary in the order form. RequiredProdInfo: RequiredProdInfo Components Check all items of the items collection in ORDERFORM, and delete all items set to 1. Order initialization stage Then enter the Order Initialization phase, initialize the corresponding value in the ORDERGROUP. This phase only involves a component: RequiredOrderinitcy. First, Requiredorderinitcy ensures that the ORDER_ID button is worthless. If there is no value, RequiredOrderinitCy will generate a unique order ID and assign it to this button. Then, in order to ensure the order integrity, the component will assign the null value to each Total key to initialize it. Finally, for each item in the items collection, RequiredOrderinitcy is copied to the value in the Quantity to the _n_unadjusted key, initialize the number of un discounted items, and initialize the _oadjust_adjustedprice (the total cost of the project) into zero. Order check phase The order checks for the "Order Check" phase check is valid and all entries needed for subsequent processing. This phase only involves a component: RequiredOrderCheck. The RequiredOrderCheck component ensures that the ORDERFORM project list is not empty. Project pricing phase The Project Pricing phase is set to each item in the order form _iadjust_regularprice. This phase involves the following two components: DefaultItempricecy: For each item in the order form (that is, each item in the items collection), DefaultItempricecy will assign the _iadjust_regularprice key to the value stored in the _cy_product_list_price. Some components included in each phase of the "Project Pricing" phase in the pipeline depend on the set _iadjust_regularprice key. If this button is not assigned, the components will fail. The RequiredItempricecy: RequiredItemPricecy component checks for each item in the project list_Cy_iadjust_regularprice. Before running the RequiredItemprice component, you should use the DEFAULTITEMPRICECY component to initialize the project list to include the latest pricing information for the project. If _cy_iadjust_regularprice does not contain a value, an error will occur. Project price adjustment stage The "Project Paraage" phase is set to each item in the order form _iadjust_currentprice. This phase only involves a component: RequiredItemadjustPricecy. The RequiredItemAdjustPriceCY Current price of each item (_CY_IADJUST_CURRENTPRICE) in the list of verified items exists. If this value does not exist, the component creates it and initializes it to a regular price (_CY_IADJUST_REGULARPRICE). In addition, the component checks the current price (cy_iadjust_currentprice) to check the price (cy_placed_price) to see if the current price has changed after the product is placed in the shopping basket. If the place is placed, the component creates it and set it to the current price (CY_IADJUST_CURRENTPRICE). If the price exists but does not mean the current price, RequiredItemAdjustPricecy retrieves the warning message text that invalid place the price from the MessageManager and writes the message to the _basket_errors collection in the order form. Order price adjustment phase The "Order Panel" phase is set to each item in the order form _oadjust_adjustedprice to take into account the factors of the price discount. This phase only involves the following components: RequiredRadjustPRicecy: For each project, RequiredRadjustPricecy first calculates the amount of discounts that do not discounted. The method is to multiply the current price of the project (_CY_IADJUST_CURRENTPRICE) with the number of items (N_UNADJUSTED), and then add the product to the total cost of the project (_Cy_oadjust_adjustedPrice). Then, calculate the item discount (cy_oadjust_discount). The method is to use the current price of the project (_CY_IADJUST_CURRENTPRICE) to multiply the total cost of the project with a total quantity, then subtract the previously calculated non-discount project fees, which calculates the item discount. Order small schedule The "Order Try" phase is set on the order form _oadjust_subtotal. This phase involves the following three components: DEFAULTORDERSUBTOURCY: Adds the total cost of each item in the SIMPLIST project in ORDERFORM, calculates the small count (_Cy_oadjust_subtotal). Persistility: Persistility is a custom component for copying the values in ORDERFORM. It is mainly used to persist value. Otherwise, the name of the name will not be held lastu. The source code of the PersistUtility component is provided with Visual C to provide with the business reference architecture. Requiredordersubtotalcy: Requiredordersubtotalcy Check the _oadjust_subtotal key in the order of ORDERFORM, make sure the value assigned to the key is not NULL. Convert shopping basket content to XML After running the pipeline, the code in Basket.Pasp checks the ORDERGROUP object again to ensure that the object is still included (because some items may have been removed in the pipe). If the shopping basket contains items, use the Commerce Server DictionaryXmlTransForms object to convert content to XML and write it to the response object. The XML generated by the DictionaryXmlTransForms object is similar to the following code: ORDERFORM_ID = "{0F111D4C-E79F-4615-B1AD-9193C811DE86}" Saved_cy_oadjust_subtotal = "24.99"> <Items quantity = "1" Product_ID = "Quick Course In Microsoft Office 2000" Product_catalog = "Book" Product_category = "" description = "QUICK COURSE IN MICROSOFT OFFICE 2000 provide some crash course to help you learn the basics quickly this office suite, familiar with Microsoft Excel, Microsoft Word, Microsoft PowerPoint, Microsoft Outlook, Microsoft Access, Microsoft Internet Explorer 5, Microsoft FrontPage and Microsoft Publisher. "D_Datecreated =" 16/02/2001 18:36:06 " CY_LINEITEM_TOTAL = "24.99" CY_Unit_price = "24.99" LineItem_UID = "{FC57A7EA-1420-40A8-8F55-569FE9B2BEDE}" _Product_name = "Quick Course In Microsoft Office 2000" _CY_OADJUST_ADJUSTEDPRICE = "24.99" /> </ orderform> Then, use the Basket-IE5.xsl style sheet to present the shopping basket as an HTML. Order processing When the user decides to check out, the following steps must be performed: Specify the consignee address for the order (or choose to send different items to different addresses). Select the delivery method. Provide payment information for orders. Confirm order details. Complete the ordering process. The consolidateDretail.com site uses the Commerce Server object and the pipeline component to process these processes. Specify the consignee address Users typically use shipping.pasp to specify the consignee address. This page contains a form that lists all consignee addresses in the user profile, along with options for creating new addresses or editing existing addresses. Users only need to specify the address to be sent to the project. Then, the page returns the table to itself, updates the OrderGroup object indicating the content of the shopping basket with the specified address. When the user specifies the consignee address, the code in Shipping.PASP uses the GetUserID function in the Common.asp header file to retrieve the ID of the current user. Then, Shipping.PASP calls the loadbasket routine in the Basket.asp header file to populate the ORDERGROUP object, as shown below: struserid = getUserid Set objmscsordergrp = loadingbasket (struserid) Next, the code is retrieved from the query string to update each item in the shopping basket with the specified address ID: <OrderForm For Each StrorderFormName In objmscsordergrp.value.orderForms Set objmscsorderform = objmscsordergrp.value.orderForms_ (StrORDERFORMNAME) For Each Colitem in ObjmscsorderDerform.Items Colitem.Value ("Shipping_Address_ID") = straddressID NEXT NEXT Finally, set the consignee address of the entire ORDERGROUP; for the previously set address, if it is not used, it is deleted; then save the shopping basket. Redirect the user to ShippingMethod.PASP to specify the delivery method for the order: Call objmscsordergrp.setshippingaddress (straddressid) call objmscsordergrp.saveasbasket () Set objmscsordergrp = Nothing Response.Redirect "ShippingMethod.PASP" However, if the user is first accessing the shipping.pasp page, you must retrieve the possible address list from the user profile to display the list in the form. The code in Shipping.PASP uses ADO queries to retrieve in the address table of the site database, as shown below: StrUserid = getUserid () SET CNBIZDESK = Server.createObject (mc_stradodb_connection) SET RSADDRESS = Server.createObject (MC_STRADODB_RECORDSET) CNBIZDESK.Open_ Application ("mscsdictconfig"). S_bizDataStoreConnectionstring rsAddress.Open "select g_address_id as' address_id ', i_address_type as' address_type', u_description as' description ', u_address_name as' address_name', u_address_line1 as' address_line1 ', u_address_line2 as' address_line2', u_city as' city ', u_region_name as' Region_code ', u_region_name as' region_name', u_postal_code as' postal_code 'from address, where g_id =' "& struserid &" 'Order by u_address_name ", CNBIZDESK If an address is not listed in the user's configuration file, use the MODE parameter to redirect the user to the EditadDressBook.PASP page. This parameter returns the user to this page after adding the address: If ifeaddress.eof the 'does not enter any address for the user ID Rsaddress.close Set rsaddress = Nothing CNBIZDESK.CLOSE SET CNBIZDESK = Nothing Response.Redirect "EditadDressbook.Pasp? Mode =" & MC_STRPAGENAME END IF If the user profile contains one or more addresses, add the address information to the shopping basket (the last address specified is the default consignee address) and rendered it as an XML: Call Xmlbegtag (MC_STRADDRESSES) Do While Not Rsaddress.eof straddressID = Rsaddress.fields ("Address_ID"). Value STRDESCRIPTION = RSADDRESS.FIELDS ("Description"). Value StraddressName = rsaddress.fields ("address_name"). ValueSSRADRESSLINE1 = RsAddress.fields ("address_line1"). Value StraddressLine2 = Rsaddress.fields ("Address_Line2"). Value Strcity = rsaddress.fields ("city"). Value Strregioncode = rsaddress.fields ("region_code"). Value StrregionName = rsaddress.fields ("region_name"). Value Strpostalcode = rsaddress.fields ("postal_code"). Value BLNSAVESUCCESSFUL = PutorderAddress (Objmscsordergrp, _ MC_LNGSHIPPINGADDRESS, STRADDRESSID, STRADDRESSNAME, _ StraddressLine1, StraddressLine2, StRCITY, STRREGONNAME, _ Strpostalcode, STRDESCRIPTION) IF BLNSAVESUCCESSFUL THEN Call Xmlbegtag (MC_STRADDRESS) Call XMLTAG (MC_STRADDRESS_ID, STRADDRESSID) Call XMLTAG (MC_STRDESBRIPTION, STRDESCRIPTION) Call XMLTAG (MC_STRADDRESS_NAME, STRADDRESSNAME) Call XMLTAG (MC_STRADDRESS_LINE1, STRADDRESSLINE1) Call XMLTAG (MC_STRADDRESS_LINE2, STRADDRESSLINE2) Call XMLTAG (MC_STRCITY, STRCITY) Call XMLTAG (MC_STRREGON_CODE, STRREGONNAME) Call XMLTAG (MC_STRRREGON_NAME, STRREGONNAME) Call XMLTAG (MC_STRPOSTAL_CODE, STRPOSTALCODE) Call XmlendTag (MC_STRADDRESS) 'Set payment address IF faddress.fields ("address_type"). Value = 2 THEN Objmscsordergrp.value ("ORDERFORMS"). Value_ ("default"). Value ("billing_address_id") = straddressID END IF END IF Rsaddress.movenext Loop Call XmlendTag (MC_STRADDRESSES) END IF The XML format generated by this code is shown in the following code: <addresses> <address> <address_id> {0243FFF8-E633-4DE4-AA2E-2083E9D5ABB4} </ address_id> <Description> Home Address </ Description> <address_name> Kim Abercrombie </ address_name> <address_line1> My residential number </ address_line1> <address_line2> My Street </ address_line2> <city> redmond </ city> <region_code> Washington </ region_code> <region_name> Washington </ region_name> <postal_code> 12345 </ postal_code> </ address> <address> <address_id> {b87edb27-8fbe-4bda-83be-ed037a0b7e4c} </ address_id> <Description> Work Address </ Description> <address_name> Kim Abercrombie </ address_name> <address_line1> Microsoft Corp. </ address_line1> <address_line2> 1 Microsoft Way </ address_line2> <city> redmond </ city> <region_code> Washington </ region_code> <region_name> Washington </ region_name> <postal_code> 54321 </ postal_code> </ address> </ addresses> Specify delivery method After the user specifies the consignee address for the order, the delivery method must be selected. Commerce Server 2000 supports a variety of delivery methods, each method has different price ranges, depending on the weight, number of projects or total order. (For more information on defining delivery methods, please refer to the Commerce Server 2000 documentation.) Use ShippingMethod.PASP pages, users can select one from the numerous shipments defined in the site database. This page contains a form that lists various shipments as an option. After the user selects an option, send the selected selection back to this page and processes. Retrieve the delivery method from the application level ShippingMethodsXML variable to display. The available shipping method list is retrieved from the application-level ShipPingMethodsXML variable, which initializes the variable using the getshippingMethodsXML function in Global.asa, as shown below: Function getshippingMethodsXML (ObjmscsdictConfig) DIM Objmscsshpmthmgr Dim RsshippingMethods DIM STRXMLSTREAM Strxmlstream = "" " Set objmscsshpmthmgr = _ Server.createObject ("Commerce.ShippingMethodManager) Objmscsshpmthmgr.initialize _ (ObjmscsDictconfig.s_TransactionsConnectionstring) SET RSSHIPPINGMETHODS = _ Objmscsshpmthmgr.getInstalledMethodList_ ("", "Shipping_Method_name", Array ("Shipping_Method_ID", _ "Shipping_Method_name"))))) If not (rsshippingmethods.eof and rsshippingmethods.bof) THEN Do While Not RsshippingMethods.eof Strxmlstream = strxmlstream & vbcrlf & "<shipping_method>" Strxmlstream = strxmlstream & vbcrlf & "<shipping_method_id>" & _ RSshippingMethods.fields ("Shipping_Method_ID"). Value &_ "</ shipping_method_id>" Strxmlstream = Strxmlstream & Vbcrlf &_ <shipping_method_name> "& _ RSshippingMethods.fields ("Shipping_Method_name"). Value &_ "</ shipping_method_name>" Strxmlstream = strxmlstream & vbcrlf & "</ shipping_method>" rsshippingmethods.movenext Loop END IF Set objmscsshpmthmgr = Nothing GetshippingMethodsXML = Strxmlstream END FUNCTION The ShippingMethod.PASP page contains a list of available shipments, as shown in the following XML format: <shipping_method> <shipping_method_id> {00000000-0000-0000-0000-003688009465} </ shipping_method_id> <shipping_method_name> Express </ shipping_method_name> </ shipping_method> <shipping_method> <shipping_method_id> {00000000-0000-0000-0000-001140002642} </ shipping_method_id> <shipping_method_name> Stand </ shipping_method_name> </ shipping_method> When the user selects the delivery method, the ID and name of the method must be stored in ORDERGROUP. Since only ID passed from the form, you must retrieve the name from the database using the Commerce Server ShipPingMethodManager object. This object provides a GetInStalledMethodList method, using this method to retrieve the method of matching specified criteria as a recordset. The code based on the supplied ID retrieval related method name is similar to the following: Set objmscsshpmthmgr = _ Server.createObject (MC_STRSHIPPINGMETHODMANAGER) Objmscsshpmthmgr.initialize (Application ("mscsdictconfig"). _s_bizdatastoreConnectionstring) SET RSSHPMTHNAME = Objmscsshpmthmgr.getInstalledMethodList_ ("Shipping_Method_ID = '" & STRSHIPPINGMETHODID & "'" "," ", _ Array (MC_STRSHIPPING_METHOD_NAME)) Set objmscsshpmthmgr = Nothing IF not (rsShpmthname.eof and ly) THEN STRSHIPPINGMETHODNAME = rsShpmthname.fields (0) .Value END IF rsshpmthname.close SET RSSHPMTHNAME = Nothing After searching for the delivery method name, you will use the delivery method data to update the items in the shopping cart and redirect the user to payment.pasp to specify payment information: For Each StrorderFormName In objmscsordergrp.value.orderForms Set objmscsorderform = objmscsordergrp.value. _ OrderForms (StrORDERFORMNAME) For Each Colitem in ObjmscsorderDerform.Items Colitem.Value (mc_strshipping_method_id) = strshippingmethodidId Colitem.Value (mc_strshipping_method_name) = strshippingmethodname NEXT NEXT Call objmscsordergrp.saveasbasket () Set objmscsordergrp = Nothing Response.Redirect "payment.pasp" Specify multiple consignee addresses and delivery methods Users can specify different consignee addresters and shipments for each project in the shopping cart. The code that supports this feature is located in the multishipping.pasp page. This page contains a set of TxtShippingMethodID and TXTADDRESSID input fields (each project in the shopping basket has an input field). When the user requests the delivery method and address of each project, send the form back to multishipping.pasp while updating the OrderGroup representing the shopping basket. The following code is used to update the shipping method and address data of each item: 'Fill each item with shipping method ID For Each StrorderFormName In objmscsordergrp.value.orderForms Set objmscsorderform = _ Objmscsordergrp.value.orderForms (StrORDERFORMNAME) For Each Colitem in ObjmscsorderDerform.Items INTINDEX = INTINDEX 1 strshippingmethodid = _ Request.form ("txtshippingmethodid). Item (intIndex) STRSHIPPINGMETHODNAME = NULL IF not isnull (strshippingmethodid) THEN 'Shipping method name Set objmscsshpmthmgr = server.createObject _ (MC_STRSHIPINGMETHODMANAGER) Objmscsshpmthmgr.initialize (Application ("mscsdictconfig"). S_bizdatastoreConnectionstring) SET RSSHPMTHNAME = Objmscsshpmthmgr.getInstalledMethodList_ ("Shipping_Method_ID = '" & strshippingMethodID & _ "'", ", Array (mc_strshipping_method_name)) Set objmscsshpmthmgr = Nothing IF not (rsShpmthname.eof and ly) THEN STRSHIPPINGMETHODNAME = rsShpmthname.fields (0) .Value Else STRSHIPPINGMETHODID = NULL END IF rsshpmthname.close SET RSSHPMTHNAME = Nothing END IF Straddressid = Request.form ("TXTADDRESSID"). Item (intIndex) Colitem.Value (mc_strshipping_method_id) = strshippingmethodidId Colitem.Value (mc_strshipping_method_name) = strshippingmethodname Colitem.Value ("Shipping_Address_ID") = straddressID NEXT Specify payment information As part of the checkout process, the user must specify payment details for the order. Payment.PASP Pages handle this in order processing order. Note: In this application example, the payment details are transmitted in the form of plain text using HTTP. In the actual site, HTTPS should be used to encrypt payment data. The Payment.PASP page contains a form that allows users to specify credit cards and payment address details from the configuration file. If the payment address is not defined in the configuration file, redirect the user to the EditadDressBook.PASP page that can add this address. Payment.PASP page reads the payment details in this form and then writes the information to the OrderGroup object representing the user's shopping basket. struserid = getUserid Set objmscsordergrp = loadingbasket (struserid) For Each StrorderFormName In objmscsordergrp.value.orderForms Set objmscsorderform = objmscsordergrp.value. _ OrderForms (StrORDERFORMNAME) 'Payment Method - Site only supports credit card ObjmscsOrderform.Value ("payment_method") = "credit_card" 'Credit card full name Objmscsorderform.Value ("cc_name") = strpaymentMethod 'Credit card internal code Objmscsorderform.value ("cc_code") = strpaymentMethod 'credit card holder name Objmscsorderform.value ("cc_account_holder") = STRNAMEONACCT ' credit card number Objmscsorderform.Value ("cc_number") = strcardno 'Credit card expiration month Objmscsorderform.value ("cc_expmonth") = strcardexpmth 'Credit card expired year Objmscsorderform.Value ("cc_expyear") = strcardexpyr NEXT Call objmscsordergrp.saveasbasket () Response.Redirect "ORDERSUMMARY.PASP" After filling out the payment information, the user will be redirected to the OrdersumMary.PASP page. Confirm order details Before entering the last step of the order processing, the user also has the opportunity to confirm or change order details. Order details are displayed on the ordersummary.pasp page. The code uses two pipes to retrieve order details in order to display this information. First, the Pagbasket pipe has retrieves the content of the shopping basket. The PAGTOTAL pipelines then calculates shipping costs and small centers. For instructions on Pagbasket pipeline, refer to the "View Shopping Basket" section in this chapter. Pagtotal Pipeline will be introduced in the next section. Pagtotal pipeline Pagtotal pipes are shown in Figure 7-3. Open TOTAL.PCF using the Commerce Server pipeline editor. Figure 7-3: Pagtotal pipeline Demolition stage of goods The "goods split" stage is ready for the delivery dictionary. This phase involves two components: Commerce.Splitter: Detachment Assembly Generates Shipment (Shipments), this dictionary is in ORDERFORM. This dictionary contains the goods to be sent separately, which are created according to the shipping_address_id and shipping_method_id values in the order. Commerce.shippingMethodrouter: ShippingMethodRouter Components Read ShipPingManagerCache using the CacheManager object to map the shipping method to a specific delivery component. This component browsses the list of shipping methods, if there is a cargo sent by the specified method, which will collect the dictionary of these goods, pass the goods to the shipping component, and then run the relevant shipping component. The total shipping costs of each delivery component are calculated. After processing all the goods sent, the total shipping cost will be calculated. Shipping phase The shipping discount is applied to orders during the "shipping" phase. This phase only involves a component: ShippingDiscountadjust. This component checks _shipping_discount_type and adjusts the total assembly fee for the order. If the discount is blank, the component does not perform any operation. If the discount type is 1 or 2, the component is applied to the assembly. If the discount is neither a blank is not a discount type 1 or 2, the component returns an error. Use the ORDERDISCOUNT object to determine the _shipping_discount_type value. Conductor stage The "Office" phase sets in the order form _handling_total. This phase involves the following two components: DEFAULTHANDLINGCY: This component assigns zero to the General Office of the Order Dictionary. It is a placeholder component, which will be replaced by another office component when used. RequiredHandlingcy: RequiredHandlingcy Component Check ORDER._HANDLING_TOTAL button exists. Tax stage The "tax" phase sets the _tax_total and _tax_included value on the order form. This phase involves the following two components: SampleRegionalTax: This component sets the tax field (_CY_TAX_TAX_TAX_INCLUDED) based on tax information in RegionalTaxCache to a suitable tax value. RequiredTaxcy: RequiredTaxcy Component Check the order form exists _cy_tax_total and _cy_tax_included keys. If a key does not exist, RequiredTaxcy retrieves the error message text from the MessageManager using the PUR_BADTAX constant and stores the message in the order of the orderform _purchase_errors. Order total The "Order Total" phase sets the _total_total value on the order form. This phase involves the following three components: DEFAULTTOALCY: Whether all four totals are set on this component check order. If these four values exist, add them and assign the summary to the final total of the order dictionary. If some values are missing, the component will stop running and return an error. Persistility: Persistility is a custom component for copying the values in ORDERFORM. It is mainly used to persist value. Otherwise, the ORDERFORM value at the beginning of the following line (_) is not persisted. The source code of the PersistUtility component is provided with Visual C to provide with the business reference architecture. RequiredTotalcy: RequiredTotalcy Components Browse the _verify_with dictionary, make sure each key exists in the order form and has the same value. Correction phase The last stage is a "correction" phase, which only involves a component: Truncate Description. In Commerce Server 2000, the fields that have more than 255 characters in length will be attributed to the text type; and this component is written in VBScript, providing a method of solving this problem. Get the user's email address After running the pipeline, the code in OrdersumMary.Pasp retrieves ProfileObject for the current user, and extracts the email address to the order confirmation message. Then add the address to the default ORDERFORM of OrderGroup, save the OrderGroup: 'Get the default Orderform Set objmscsorderform = objmscsordergroup.value ("ORDERFORMS"). _ Value ("Default") 'Setup email addresses for order confirmation messages. Set objmscsprofileObject = getUserObject () Objmscsorderform.user_email_address = objmscsprofileObject_ (MC_STRGENERALINFO) .VALUE (MC_STREMAIL_ADDRESS) Set objmscsprofileObject = Nothing Call objmscsordergroup.saveasbasket () Finally, use the Commerce Server DictionaryXmlTransForms object to convert the contents of the ORDERGROUP to XML and write it to the Response object, as shown in the following code: Set objxmltransforms = _ Server.createObject (mc_strxmltransforms) Set objxmlorderform = _ Objxmltransforms.generatexmlfordictionaryusingschema _ (ObjmscsORDERFORM, Application ("Transformschema")) Set objmscsorderform = Nothing Set objxmltransforms = Nothing IF not isempty (objxmlorderform) THEN Response.write ObjxmlORDERFORM.XML Else Call AddException (M_Varrexceptions, "1222", _ "Error when converting OrderForm into XML.", _ "Basket.asp") END IF This will generate OrderGroup represented by the following XML format: <ORDERFORM ORDERFORM_ID = "{CD9EABBE-B0BF-48FE-9DB9-58A35A8FEE9F}" Payment_method = "CREDIT_CARD" BILLING_ADDRESS_ID = "{0243FFF8-E633-4DE4-AA2E-2083E9D5ABB4}" Saved_cy_oadjust_subtotal = "44.98" Saved_cy_total_total = "49.98" Cc_name = "American express" cc_expyear = "2001" cc_expmonth = "08" CC_Number = "1234" _cy_shipping_total = "5" _cy_tax_total = "0" User_email_address = "kim@somecompany.com" CC_account_holder = "kim" cy_tax_total = "0" CY_SHIPPING_TOTAL = "5"> <Addresses address_name = "kim abercrombie" address_line1 = "My residential" Address_Line2 = "My Street" City = "My City" region_code = "wa" Postal_code = "12345" country_code = "US" Description = "Home Address" AddresSdictKey = "{0243FFF8-E633-4DE4-AA2E-2083E9D5ABB4}" /> <Items quantity = "1" Product_ID = "Quick Course In Microsoft Office 2000" Product_name = "Quick Course In Microsoft Office 2000" Product_catalog = "book" product_category = "" description = "QUICK COURSE IN MICROSOFT OFFICE 2000 provide some crash course to help you learn the basics quickly this office suite, familiar with Microsoft Excel, Microsoft Word, Microsoft PowerPoint, Microsoft Outlook, Microsoft Access, Microsoft Internet Exp" Shipping_address_id = "{0243FFF8-E633-4DE4-AA2E-2083E9D5ABB4}" Shipping_method_id = "{00000000-0000-0000-0000-003688009465}" SHIPPING_METHOD_NAME = "Express" D_datecreated = "16/02/2001 18:36:06" CY_LINEITEM_TOTAL = "24.99" CY_Unit_price = "24.99" LineItem_UID = "{FC57A7EA-1420-40A8-8F55-569FE9B2BEDE}" _Product_name = "Quick Course In Microsoft Office 2000" _CY_OADJUST_ADJUSTEDPRICE = "24.99" /> <shipments Shipping_address_id = "{0243FFF8-E633-4DE4-AA2E-2083E9D5ABB4}" Shipping_method_id = "{00000000-0000-0000-0000-003688009465}" _CY_SHIPPING_TOTAL = "5" /> </ orderform> Complete order processing After the user confirms the order details, the order processing is complete. The code for the last step of order processing is implemented in the touryou.pasp page. Run the previously described Pagbasket and Pagtotal pipes, start running Thankyou.Pasp. Then, run the PAGFinal pipe to complete the order processing. PAGFinal pipeline Use the Commerce Server pipeline editor to open Final.PCF, you can view the PAGFinal pipe. The PAGFinal pipe is shown in Figure 7-4. Figure 7-4: PAGFinal pipeline The only stage in the ordering process is named Ordertransfer. This phase only involves a component: Queueemail Class. This is a custom pipeline assembly for sending an order confirmation message in the form of an email to the user_e-mail_address field in the default ORDERFORM. Send an order to confirm email QueueEmail Class is a pipe component (COM object) for implementing the iPipeLineComponent interface. Queueemail Class Components Get information from ORDERFORM, convert the information to XML, and then use custom Queuedemailer.cmailer queuing components to send information as email messages. Since the queuing component is called to send an email message, this process is performed asynchronous, which prevents the delay in the email process to adversely affect the response time of the user checkout. The custom property page for the Queueemail Class component is used to configure the component in the pipe editor. This will allow you to set the corresponding message queue, tag, and proGID to instantiate the queuing component, which will actually be used to send emails, as shown in Figure 7-5. Figure 7-5: QueueEmail Class Custom Properties Page QueueDemailer.cmailer The process of actually sends an email is processed by the Queuedemailer.cmailer queuing component. This component is mounted in a COM application labeled queued. In addition, since the _cmailer interface is also marked as queuing, the method of this interface is allowed to call through the message queue. The _cmailer interface only contains a method (Sendmail), which is defined using the following method signs: HRESULT Sendmail [in] BSTR STRXMLORDERFORM, [in] Variant_Bool BLNUSEHTMLMAIL); Note that both parameters in the above code are marked as [IN], because the queuing component does not support the [OUT] or [RETVAL] parameter. The STRXMLORDERFORM parameter is used to pass the XML representation of the order form to the component. The BLNUSEHTMLMAIL parameter value is a Boolean value to determine whether to send an email message in an HTML format or in a pure text format. You can also configure the QueueDemailer.cmailer component to support object build. This means that the component can implement the IObjectConstruct interface, which contains a method called construct. When the object is instantiated, COM will call this method. The constructor string is passed to the construct method, which contains configuration information that the object can use. The constructor string transmitted to Queuedemailer.cmailer uses the following XML format: <config> <from> support@consolidatedretail.com </ from> <Subject> Order Confirm </ SUBJECT> <TextXSL> C: /inetpub/b2cref/xml/emailtext.xsl </ textxsl> <Htmlxsl> c: /inetpub/b2cref/xml/emailhtml.xsl </ htmlxsl> <SMTPSERVER> </ smtpserver> <SMTPPORT> </ SMTPPORT> <SMTPTIMEOUT> </ smtptimeout> <Usesl> false </ usssl> <SMTPUSERNAME> </ smtpusername> <SMTPASSWORD> </ smtppassword> <SMTPAUTHMETHOD> </ smtpauthmethod> </ config> Use the Component Services Microsoft Management Console (MMC) snap-in (as shown in Figure 7-6) to configure this constructor. Figure 7-6: Component Services MMC Management Unit Queuedemailer.cmAiler object uses MSXML3 and CDOSYS objects. The loading of XML and XSL is done with XMLDOMDocument using the MSXML3 object. The actual transmission of the email message is done by the iMessage object (CDO collaboration data object), which is used to use the CDOSYS object. Collaboration Data Objects (CDO) CDOSYS.DLL for Windows 2000 implements version 2.0 version of the CDO API specification, which is a COM component, which is dedicated to simplifying the programming of the creation or manipulating Internet messages. to sum up Now you should have learned the basic features and development strategies behind the consolidatedretail.com application. The code annotation in the article provides more detailed information.</div><div class="text-center mt-3 text-grey"> 转载请注明原文地址:https://www.9cbs.com/read-3354.html</div><div class="plugin d-flex justify-content-center mt-3"></div><hr><div class="row"><div class="col-lg-12 text-muted mt-2"><h2 class="h6 mb-0 small"><a class="text-secondary" href="tag-2.html">9cbs</a></h2></div></div></div></div><div class="card card-postlist border-white shadow"><div class="card-body"><div class="card-title"><div class="d-flex justify-content-between"><div>New Post(0) </div><div></div></div></div><ul class="postlist list-unstyled"> </ul></div></div><div class="d-none threadlist"><input type="checkbox" name="modtid" value="3354" checked /></div></div></div></div></div><footer class="text-muted small bg-dark py-4 mt-3" id="footer"><div class="container"><div class="row"><div class="col">CopyRight © 2020 All Rights Reserved </div><div class="col text-right">Processed: 0.039, SQL: 9</div></div></div></footer><script src="./lang/en-us/lang.js?2.2.0"></script><script src="view/js/jquery.min.js?2.2.0"></script><script src="view/js/popper.min.js?2.2.0"></script><script src="view/js/bootstrap.min.js?2.2.0"></script><script src="view/js/xiuno.js?2.2.0"></script><script src="view/js/bootstrap-plugin.js?2.2.0"></script><script src="view/js/async.min.js?2.2.0"></script><script src="view/js/form.js?2.2.0"></script><script> var debug = DEBUG = 0; var url_rewrite_on = 1; var url_path = './'; var forumarr = {"1":"Tech"}; var fid = 1; var uid = 0; var gid = 0; xn.options.water_image_url = 'view/img/water-small.png'; </script><script src="view/js/wellcms.js?2.2.0"></script><a class="scroll-to-top rounded" href="javascript:void(0);"></a><a class="scroll-to-bottom rounded" href="javascript:void(0);" style="display: inline;"></a></body></html><script> var forum_url = 'list-1.html'; var safe_token = 'Aweb6_2FsA9FQygJOudYPFoYh5wsySa0Y3EBX208O0zef_2BwNxahUaQEBLhWAMjiMl6Ko2Gu_2FuGbIetoW9GMsINyQ_3D_3D'; var body = $('body'); body.on('submit', '#form', function() { var jthis = $(this); var jsubmit = jthis.find('#submit'); jthis.reset(); jsubmit.button('loading'); var postdata = jthis.serializeObject(); $.xpost(jthis.attr('action'), postdata, function(code, message) { if(code == 0) { location.reload(); } else { $.alert(message); jsubmit.button('reset'); } }); return false; }); function resize_image() { var jmessagelist = $('div.message'); var first_width = jmessagelist.width(); jmessagelist.each(function() { var jdiv = $(this); var maxwidth = jdiv.attr('isfirst') ? first_width : jdiv.width(); var jmessage_width = Math.min(jdiv.width(), maxwidth); jdiv.find('img, embed, iframe, video').each(function() { var jimg = $(this); var img_width = this.org_width; var img_height = this.org_height; if(!img_width) { var img_width = jimg.attr('width'); var img_height = jimg.attr('height'); this.org_width = img_width; this.org_height = img_height; } if(img_width > jmessage_width) { if(this.tagName == 'IMG') { jimg.width(jmessage_width); jimg.css('height', 'auto'); jimg.css('cursor', 'pointer'); jimg.on('click', function() { }); } else { jimg.width(jmessage_width); var height = (img_height / img_width) * jimg.width(); jimg.height(height); } } }); }); } function resize_table() { $('div.message').each(function() { var jdiv = $(this); jdiv.find('table').addClass('table').wrap('<div class="table-responsive"></div>'); }); } $(function() { resize_image(); resize_table(); $(window).on('resize', resize_image); }); var jmessage = $('#message'); jmessage.on('focus', function() {if(jmessage.t) { clearTimeout(jmessage.t); jmessage.t = null; } jmessage.css('height', '6rem'); }); jmessage.on('blur', function() {jmessage.t = setTimeout(function() { jmessage.css('height', '2.5rem');}, 1000); }); $('#nav li[data-active="fid-1"]').addClass('active'); </script>