用Dreamweaver实现网站购物车功能

来源：人民邮电出版社作者：4u2v工作室出处：巧巧读书 2006-05-12 进入讨论组

　　（ 5 ）定义“ CpTotal ”过程，用于统计财物车总金额。

　　Sub CpTotal()
　　Dim i As Integer
　　Dim Cpto As single=0
　　For i=0 to Cptb.Rows.Count-1
　　Cpto=Cpto+Cptb.Rows(i)(4)
　　Next
　　CPCOUNT.text=Cpto
　　End Sub

　　（读者可打开【光盘】｜【源文件】｜【实例 83 】｜【 83.3.txt 】文件，直接复制）

　　（ 6 ）定义“ ByGrid_Delete ”过程，用于单击【删除】按钮后，删除当前购物。

　　Sub ByGrid_Delete(sender As Object, e As DataGridCommandEventArgs)
　　Dim dr As DataRow = Cpbt.NewRow()
　　Dim itemCell As TableCell = e.Item.Cells(0)
　　Dim item As String = ItemCell.Text
　　CpView.RowFilter = "CPID='" & item & "'"
　　If CpView.Count > 0 Then
　　CpView.Delete(0)
　　End If
　　CpView.RowFilter = ""
　　CpTotal
　　ByGrid.DataSource = CpView
　　ByGrid.DataBind()
　　End Sub

　　（读者可打开【光盘】｜【源文件】｜【实例 83 】｜【 83.4.txt 】文件，直接复制）

　　（ 7 ）定义“ CpUpdate_Click ”过程，用于在单击完【更新购物车】按钮后更新购物车中的小计。

　　Sub CpUpdate_Click(sender As object, e As EventArgs)
　　Dim i,j As Integer
　　Dim _item As DataGridItem
　　j=0
　　For i=0 To ByGrid.Items.Count-1
　　_item = ByGrid.Items(i)
　　Dim CountText As TextBox = _item.FindControl("Sltxt")
　　Cpbt.Rows(i)(3) = CountText.Text
　　Cpbt.Rows(i)(4) = Cpbt.Rows(i)(2) * Cpbt.Rows(i)(3)
　　Next
　　CpTotal
　　ByGrid.DataSource = New DataView(Cpbt)
　　ByGrid.DataBind()
　　End Sub

　　（读者可打开【光盘】｜【源文件】｜【实例 83 】｜【 83.5.txt 】文件，直接复制）

　　（ 8 ）定义“ ClearBy_Click ”过程，用于客户单击【清空购物车】按钮后执行该过程。

　　Sub ClearBy_Click(sender As object, e As EventArgs)
　　Dim i As Integer
　　For i=0 to CpView.Count-1
　　CpView.Delete(i)
　　Next
　　CPCOUNT.text=0
　　CpView.RowFilter = ""
　　ByGrid.DataSource = CpView
　　ByGrid.DataBind()
　　End Sub

　　（读者可打开【光盘】｜【源文件】｜【实例 83 】｜【 83.6.txt 】文件，直接复制）

　　（ 9 ）定义“ Page_Load ”过程，该过程用于当客户单击“更新购物车”按钮时，显示打开购物车页面所要执行的代码。

　　Sub Page_Load(Sender As Object,e As EventArgs)
　　If Session("Cpshop") Is Nothing Then
　　CrCpdatatable
　　Session("Cpshop") = Cpbt
　　Else
　　Cpbt = Session("Cpshop")
　　End If
　　Cpview = New DataView(Cpbt)
　　If (Not IsPostBack) Then
　　If Session("USENAME")="" or Session("USENAME")=nothing Then
　　response.Redirect("nologin.htm")
　　End If
　　AddCpbt
　　CpTotal
　　ByGrid.DataSource = Cpview
　　ByGrid.DataBind()
　　End If
　　End Sub

　　（读者可打开【光盘】｜【源文件】｜【实例 83 】｜【 83.7.txt 】文件，直接复制）

　　程序说明：

　　当 Session("Cpshop") 为空值，即首次建立购物车时，建立的 Session("Cpshop") 存储结构与临时表 Cpbt 的结构相同。当 Session("Cpshop") 非空值时，则将 Session("Cpshop") 映射给 Cpbt 临时表。当第一次装载页面时（代码为 Not IsPostBack ），验证 Session("USENAME") 是否为空值，即用户是否已经登录。如果是空值，则返回到“ nologin.htm ”页面中；如果非空，则查询用户单击购物产品的相关数据并添加到日程表临时表中，然后显示到数据网络“ ByGrid ”中。

　　（ 10 ）设计“ nologin.htm ”页面。新建一个空白的 HTML 文档，在设计视图中进行如图 83-11 所示的设计，其中关闭窗口的超级链接为“ javascript:window.close() ”，将其保存为“ nologin.htm ”。

用Dreamweaver实现网站购物车功能（图十）