Zip Text 用户填写 邮编
Password1 Password 用户填写 用户密码
Password2 Password 用户填写 确认密码
Login Submit 登录 提交表单
Reset Reset 全部重填 重设表单
通过上述表单元素就可以向数据库提交用户输入的全部信息，为了防止用户信息有遗忘未填的写入下面代码实现用户的提交，实现方式如下：
定义变量Dim founderr,errmsg
founderr=false
表单中的昵称为用户注册新的用户名时确认的，通过变量temp来获得用户注册的新用户名 temp=request.form("nicename")
通过表单将新用户的姓名、电话、联系地址、EMAIL、邮编、密码、以及重复输入的密码值，如该语句： name=Request.Form("name")
当用户的输入为空时，则if name="" then
founderr=true
errmsg="姓名不能为空"
end if
系统为了防止用户对输入的密码不清楚，则要求用户输入两次密码，避免用户错误的输入密码，语句如下：
pw1=Request.Form("password1")
pw2=Request.Form("password2")
if (pw1="" or pw1<>pw2) then
founderr=true
errmsg=errmsg & "密码错误!"
end if
if founderr then
Response.Write errmsg
如果用户两次输入的密码不相同，则系统将会提示用户输入的密码错误，需要用户重新对密码进行输入。
用户添加完信息以后，使用用户名和密码即可以进入用户信息界面，对用户的信息进行修改，利用表单实现form method="POST" action="userchange.asp"，就可以将用户的信息进行修改和提交。
4.3 图书销售模块
4.3.1 购物车的页面
在各个书籍后面插入购物车图片，将图片与购物车进行连接，用户一旦点击购物车，就可以连接到shopcart.asp，用户可以直接在书籍信息的界面就可以购买自己选中的书籍,界面如图4-3：
图4-3 购物车界面
其中购物车主要实现将用户选购的书籍添加到购物车，通过对用户权限的检验，如果输入的用户名和密码不正确，则显示无此人信息；如果输入正确的用户名就可以将购物车的信息写入到定单信息库中，形成用户定单。如果用户对购物车里的某些书籍不满意，即可使用删除功能，对不满意的书籍进行删除，用户还可以在购物车中改变购买书籍的数量，用户购买多本相同书籍不需要反复进行购买，点击结帐即可将用户的定单放入用户定单数据库。
4.3.2 购物车的设计
为了实现用户添加到购物车的信息不丢失，利用ASP中Session对象，可以使用户在跳转界面时，提交到购物车的信息，仍保存在购物车中，具体实现代码如下：
Sub Session_OnStart
Dim sItemNums(0), nItemQtys(0) //定义数组
sItemNums(0) = ""
nItemQtys(0) = 0
session("CartItemNumArray") = sItemNums
session("CartItemQtyArray") = nItemQtys
End Sub
通过以上代码可以将用户的信息保存在购物车中，方便用户对自己购物车信息的管理。其中session("CartItemNumArray") = sItemNums是存放当前购买的商品的id的数组管理商品id号，session("CartItemQtyArray") = nItemQtys是存放相对应的数量的数组管理购买书籍的数量。
购物车实现的功能如下：
将用户的书籍添加到购物车：
if sMode = "add" then
首先对搜索变量进行初始化 nThisItemIndex = 0
获取客户端传送过来的id号sItemNo = ucase(request.querystring("itemno"))
if nNumCartItems > 0 then
for i = 1 to nNumCartItems
存放你已购买的商品的id的数组，如果你再次购买的书籍与你原来购买的书籍id号相同的则运行以下代码，改变相同书籍的数量，否则添加一条新记录
if ucase(scartitemnums(i)) = sItemNo then
nThisItemIndex = i
exit for
end if
if nThisItemIndex = 0 then
nThisItemIndex = nNumCartItems + 1
redim Preserve sCartItemNums(nThisItemIndex)
redim Preserve nCartItemQtys(nThisItemIndex)
sCartItemNums(nThisItemIndex) = sItemNo
nCartItemQtys(nThisItemIndex) = 1
else
nCartItemQtys(nThisItemIndex) = nCartItemQtys(nThisItemIndex) + 1
end if
session("cartitemnumarray") = sCartItemNums
session("cartitemqtyarray") = nCartItemQtys
nNumCartItems = ubound(sCartItemNums)
end if
对用户购买书籍后进行结帐，把用户购买的书籍单价与数量相乘得到每个书籍的总价格，然后再将所有书籍的价格想加可以获得最后的定单价格，实现以上功能代码如下：
获取书籍的价格：
if rsProducts("Price") > 0 then
cPrice = rsProducts("Price")
else
cPrice = 0
end if
转贴于 酷文网-论文下载中心 http://www.coolwen.net
共9页: 上一页 [1] [2] [3] [4] [5] 6 [7] [8] [9] 下一页
网摘收藏:
当前位置:
载入中...
-> 在百度中搜索：
-> 在Google中搜索：