基于web的网上购物系统—计算机毕业设计

基于web的网上购物系统—计算机毕业设计内容摘要：

ame=imageField type=image src=images/ width=38 height=18 border=0 align=absmiddle [带 span class=price*/span 的必须填写 ]/td /tr/form /table /*下面一段代码是用 JAVASCRIPT验证用户所填写注册信息的有效性 */ script language=javascript function chk() { if (==) {alert(请填写用户名 )。 return false。 } if (strlen()16) {alert(用户名长度只能为 1～ 16个字母、数字或 1～ 8个汉字 )。 return false。 } if ((==)||(==)) {alert(请填写密码 )。 return false。 } if (!=) {alert(两次输入的密码不一致 ， 请重新输入 )。 return false。 } if ((strlen()20)||(strlen(e)4)) {alert(密码长度必须为 4～ 20个字符 )。 return false。 } if ((strlen()20)||(strlen(e)4)) {alert(密码长度必须为 4～ 20个字符 )。 return false。 } if (==) {alert(请填写提示问题 )。 return false。 } if (strlen()40) {alert(提示问题不能超过 20个汉字 )。 return false。 } if (==) {alert(请填写提示问题答案 )。 return false。 } if (strlen()40) {alert(提示问题答案不能超过 20个汉字 )。 return false。 } if (notmail()) {alert(您填写的电子邮件地址不合法 )。 return false。 } if (!=) { if (strlen()!=6) {alert(邮政编码只能为 6位 )。 return false。 } } if (==) {alert(请选择您所在的省或直辖市 )。 return false。 } if (==) 16 {alert(请选择您所在的市、县或地区 )。 return false。 } return true。 } /script %char end sub sub disagree alert 如果要使用本站的服务 ， 您必须接受用户注册协议 end sub% 有些信息必须填写 ,不能空白 ,否则出现提示错误信息 .有的内容需要规定其长度以便得以控制 ,以及各种规格都具有其填写的要求 . ,把注册会员的信息写入数据库并加以保存 .添加一个用户到数据库，其实现过程为： % dim act /*定义变量 ,判断取值 */ act=request(act) if act=reg then reg else info end if sub reg /*查询数据库 ,验证用户名是否存在 */ select id from [user] where username=39。 amp。 request(username)amp。 39。 ,conn,1,1 if not and not then alert 该用户名已经被注册，请重新填写一个用户名 end if /*如果该用户名没有被使用 ,则添加数据库 */ select * from [user],conn,0,2 /*下面一段代码对注册表单传递过来的数据进行处理 */ /table %end sub% 进入注册新会员界面后 ,用户首先填写新会员资料 ,再判断带 *号的必填项是否已填写齐全 ,用户名是否重复 ,地址 ,Email等资料是否有效等等 .如果所有数据有效 ,系统则再数据库中添加一条新记录 ,存储新会员信息 ,完成新会员的注册 . 2. 客户登陆 17 注册会员可以通过此处实现会员的登陆 .登陆审查页有。 如果输入正确，记录用户，登陆成功则返回首页 ,如果登陆出现密码或帐户错误 ,则出现提示信息重新要求登陆并返回首页 .其实现过程： %dim act /*定义变量 ,判断取值 */ act=request(act) if act=logout then logout elseif act=chk then chk else login end if /*判断用户名是否为空 */ sub logout (delete from bag where user=39。 amp。 session(username)amp。 39。 )session(username)= () end sub sub chk /*定义两个变量，对用户名和密码进行处理 */ dim username,password username=request(username) password=md5(request(password),16) /*查询数据库 */ select password,logins,lastlogin,lastip,score,vip from [user] where username=39。 amp。 usernameamp。 39。 ,conn,1,2 /*判断用户是否存在 */ if not( and ) then /*判断用户密码是否正确，设置 COOKIE*/ if password=rs(0) then 3. 查看和修改资料 查看操作是显示用户注册的所有信息。 更新操作，直接从更改表单中获取相应值，执行后根据回值做响应处理。 分别用到了 页面和 页面。 18 购物车的用途与实现 购物车这个名字来自于超级市场的购物篮或购物车 ,当顾客找到自己喜欢的东西时就放入购物篮中 ,选择好后到收银台付款 . 购物篮要实现以下功能 : 1. 添加商品到购 物篮 2. 显示购物篮信息 3. 更新购物篮信息 4. 删除购物篮中的商品 购物车的设计要用到 页面 ,它显示了商品的编号及其价格 ,可以对商品进行添加删除 ,还可以改变商品的购买数量以及对商品总体价格进行结算 ,和对几种不符合要求的价格情况进行处理 . 购物车功能实现如下： %chklogin(1) /*定义变量 ,选择添加 ,显示 ,修改 ,删除 ,清楚 */ dim act act=request(act) if act=add then add elseif act=show then show elseif act=modi then modi elseif act=del then 19 del elseif act=clear then cclear else show end if /*向库中添加 ID*/ sub add dim id id=cint(request(id)) select * from goods where id=amp。 id,conn,0,1 /*判断用户级别 ,根据用户级别决定商品价格 */ dim ame,ourprice,vipprice ame=rs(name) ourprice=rs(ourprice) vipprice=rs(vipprice) dim money /*查询数据库 ,根据用户级别查询相应价格 */ select vip from [user] where username=39。 amp。 session(username)amp。 39。 ,conn,0,1 if rs(vip)=true then money=vipprice else money=ourprice end if select * from bag where goods=amp。 idamp。 and user=39。 amp。 session(username)amp。 39。 ,conn,1,2 if not and not then rs(num)=rs(num)+1 else rs(name)=ame rs(money)=money rs(user)=session(username) rs(goods)=id rs(num)=1 end if ?act=show end sub /*显示商品名 ,数量 ,总价 ,操作 */ 20 ()。 ()。 } /script %end sub /*修改 */ sub modi request(id) (update bag set num=amp。 cint(request(num))amp。 where id=amp。 cint(request(id))) ?act=show end sub /*删 除 */ sub del (delete from bag where id=amp。 cint(request(id))) ?act=show end sub /*清除 */ sub cclear (delete from bag where user=39。 amp。 session(username)amp。 39。 ) show end sub% 订单功能及实现 当商品形成订单后 ,注册会员可以进行对自己所购商品的订 单进行查询、交易、确认、和退货和选择支付方式。 同时还包含了查看帐户、货物出售和发布商品。 1. 查看我的定单 2. 确认定单 3. 返回定单成功 4. 退货申请 5. 付款方式 6. 查看帐户 7. 货物出售 8. 发布商品 21 通过 、 、 实现确认定单和返回定单成功以及选择付款方式。 /*显示定单中的商品信息 */ form action=?act=next method=post % select * from bag where user=39。 amp。 session(username)amp。 39。 ,conn,1,1 if and then/*判断定单中是否有商品 */ else dim totalprice totalprice=0 do while not % tr td height=23 align=leftinput name=goods type=hidden id=goods value=%=rs(goods)% %= rs(name) %/td/*显示商品名 */ td align=right class=price%= rs(money) %/td/*显示商品价格 */ td align=right class=price%= rs(num) %input name=num type=hidden id=num value=%=rs(num)%/td/*显示商品数量 */ td align=right class=price%= rs(num)*rs(money) %/td/*显示总价 */ /tr %totalprice=totalprice+rs(num)*rs(money)/*调用函数 ,计算总价 */ loop end if %end sub /*选择支付方式 ,填写购买者信息 */ (39。 text39。 ).replace(/[^\d]/g,39。 39。 )) span class=price*/spanspan class=brief此项必须填写 /span/td /tr tr td height=25 align=right您的邮政地址 :/td td width=216input name=address type=text class=text_input2 id=address value=%=rs(address)%/td td width=115 rowspan=3 align=center bgcolor=F7F3F7 style=color: FF0000只用于邮寄商品 ,不对外公开 /td /tr tr td height=25 align=right您的真实姓名 :/td tdinput name=truename type=text class=text_input id=truename value=%=rs(truename)%/td /tr tr {alert(请务必输入电话号码 (。