erWhereID="&ID
SetRs=DataCon.Execute(SQLQuery)
IfRs.EOF=TrueThen
ReturnErrorPagewsecLogonNoUser
EndIf
IfRs("User_Password")<>OldPasswordThen
ReturnErrorPagewsecLogonWrongPassword
EndIf
SQLQuery="UpdateCustomerSetUser_Password="&sqlstr(NewPassword)
SQLQuery=SQLQuery&"WhereID="&ID
DataCon.ExecuteSQLQuery
ReturnSuccessPagewsscModifyMM
%>
4)"找回密码"页中,共有以下几个要点
1.检测Request("Step")确定这次访问是第几步。
Step为一个隐藏输入框。然后,将这个字符串值赋给sStep,
如果Request("Step")为空,则将"One"赋给sStep,
这表示默认是第一步。
2.在可编辑区域main中,插入一个Form,Action设为ForgetMM.asp,
即链接到自身。再插入一个隐藏框,Name设为Step,用于记录下一步
是第几步,即提交表单时,先将Step赋予"One"、"Two"、"Three"、
"Four"其中之一。然后,用SelectCase分支语句,按sStep,
选择本步骤中需输出的内容。
3.
第一步:sStep="One",一个选择框,选择查询的字段;一个输入框,让用户输入查询的关键字。
第二步:sStep="Two",根据上一步提交的字段名和关键字,查询数据库,用选择框(Name='ID')将用户的唯一标识数字和用户名输出结果到浏览器。Request("ZD")就是上一步选择的字段名。
第三步:sStep="Three",查询上一步选择的用户名所对应的密码提示问题。如果该用户名没有设置密码提示问题,则告诉访问者没有密码提示问题,密码不可恢复;否则,返回密码提示问题。
第四步:sStep="Four",检查访问者对密码提示问题的回答。如果正确,返回该用户名的密码。
4.6购物模块
一个电子商务网站的核心就是它的购物系统,用户登录该网站的目的便是能够顺利的购物。所以购物模块的制作是尤为重要的。购物功能要尽量设计得人性化功能不需太多,但一定要设计的全面有条理。
本系统按照物品的不同将其分为不同得类别,然后大类别中还分小类别,主要目的便是想让客户能够尽量方便快捷的挑选到自己所需要的商品。具体的商品还附有图片与一定的文字信息来描述该物品使其更加形象化。选中的物品便会送入购物篮如果不想要该物品了,也可以从购物篮中将其去除。
同时还安排了热门商品的排名,对顾客的购物也有一种导向作用,方便其购物。
在购物模块的制作中共有三个ASP程序的编写:Main.asp、ListGoods.asp和ViewDetail.asp。其中,Main.asp给出了基本框架,ListGoods.asp则通过对数据库的调用显示出客户选择的商品,ViewDetail.asp则让客户看到其感兴趣的商品的名称、价格等属性。
4.6.1Main.asp程序的编写
对于购物页面,我们希望的效果是,当用户点击进入商场时,显示最近更新的商品;当用户选择点击商品类型时,显示该类型的子类型和该类型最新更新的商品;然后当用户点击子类型时,显示该子类型的全部商品。
商品类型的数据储存在Ebusiness数据库的GoodsType表中,上面的程序查询该数据表中字段Is_SubType=0,即字段Is_SubType为假的记录,这些记录就是全部的大类型。
以下为其源代码:
-->
<%@Language=VBScript%>
进入商场::ASP--EBusiness网站
style="filter:Chroma(Color='#ffffff');Shadow(Color='#000000',Direction='90');"width="60"height="60"
>
登录
查看购物车
注销
去收款台
|||
首页
用户中心
进入商场
本站新闻
商品热卖
|||
商品分类
最近更新
<%
SetDataCon=Server.CreateObject("ADODB.Connection")
SetRs=Server.CreateObject("ADODB.Recordset")
SetRsType=Server.CreateObject("ADODB.Recordset")
DataCon.ConnectionTimeout=20
DataCon.Open"DSN=EBusiness","EBAdmin","111111"
SQLQuery="Select*FromGoodsTypeWhereIs_SubType=0"
SetRsType=DataCon.Execute(SQLQuery)
WhileNotRsType.EOF
%>
"class="Name"target="Center">
<%=RsType("Name")%>
<%
RsType.MoveNext
Wend
%>
"width="100%"height="300"name="Center">
|||
首页
用户中心
进入商场
本站新闻
商品热卖
|||
Copyright(C)2000InternetTechnologies
China.Allrightsreserved.PoweredbyIntel.
本网站为ASP教程的实例网站EBusiness支持
mailto:3710167@qq.com
热线电话:
4.6.2ListGoods.asp程序的编写
在ListGoods.asp文件的开头,有一段程序对输入参数Type_ID、SubType_ID的判断逻辑,取得类型的名字,现解释如下:
如果Type_ID、SubType_ID都为空,则不查询。
否则,Type_ID、SubType_ID有一个不为空,则继续判断逻辑。
如果Type_ID为空,而SubType_ID不为空,查询GoodsType数据表,通过子类型的查出对应的父类型的类型ID,将这个值赋予Type_ID。
然后,根据这时Type_ID、SubType_ID的值,如果不为空,则通过该ID插入对应的类型名。
然后,输出类型的链接。如果这时Type_ID还为空,表明输入参数Type_ID、SubType_ID都为空,所以输出大类型的链接;
否则,输出Type_ID大类型所对应的子类型。
使用了SQL关键字OrderByGoods_TimeDESC,将查询结果按时间反序排列。如果Type_ID不是空值,则需加上查询的条件,WhereGoods_Type_ID=Type_ID,即按时间反序排列该类型的商品。将查询结果赋予Rs,然后按排列的顺序输出。
此程序主要分为两部分:
一是显示最新更新的记录。
二是显示某一字类型的全部记录
4.6.3ViewDetail.asp程序的编写
这个页面用户显示商品的详细信息,包括商品的图象、点击数、售出数等等。图象的图象储存在gvImagePath/Rs("Goods_Image_Path")。
GvImagePath在Gen.inc中定义过,gvImagePath="/EBusiness/Image"。
ViewDetail.asp从模板main中导出,在Dreamweaver中为显示的详细信息排列位置。然后,在源文件中使用<%=Rs("字段名")%>输出字段的值。
4.7购物篮管理页面
当顾客选购完商品后,便可进入"购物篮"页面。在这里顾客可以对其所购物品进行再次确认并统计费用。也可以对所购商品的数量进行调整,或删除商品。当正式确认后便可进入"收款台"。
1.ViewBasket.asp页面也是一个集成了多种操作的程序。它在向浏览器发出任何信息前执行包括Submit、Cancel、ModifyAmount、Delete、Add五种操作之一或不作任何操作。然后,他向浏览器输出当前用户购物篮中的所有货物,包括确认购买的和未确认的。
先是GoodsBasket表的内容。这个表中储存的是用户提交的购买商品的申请单,他包括以下几个关键字段:
<1> Goods_ID,申请单中申请的商品的唯一标识数字。
<2> User_ID,申请用户的唯一标识数字。
<3> Request_Amount,申请的数量。
<4> Assurance,是否已经确认。
用户在浏览商品时,看见中意的就可以放入购物篮,但不等于一定要买,他还有一个选择的机会,他要点击"去收款台"申请单才正式提交。在这之前,用户可以随时删除购物单,和改变请求的数量。
2.以下是ViewBasket.asp的五个操作:
(1)Add:添加一件唯一标识数字为GoodsID=Cint(Request("ID"))的商品到购物篮中
相应的数据库操作为:查找申请单中Goods_ID为GoodsID而未确认的的记录。
如果查找到记录,则更新该条记录中的Request_Amount,加一。
如果没找到,则插入一条新纪录到数据表GoodsBasket中。
代码如下:
RequestDescription=""
GoodsID=Request("ID")
SQLQuery="Select*FromGoodsBasketWhereAssurance=0AndGoods_ID="&GoodsID
SQLQuery=SQLQuery&"AndUser_ID="&UserID
SetRs=DataCon.Execute(SQLQuery)
IfRs.EOFThen
SQLQuery="InsertIntoGoodsBasket"
SQLQuery=SQLQuery&"(Goods_ID,User_I
上一篇:基于ASP动态旅游网站设计(元源码)(论文和程序)
下一篇:关于武汉地名的语言文化考察