商务参考体系结构：企业对消费者 (B2C电子商务实践) 第 7 章：ConsolidatedRetail.Com 的功能 (全文结束)

商务参考体系结构：企业对消费者第 7 章：ConsolidatedRetail.Com 的功能

Microsoft Corporation

2001年5月

摘要：本章介绍了 ConsolidatedRetail.com 应用程序的功能，同时提供了伪代码和实际代码示例来详细说明处理流程。

简介

现在，您对解决方案的各个组成部分已经有了总体了解，可以开始检查站点提供的具体功能了。本章探讨了解决方案的以下几个方面，并着重讨论了为每个功能区编写代码时所面临的内在问题：

表示服务

用户身份验证和用户配置文件的维护

产品目录

“购物篮”管理

订单处理

阅读本章的各个小节时，您将了解具体功能的实现方法，以及如何在您自己的企业对消费者 (B2C) 解决方案中重新利用 ConsolidatedRetail.com 应用程序的部分或全部内容。

表示服务

ConsolidatedRetail.com 站点中的表示服务由 XSLISAPI 过滤器提供。面临的主要开发问题在于：如何在每个 PASP 脚本中生成合适的 XML，以及如何创建合适的 XSL 样式表将 XML 表示为 HTML（或其它表示格式）。

ConsolidatedRetail.com 中来自 PASP 文件的 XML 输出

在 ConsolidatedRetail.com 站点中，每个 PASP 文件都生成格式相同的 XML 文档。这是通过在站点的每一页中加入对 Common.asp 文件的 Include 引用，并调用其 PageStart 过程实现的。

Common.asp 文件中的 PageStart 过程包含以下代码：

Sub PageStart(strPageNameWithExtension)

' 除去 pasp 文件扩展名

Dim strPageName

strPageName = Trim(Left(strPageNameWithExtension, _

InstrRev(strPageNameWithExtension, _

".") - 1))

'XML 标头

Response.Write _

"<?xml-stylesheet type=""text/xsl" _

" server-config=""" & _

strPageName & "-Config.xml"" href=""" & _

strPageName & "-IE5.xsl""?>"

'页元素的根。

'结束标记在“PageEnd”子例程中生成。

Response.Write "<page pagename="" _

" & strPageNameWithExtension & """>" & vbcrlf

End Sub

此过程为 PASP 文件将要生成的文档创建 XML 标头。在每个 PASP 脚本的末尾，将调用 PageEnd 过程来生成 <page> 的结束标记并完成 XML 文档。下面列出了 PageEnd 过程中的相关代码：

Sub PageEnd()

'为了表达得更为清楚，这里省略了有关目录、注销和错误消息的代码

Call XMLEndTag("page")

End Sub

XMLEndTag 过程是 Common.asp 中的众多 XML Helper 过程之一。（有关详细信息，请参考本章中的“XML Helper 过程”一节。）它使用以下代码生成 XML 结束标记：

Sub XMLEndTag(strTagName)

Response.Write mc_strStartTag & mc_strForwardSlashTag & _

Lcase (Replace(strTagName, mc_strBlank,_

mc_strUnderScore)) & _

mc_strEndTag & vbCrLf

End Sub

使用 PageStart 和 PageEnd 过程生成的 XML 文档类似于以下代码示例：

<?xml-stylesheet type="text/xsl"

server-config="filename-Config.xml"

href="filename-IE5.xsl"?>

</page>

XML Helper 过程

除了上面提到的 XMLEndTag 过程之外，Common.asp 还包含多个与 XML 有关的实用程序例程。使用这些过程可以生成一些标记，这些标记将用于 ConsolidatedRetail.com 站点中的 PASP 页所生成的 XML 文档。

虽然在许多情况下，对所需的 XML 字符（例如 "<" 和 ">"，请注意不包括引号）进行硬编码更为有效，但是，在各种 XML 生成过程中，大量 XML 字符常量均在 Common.asp 中进行声明。这样可增加代码的可读性，同时有助于调试。这些常量是：

Const mc_strStartTag = "<"

Const mc_strEndTag = ">"

Const mc_strForwardSlashTag = "/"

Const mc_strUnderScore = "_"

Const mc_strBlank = " "

以下 XML 生成过程使用了这些常量：

XMLBegTag：此实用程序根据 strTagName 参数编写一个 XML 开始标记（例如 <page>）。

XMLEndTag：此实用程序（在上文中已经做过介绍）根据 strTagName 参数编写一个结束标记（例如 </page>）。

XMLEmptyTag：此实用程序根据 strTagName 参数编写一个空 XML 标记（例如 <page/>）。

XMLTag：此实用程序根据 strTagName 和 strTagValue 参数编写一个包含值的 XML 标记（例如 <page>myvalue</page>）。

GetXMLFromRS：此实用程序创建记录集的 XML 表示。

GetXMLFromRSRow：此实用程序创建记录集中当前行的 XML 表示。

此外，还有许多其它过程（统称为 xxxWithDsplyNm）用于生成包含 displayname 属性的 XML 标记，例如：

<f_name displayname="First Name">Joe</f_name>

标记的显示名称基于标记名，从 CatalogDefinitionProperties 应用程序级字典对象变量中检索。

要全面了解 XML Helper 过程提供的功能，请查看 Common.asp 中的源代码。

ConsolidatedRetail.com 站点中的 XSL 样式表

如前所述，每页都有一个相关联的“文件名”-Config.xml 文件，该文件列出了要应用于每种客户端浏览器或设备类型的 XSL 样式表。在本实现方案中，只支持 Microsoft® Internet Explorer 5.5，尽管可以创建替代样式表并将添加到站点来解决这一问题。

每个 PASP 页的 XSL 文件被命名为“页名”-IE5.xsl（其中“页名”是 PASP 页的非版本特定名称），该文件包含该页数据专用的 XSL 代码。但是，为了使站点保持统一的外观，需要在一个单独的 XSL 文件（名为 UI_layout-IE5.xsl）中定义所有页的公共用户界面 (UI) 元素。该文件存储在 Include 目录下。每一页专用的 XSL 文件使用 XSL Include 指令将 UI_layout-IE5.xsl 中的表示逻辑合并到当前页的呈现形式中，如以下代码段所示：

<xsl:include href="include\UI_layout-IE5.xsl"/>

使用 UI_layout-IE5.xsl 中的模板

UI_layout-IE5.xsl 文件包含几个模板。page 模板将应用于每个 PASP 页所生成的 XML 文档中的 <page> 元素。该模板引用 Stylesheet.css 级联样式表，并创建一个包含五行的 HTML 表，总体页将基于该 HTML 表。系统调用 UI_layout-IE5.xsl 文件中的其它模板来填充这些行。

表的第一行包含对 pageheader 模板的调用（该模板在后面的脚本中定义）。该模板呈现页首标题，包括链接到“购物篮”、“配置文件”和“主页”的图象。

第二行用于创建距第三行的间距，而第三行包含对 main 模板的调用。该模板包含呈现页左侧菜单面板（包括搜索表单）所需的逻辑。main 模板依次调用 getCatalogsForUser 模板、Exceptions 模板以及 advertising 或 profilemenu 模板（这取决于是否存在 advertising 或 profilemenu XML 元素）。

UI_layout-IE5.xsl 中的 page 模板如以下代码所示。可在 UI_layout-IE5.xsl 中查看 pageheader、main、pagefooter 和其它用于呈现站点中的页的模板。

<?xml version="1.0" ?>

<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="2.0">

<xsl:template match="*|/">

<xsl:apply-templates/></xsl:template>

<xsl:template match="text()|@*"><xsl:value-of select="."/></xsl:template>

<xsl:template match="page">

<html>

<head>

<title>ConsolidatedRetail.com</title>

</head>

<tr>

<td>

<xsl:call-template name="pageheader"/>

</td>

</tr>

<tr>

</tr>

<tr>

<td>

<xsl:call-template name="main"/>

</td>

</tr>

<tr>

</tr>

<tr>

<td>

<xsl:call-template name="pagefooter"/>

</td>

</tr>

</table>

</body>

</html>

</xsl:template>

</xsl:stylesheet>

呈现 Index.pasp

您可以检查 Index.pasp 页，以查看站点中各个页之间的组合关系。Index.pasp 页是站点的默认页（即主页）。Index.pasp 包含执行以下任务的代码：

用值 Index.pasp 定义一个名为 mc_strPageName 常量。

调用 Common.asp 中的 PageStart 过程，以创建相应的 <page> 开始标记。

使用 XMLEmptyTag 过程创建空的 <advertising/> 标记。

调用 PageEnd 过程创建 </page> 结束标记。

以下代码执行上述任务：

Const mc_strPageName = "Index.pasp"

Sub Main()

Call PageStart(mc_strPageName)

XMLEmptyTag(mc_strAdvertisingMenu)

Call PageEnd()

End Sub

Call Main()

此代码生成以下 XML 文档：

<?xml-stylesheet type="text/xsl"

server-config="Index-Config.xml"

href="Index-IE5.xsl"?>

</catalog>

</catalog>

</getcatalogsforuser>

</page>

这些 XML 代码将被传递到 XSLISAPI 过滤器，该过滤器确定在 Index-Config.xml 中指定相应的样式表。XSLISAPI 过滤器检查 HTTP 请求标头信息以确定浏览器的类型和版本。然后，对浏览器信息与 Index-Config.xml 中的相应样式表进行比较。如果未找到匹配条目，则应用默认样式表 (Index-IE5.xsl)。

Index-Config.xml 类似于以下代码：

<?xml version="1.0" ?>

<server-styles-config>

</device>

</device>

</device>

</device>

</device>

</server-styles-config>

从 Internet Explorer 5.0 浏览器收到请求时，使用 Index-IE5.xsl 样式表将页作为 HTML 呈现。（Index-Config.xml 文件中的其它条目只是作为例证；ConsolidatedRetail.com 站点中并不提供相应的样式表。）

Index-IE5.xsl 类似于以下代码：

<?xml version="1.0" ?>

<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="2.0">

<xsl:include href="include\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">

<![CDATA[

function Focus(){

document.formSearch.txtSearchPhrase.focus()

}

]]>

</script>

<tr>

</td>

<tr>

<p class="headline-text-purple">欢迎来到 ConsolidatedRetail.com</p>

<p>欢迎来到本站点，您在这里可以方便地购买到所需的任何商品。</p>

</td>

</tr>

<tr>

</td>

</td>

<p>在不久的将来就可实现此功能。</p>

</td>

</tr>

</table>

</td>

</td>

</tr>

</table>

</xsl:template>

<xsl:template name="pageright"/>

</xsl:stylesheet>

此样式表包含上文介绍的 UI_layout-IE5.xsl 样式表。UI_layout-IE5.xsl 样式表用于呈现页的公共 UI 元素。在此示例中，XML 文档包含 <advertising/> 标记。因此，UI_layout-IE5.xsl 也使用 advertising 模板来呈现页的右侧面板。所得到的索引页类似于图 7-1。

图 7-1：索引页

ConsolidatedRetail.com 站点按照上文所述的方法呈现 PASP 页。使用这种方法（在 PASP 文件中生成 XML 内容，在 XSL 样式表中定义表示形式），您可以轻松更改用于显示页面的样式表，而不会影响 PASP 文件中的业务逻辑。因此，这个解决方案十分灵活，便于重用。

用户身份验证和用户配置文件的维护

Microsoft® Commerce Server 2000 支持可扩展的配置文件系统，可以存储大量用户数据。该用户数据（或用户配置文件）可以包含收货人地址和联系人信息。客户可以使用这些配置文件来存储个人数据，其中包括收货人地址和联系人信息，这样他们就不必在每次访问站点时都要重新输入此类信息。公司则可以将配置文件信息用于商业分析和开展有针对性的广告宣传活动。

要创建和维护配置文件，用户必须登录到站点并在站点上注册。这将创建一个唯一用户 ID，用于标识用户以及从数据库中检索相应的配置文件信息。用户的 ID 存储在客户端浏览器上的 cookie 中。如果用户未登录，cookie 将包含与匿名用户相关的用户 ID，此时配置文件信息不可用。当用户登录时，将检索相应的用户 ID 并将其写入 cookie，这样，在后面的会话过程中就能够使用配置文件信息。

请注意，此站点要求将浏览器配置为允许 cookie。如果用户使用配置为允许每会话 cookie（即不存储到用户硬盘上的 cookie）的浏览器来访问此站点，而不存储 cookie，则用户将能够登录到站点，也能使用站点，但是不能将产品放到购物篮中。如果根本不允许 cookie，则用户将不能访问此站点。

用户注册

用户可以使用 Registration.pasp 页注册到此站点。使用 Registration-IE5.xsl 样式表呈现该页时，该页包含一个向自身发回数据的表单。Registration.pasp 页包含执行以下任务的代码：

检查表单中的数据以确定 Mode 和 ProcessAction 参数。Mode 参数用于指定注册完成后应将用户重定向到的页（默认值是 Acct.pasp）。ProcessAction 参数用于确定是显示注册表单以便允许用户注册，还是将表单发回以进行处理。

将注册数据传送到 PutUserObject，以便创建新的配置文件。PutUserObject 在 Profile.asp 头文件中定义。

将用户重定向到 Acct.pasp 页（或 Mode 参数所指定的其它页）。

Registration.pasp 页使用 MSCSAppFrameWork 应用程序级变量从查询字符串中检索 Mode 和 ProcessAction 值，如以下代码段所示：strPageMode = _

Application("MSCSAppFrameWork").RequestString( _

"Mode", Null, , , True, True, 0, Null)

strProcessingAction = _

Application("MSCSAppFrameWork").RequestString( _

"ProcessAction", Null, , , True, True, 0, Null)

Mode 通常为空，这表示用户已成功注册，应重定向到帐户管理页 (Acct.pasp)。在某些情况下，Mode 包含其它页的名称，应将用户重定向到该页。例如，如果匿名用户在注册前将产品添加到了购物篮，您可能希望在用户注册后将用户重定向到“结帐”页。

ProcessAction 参数用于确定用户是从站点中的另一页进入注册页的，还是从注册页本身进入的。如果是前一种情况，将会呈现注册表单；如果是后一种情况，则会使用注册表单的内容来注册用户。如果 ProcessAction 参数是 EditUserObject，则可以使用该页上表单中的数据来注册用户。

然后，脚本将检索表单数据并将数据传递到 PutUserObject 函数，该函数在 Profile.asp 头文件中定义。该头文件包含了管理用户配置文件的各种过程，站点中的各页将要用到这些过程。PutUserObject 函数用于添加或更新用户配置文件，并返回指示成功或失败的布尔值。如果成功创建了用户，则允许用户登录并将其重定向到另一页。如果失败（例如由于指定的用户名已存在），则重新显示 Registration.pasp 页，并显示错误消息指出问题所在。

代码调用 Common.asp 中的 GetUserID 函数来检索用户 ID。该函数用于更新现有用户，本章稍后将对其进行详细讨论。用于注册新用户的下一行重要代码将检查是否存在具有指定用户名的用户：Set objMSCSProfile = _

Application("MSCSProfileService").GetProfile(strUserName, _

_ mc_strUserObject, blnReturnCode)

If Not (objMSCSProfile Is Nothing) Then

Call AddException(m_varrExceptions, 1, _

"用户名已存在。", mc_strPageName)

Set objMSCSProfile = Nothing

如果尚未使用过该用户名，代码将生成一个 GUID（唯一用户 ID）并添加该用户，同时调用 ProfileService 对象的 CreateProfile 方法。来自注册表单的值将赋给配置文件：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

该页剩余部分中的大多数代码用于更新现有用户对象。最后，更新配置文件对象，函数返回 True：objMSCSProfile.Update

Set objMSCSProfile = Nothing

PutUserObject = True

该函数运行完毕后，新用户就注册到了站点数据库。

用户注册后，Registration.pasp 将浏览器重定向到 Acct.pasp（如果 Mode 参数是 NULL）或 Mode 参数所指定的其它页：If blnRegistered Then

If IsNull(strPageMode) Then

Response.redirect "Acct.pasp?Mode=" & strPageMode

Else

Response.Redirect strPageMode & "?Mode=" & strPageMode

End If

对用户进行身份验证

已注册的用户必须登录并通过身份验证，才能访问其配置文件信息。如上文中所述，Registration.pasp 中的代码将使新注册的用户自动登录。但是，用户再次登录时，必须提供用户名和口令才能通过身份验证。

注意：在本应用程序示例中，登录详细信息是使用 HTTP 协议以纯文本格式传递的。但在实际站点中，应使用安全超文本传输协议 (HTTPS) 对安全凭据进行加密。

用户可以使用 Login.pasp 页登录。与 Registration.pasp 一样，此页向自身发送数据并使用 Profile.asp 的功能来处理数据。Login.pasp 页包含执行以下任务的代码：

检查表单中的数据以确定 Mode 和 ProcessAction 参数。Mode 参数用于指定登录完成后应将用户重定向到的页（默认值是 Acct.pasp）。ProcessAction 参数用于指定是显示用户凭据表单以便允许用户登录，还是将表单发回以进行处理。

从该表单检索用户凭据。

将凭据传递到 Profile.asp 中的 Login 函数。

将用户重定向到 Acct.pasp 页（或 Mode 参数所指定的其它页）。

Server.CreateObject(mc_strAuthManager)

Call objMSCSAuthMgr.Initialize _

(Application("MSCSDictConfig").s_SiteName)

然后，该代码将从前一登录中删除用户现有的所有身份验证单：If objMSCSAuthMgr.IsAuthenticated Then

call objMSCSAuthMgr.SetAuthTicket _

("", blnCookieSupport, _

Application("MSCSDictConfig")._

i_FormLoginTimeOut)

End If

检查并确保提供的用户名非空后，代码将使用应用程序级 MSCSProfileService 对象为具有指定名称的用户加载配置文件： Set objMSCSProfileObject = Application("MSCSProfileService").GetProfile(strUserName,

mc_strUserObject, blnReturnCode)

如果为已注册的用户找到了匹配的配置文件，则检索口令和用户 ID，并将口令与用户提供的口令进行比较： strProfilePassword = _

objMSCSProfileObject(mc_strGeneralInfo).Value _

(mc_strUser_Security_Password)

strUserID = objMSCSProfileObject(mc_strGeneralInfo). _

Value (mc_strUser_ID)

If CStr(strProfilePassword) = CStr(strPassword) Then

...

在以匿名方式浏览时能够将产品添加到购物篮，这是 ConsolidatedRetail.com 站点的设计特色之一。如果用户在登录前就将产品添加到了购物篮，则已给该用户签发了一张匿名配置文件单。AuthManager 对象现在要检索此单据，以便将匿名用户的购物篮内容传输到已通过身份验证的用户的购物篮： strProfileUserID = _

objMSCSAuthMgr.GetUserID(mc_bytProfileTicketType)

为用户签发一个新单据（通过身份验证的用户单据），将匿名 cookie 设置为空白值，从而将其删除： Call objMSCSAuthMgr.SetAuthTicket _

(strUserID, blnCookieSupport, _

Application("MSCSDictConfig"). _

i_FormLoginTimeOut)

Call objMSCSAuthMgr.SetUserID(mc_bytAuthTicketType, _

strUserID)

Call objMSCSAuthMgr.SetUserID(mc_bytProfileTicketType, "")

Call objMSCSAuthMgr.SetProfileTicket("", blnCookieSupport)

最后，传输匿名购物篮中的所有产品，并声明登录成功：If (Len(strProfileUserID) > 0) Then

' 从匿名会话获取配置文件

' 对象

Set objMSCSUnRegProfileObject = Application( _

"MSCSProfileService").GetProfilebykey( _

mc_strUser_ID, strProfileUserID, _

mc_strUserObject, blnReturnCode)

' 如果返回匹配的匿名配置文件

If Not (objMSCSUnRegProfileObject Is Nothing) Then

' 将购物篮内容从匿名 ID 传输到已注册的

' ID

Call MoveBasketItems(strProfileuserid, strUserID)

' 从配置文件存储区中删除匿名配置文件

Call Application("MSCSProfileService"). _

DeleteProfileByKey(mc_strUser_ID, _

strProfileUserID, mc_strUserObject)

End If

Set objMSCSUnRegProfileObject = Nothing

End if

' 返回表示成功登录的值

Logon = True

在之后的会话过程中，用户为每个请求提供身份验证 cookie，这样，代码就可以检索到用户的配置文件信息。

检索和更新配置文件信息

此站点允许用户在多个页上查看和编辑其配置文件信息。由于各页均使用类似的代码更新用户配置文件中的字段，因此本章只详细讨论 UserProfile.pasp 页。您也可以查看 EditAddressBook.pasp 和 ChangePasswd.pasp 中的代码，它们执行类似的功能。

UserProfile.pasp 页包含一个表单，用户可在该表单中查看和更改名字、姓氏、电子邮件地址和电话号码的配置文件值。其设计思路类似于上文所述的 Registration.pasp 页。UserProfile.pasp 页包含执行以下任务的代码：

检查 ProcessingAction 查询字符串的值。如果值为 EditUserObject，则该页已将表单内容发送给自身，必须更新配置文件。

从查询字符串中检索表单值。

将表单值传递到 Profile.asp 中的 PutUserObject 函数。

将配置文件值转换为 XML 格式。

如上文所述，PutUserObject 函数用于在收到用户名时注册新用户。如果未收到用户名，则该函数假定用户已存在并尝试更新现有配置文件中的数据。

要访问配置文件，PutUserObject 使用 Common.asp 中的 GetUserID 函数从身份验证单中检索当前用户的 ID，如下所示： Function GetUserID()

Dim objMSCSAuthMgr '身份验证管理器

Dim strUser_ID ' 从身份验证管理器中

' 检索到的用户 ID

' 将 AuthManager 对象实例化和初始化。

Set objMSCSAuthMgr = _

Server.CreateObject(mc_strAuthManager)

Call objMSCSAuthMgr.Initialize _

(Application("MSCSDictConfig").s_SiteName)

strUser_ID = Null

' 如果用户已通过身份验证且身份验证单未

' 超时

If objMSCSAuthMgr.IsAuthenticated Then

' 获取进行身份验证时所用的唯一登录 ID。

strUser_ID = _

objMSCSAuthMgr.GetUserID(mc_bytAuthTicketType)

' 否则，如果用户以匿名方式进行浏览

Else

' 获取配置文件用户 ID（即 GUID）。

' 如果 getuserid 方法返回空字符串

' 将该字符串转换为 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

' 返回新的 GUID 或当前已通过身份验证的

' 用户名

GetUserID = strUser_ID

Set objMSCSAuthMgr = Nothing

End Function

为了检索用户配置文件，Profile.asp 中的 PutUserObject 函数代码使用了 ProfileService 对象的 GetProfileByKey 方法： Set objMSCSProfile = Application("MSCSProfileService").GetProfilebyKey( _

mc_strUser_ID, strUserID, mc_strUserObject, blnReturnCode)

最后，代码更新该用户的配置文件字段：objMSCSProfile.Fields(mc_strGeneralInfo).Value( _

mc_strFirst_Name) = strFirstName