te like '"&;str1&;" "&;str1&;" 界面:
13 图4—2—1:商场主页 分类页:(??.asp)(共有六个分类页) 用于显示不同类别的商品,同时实现到网站各页面的链接. 关键代码:(P_Class字段保存了产品所属类别) myRs1.open"select * from Product where P_Class = 名'",myConn 界面: '类 类 图4—2—2:服装商场主页 详情页:(XX.asp) 14 当用户点击商品的编号时,XX.asp出现.用于显示该商品的详 细描写和图片. 关键代码:( myRs(0)字段保存了商品的编号;myRs(3)字段保存 了商品的详细描叙;myRs(5)字段保存了商品的图片路径.) 在请求页中: <%=myRs(0)%>"><%=myRs(0)%> <%=myRs(0)%> 在详情页中: <%=myRs(3)%> <%=myRs(3)%> <%=myRs(3)%> <%=myRs(5)%>"> <%=myRs(5)%> 图 4—2—3 所选商品的详细描写页 4.3 用户服务: 用户服务: 用户服务包括注册,登录,修改密码,由数据库中的 Member 表储存信息. 注册页: (regist.asp;) 用户可通过各商场页面上的"我要注册"链接到注册页,该页 用于收集用户资料,然后发送给
注册处理页(regist_check.asp) 进行处理. 关键代码: 注册页: "return CheckForm(form)" name=form function CheckForm(theForm) 15 {if(!theForm.txtMLog.value){ alert("您需要输入完整的用户名."); theForm.txtMLog.focus(); return(false false);} false return true true} (上叙代码实现对用户输入的有效性检查) 处理页: if myRs.eof or myRs.bof then myRs.addnew myRs(0)=MLog myRs(1)=MPass myRs(2)=MEmail myRs.update response.write" 您已经成功的注册为百姓家园网的用 户!" response.write" 您的用户名是:"+MLog+"" response.write" 您的登录密码是:"+MPass+"" response.write" 您的电子邮箱是:"+MEmail+"" response.write" 请您牢记以上资料." response.write" 您现在可以 重新注册" end if (上叙代码首先检查客户的用户名是否已在数据库中存在, 如果 存在,提示客户重新输入;否则,将注册资料写入数据库.) 注册界面: 16 图4—3—1 用户注册页 登录:login.asp 该页面用于收集客户登录信息,然后移交给登录处理页 (login_check.asp)核查. 关键代码: 登录:其代码与注册页代码差不多,不再重复. 处理: if myRs.bof or myRs.eof then Response.Write " 没有当前您输入的用户或您输入的口 令错误!" Response.Write " 如要重新登录,请重新登录" Response.Write " 或者" Response.Write " 您想:
返回主页看商 品
" Response.Write " 还是:
查看购物篮
" Response.Write " 还是:
修改会员资料 17
" session("MLog")=MLog end if (上叙代码首先检索数据库中符合用户请求的记录,如果没有, 提示用户重新登录;否则,显示欢迎字样,并将用户名写入 并将用户名写入 session("MLog") 登录界面: (图4—3—2 用户登录页) 修改密码:write.asp 该页将检查 sessio
n("MLog"),如果为空(说明用户未登录) ,则 重定向到登录页中;否则,将 session("MLog")保存到变量 Mlog 中,然后让用户修改密码,并 保存到数据库. 关键密码: if session("MLog")="" then response.redirect"login.asp" redirect"login.asp" else MLog=session("MLog") end if myRs.open"select M_Pass from Member where M_Log like '"&;MLog&;"'",myConn,1,3 '"&;MLog&;"' myRs(0)=nPass myRs.update update 修改密码界面: 18 图 4—3—3 用户登录页 4.4 购物: 购物: 购物过程由商品浏览页,商品详情页,购物篮页,订单服务页,订单确认页 共同实现,其中,商品浏览页和商品详情页前面已讲,这里不再重复. 购物篮:basket.asp 当用户在商品浏览页,商品详情页中点击图片 ,或 点击
导航栏中的"我的购物篮"时该页面出现.如果用户尚未 购物,则显示"您的购物篮是空的" ,否则,显示客户尚未下单 尚未下单 的购物信息.客户新放入的商品也已自动更新:如果购物篮中 没有该商品,则其数量为 1;否则,就将该商品的数量加 1.同 时,客户购物金额也自动计算并显示出来;当客户更改了商品 数量输入框中的数量或选中删除复选框后,再点击"更新"按 纽时,商品的数量,金额都将自动更新. 关键代码: 在请求页中: <%=myR