网上购物的实现.docx

2）、商品搜索

关键字

'）">

搜索选项

景点名称

地理位置

<%

KeyWord=Request.Form（"KeyWord"）

SearchOption=Request.Form（"SearchOption"）

searchstring="selectSceneID,SceneName,Address,Pricefrom景点详细信息表where"&SearchOption&"like'%"&KeyWord&"%'"

SetConObject=Server.CreateObject（"ADODB.Connection"）

connstring="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath（"data.mdb"）

ConObject.OpenConnString

setresult=ConObject.execute（searchstring）

ifResult.EOFthen

Response.write"对不起，找不到您所要的景点！

请到我们的顾客留言板留言!

"

else

%>

编号景点地理位置价格

<%

dowhileNotResult.EOF

BookNo=BookNo+1

Response.write""&BookNo&""&Result（"SceneName"）&""&Result（"Address"）&""&Result（"Price"）&"

SceneID="&Result（"SceneID"）&"'>详情"

Result.MoveNext

loop

%>

<%

endif

ConObject.Close

%>

3）、购物推车

购物车是网上购物的核心部分。

没有登录的用户是不能在灵捷购物城中购买商品的。

当用户在系统的首页，或者在各查询页面中找到了自己喜欢的商品，并单击了“放入导购车”的超链接，那么就会弹出购物车页面，提示用户自己购买的商品的所有信息，包括数量、序号、商品名、单价、该类商品的价格，以及购物车中所有商品的总价，购物车页面给出2个选项，一个是继续购物，一个是填写订单。

购物车使用了系统数据库的商品信息表，引用了这个表的商品名、价格等字段，其中属性字段是用于查找和显示，而会员价字段则是用于计算购物的某类商品小计和整个购物车总值用的；其中“是否选购”字段是用于删除。

主要代码分析如下：

//首先运用session和变量user来判断用户是否登录

<%

user=session（"usename"）

//如果用户名为空则弹出一个对话框显示“对不起，您还没有登陆！

”

ifuser=""then

response.write""&"alert（'对不起,您还没有登陆！

'）;"&"history.back（）"&""

//处理商品放入导购车环节

sl="insertintogoods（usename,pn,pprice,dind,pname）values（'"&user&"',1,'"&pprice&"','"&pid&"','"&pname&"'）"

//处理“继续购物”选项

//处理“填写订单”选项

//判断用户名是否为空，空则显示提示信息

if（Session（"usename"）=""）then

response.write""&"alert（'对不起,您还没有登陆！

'）;"&"history.back（）"&""

elseiftrim（request.form（"name"））=""then

//判断文本框中是否输入真实姓名

alert（"请输入你的真实姓名！

"）

……

%>

//判断订单填写完成并插入到数据库（dingdan）表中，然后显示填写成功页面

<%

……

sal="insertintodingdan（usename,name,tel,postcode,email,address,dind）values（'"&user&"','"&names&"','"&tel&"','"&postcode&"','"&email&"','"&address&"','"&dind&"'）"

……

　//转入到dindpay.asp页面

response.redirect"dindpay.asp"

endif;

cn.close

%>

//删除过期商品

<%

id=request.QueryString（"id"）

sql="deletefromgoodswhereid="&id

//执行sql语句

cn.executesql

//转入到另一个页面

response.Redirect（"shop.asp"）

%>

//下面就需要建立数据库的连接，同时打开数据库的连接。

<%

dimcn,strcom,rs

sql="dbq="&server.mappath（"shoping.mdb"）&";driver={microsoftaccessdriver（*.mdb）}"

setcn=server.createobject（"adodb.connection"）

cn.mode=3

cn.opensql

%>

注册模块主要是用来为用户分配相应的权限。

注册主要功能实现代码如下：

//判断用户两次输入的密码是否一致

<%

……

elseiftrim（request.form（"usepass"））<>request.form（"usepasss"）then

response.write""&"alert（'两次输入的密码不相同！

'）;"&"history.back（）"&""

……

%>

<%

……

//从文本框中获取信息

usename=request.form（"usename"）

…….

setrs=server.createobject（"adodb.recordset"）

sql="select*fromcurrwhereusename='"&usename&"'"

……

//向数据库（curr）表中插入注册信息

sq="insertintocurr（usename,usepass,name,selectsex,address,useaddr,postcode,usetel,usemail）

_values（'"&usename&"','"&usepass&"','"&name&"','"&selectsex&"','"&address&"','"

_&useaddr&"','"&postcode&"','"&usetel&"','"&usemail&"'）"

……

%>

4）、会员服务

登录/注册的具体实现

注册用户模块由普通用户登录页面、登录检测页面、注册页面、注册接收页面及各类浏览页面组成,它实现的各个功能亦让用户能方便地注册并进行购买。

用户登录主要功能实现代码如下：

　<%

login=request（"login"）

iflogin="登录"then

currname=trim（request.form（"usename"））

currpass=trim（request.form（"usepass"））

setrs=server.createobject（"adodb.recordset"）

//从数据库shoping中curr表选择与登陆名相同的记录

sql="select*fromcurrwhereusename='"&currname&"'"

rs.opensql,cn,1,1

　　　　//如果查询没到表尾则执行

ifnotrs.eofthen

　　　　　　　//如果用户密码与获取到文本框的密码一致则用session记住用户名

ifcurrpass=rs（"usepass"）then

session（"usename"）=usename

response.redirect"all.asp"

　　　//'密码不相符合，提示密码不正确

else

response.write""&"alert（'密码不正确！

_'）;"&"history.back（）"&""

endif

else

//'记录到末尾，则提示数据库中不存在这个用户名

response.write""&"alert（'用户名不正确！

'）;"

_&"history.back（）"&""

endif

//点击的是"注册"，则进入注册页面

Elseiflogin="注册"then

response.redirect"uselogin.asp"

endif

%>

注册模块主要是用来为用户分配相应的权限。

注册主要功能实现代码如下：

//判断用户两次输入的密码是否一致

<%

……

elseiftrim（request.form（"usepass"））<>request.form（"usepasss"）then

response.write""&"alert（'两次输入的密码不相同！

'）;"&"history.back（）"&""

……

%>

<%

……

//从文本框中获取信息

usename=request.form（"usename"）

…….

setrs=server.createobject（"adodb.recordset"）

sql="select*fromcurrwhereusename='"&usename&"'"

……

//向数据库（curr）表中插入注册信息

sq="insertintocurr（usename,usepass,name,selectsex,address,useaddr,postcode,usetel,usemail）

_values（'"&usename&"','"&usepass&"','"&name&"','"&selectsex&"','"&address&"','"

_&useaddr&"','"&postcode&"','"&usetel&"','"&usemail&"'）"

……

%>

5）收款发货

functionshowpaymsg（）

{

switch（document.billform.PayWay.value）{

case1:

document.billform.PayMessage.value="网上支付";break;

case2:

document.billform.PayMessage.value="邮局汇款";break;

case3:

document.billform.PayMessage.value="银行汇款";break;

default：

document.billform.PayMessage.value=document.billform.R1.

value;break

}

}

<%

strName=Session（"strName"）

IfstrName=""Then

Response.write"您还没有登录，请登录（若您还不是会员，请先注册"

Else

SetConObject=Server.CreateObject（"ADODB.Connection"）

ConnString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath（"data.mdb"）

ConObject.OpenConnString

QueryString1="select*fromtbadminwherestrName='"&strName&"'"

SetResult1=ConObject.Execute（QueryString1）

%>