( 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 ”。浏览URL http://www.qqread.com/dreamweaver/q325104022.html进入讨论组讨论。
相关图文阅读
频道图文推荐
健 康 咨 询
时 尚 咨 询
相关专题
- 网页改版是家家难念的经 (0次浏览)
- DWMX+ACCESS制作企业新闻系统 (0次浏览)
- DW8代码工具栏试用 (0次浏览)
- DW MX 中表单数据的传递 (0次浏览)
- DW MX 设计360度全景滚动效果图 (0次浏览)
- DW MX 的快键一览表 (0次浏览)
- Dreamweaver MX中移动层的使用 (0次浏览)
- Dreamweaver MX制作文字特效 (0次浏览)
- Dreamweaver MX 也要 VSS (0次浏览)
- 制作网页的十大诀窍! (0次浏览)



