网上购物的实现Word文档格式.docx
《网上购物的实现Word文档格式.docx》由会员分享,可在线阅读,更多相关《网上购物的实现Word文档格式.docx(22页珍藏版)》请在冰豆网上搜索。
2)、商品搜索
3)、购物推车
4)、会员服务
5)、支付与订单查询
6)、商品信息管理
7)、留言簿
8)、管理后台
<
html>
body>
<
h2align="
center"
>
通讯录<
/h2>
%
'
以下连接数据库,建立一个Connection对象实例conn
Dimconn,strConn
Setconn=Server.CreateObject("
ADODB.Connection"
)
strConn="
Provider=Microsoft.Jet.OLEDB.4.0;
DataSource="
&
Server.MapPath("
data.mdb"
conn.OpenstrConn
以下建立记录集,建立一个RecordSet对象实例rs
Dimrs,strSql
strSql="
Select*From景点类别信息表OrderBySceneClassIDDESC"
'
按自动编号字段降序排列
Setrs=conn.Execute(strSql)
以下利用表格显示记录集中的记录
%>
tableborder="
1"
width="
100%"
bgcolor="
#339966"
>
<
trbgcolor="
#3399FF"
<
th>
景点分类<
/th>
/tr>
DoWhileNotrs.Eof'
只要不是结尾就执行循环
%>
tr>
<
tdalign="
ahref="
Sceneinfo.asp?
SceneClassID=<
%=rs("
SceneClassID"
)%>
"
target=_blank>
SceneClassName"
/a>
/td>
rs.MoveNext'
将记录指针移动到下一条记录
Loop
/table>
divalign="
index.asp"
返回首页<
/div>
/body>
/html>
head>
metahttp-equiv="
Content-Language"
content="
zh-cn"
Content-Type"
text/html;
charest=gb2312"
metaname="
GENERATOR"
MicrosoftFrontPage4.0"
Progld"
FrontPage.Editor.Document"
/head>
bodybgcolor="
#3366FF"
text="
#FFFF00"
formmethod="
POST"
action="
Scenesearch2.asp"
name="
SearchForm"
98%"
tdwidth="
27%"
关键字<
73%"
inputtype="
text"
KeyWord"
size="
20"
onblur="
if(KeyWord.value=='
'
)alert('
关键字不能为空,请检查!
)"
搜索选项<
selectsize="
SearchOption"
optionselectedvalue="
景点名称"
景点名称<
/option>
optionvalue="
地理位置"
value="
地理位置<
/select>
palign="
submit"
提交"
B1"
reset"
全部重写"
B2"
/p>
/form>
HTML>
BODY>
%
KeyWord=Request.Form("
SearchOption=Request.Form("
searchstring="
selectSceneID,SceneName,Address,Pricefrom景点详细信息表where"
&
SearchOption&
"
like'
%"
KeyWord&
%'
SetConObject=Server.CreateObject("
connstring="
DataSource="
ConObject.OpenConnString
setresult=ConObject.execute(searchstring)
ifResult.EOFthen
Response.write"
fontcolor='
#FFFF00'
对不起,找不到您所要的景点!
请到我们的<
ahref='
liuyan.asp'
顾客留言板<
留言!
/font>
br>
else
%>
tablealign="
width=100%border=1>
td>
编号<
景点<
价格<
dowhileNotResult.EOF
BookNo=BookNo+1
BookNo&
Result("
SceneName"
)&
Address"
Price"
concretsceneinfo.asp?
SceneID="
SceneID"
详情<
Result.MoveNext
loop
endif
ConObject.Close
/BODY>
/HTML>
购物车是网上购物的核心部分。
没有登录的用户是不能在灵捷购物城中购买商品的。
当用户在系统的首页,或者在各查询页面中找到了自己喜欢的商品,并单击了“放入导购车”的超链接,那么就会弹出购物车页面,提示用户自己购买的商品的所有信息,包括数量、序号、商品名、单价、该类商品的价格,以及购物车中所有商品的总价,购物车页面给出2个选项,一个是继续购物,一个是填写订单。
购物车使用了系统数据库的商品信息表,引用了这个表的商品名、价格等字段,其中属性字段是用于查找和显示,而会员价字段则是用于计算购物的某类商品小计和整个购物车总值用的;
其中“是否选购”字段是用于删除。
主要代码分析如下:
//首先运用session和变量user来判断用户是否登录
user=session("
usename"
//如果用户名为空则弹出一个对话框显示“对不起,您还没有登陆!
”
ifuser="
then
response.write"
scriptlanguage=JavaScript>
alert('
对不起,您还没有登陆!
);
history.back()"
/script>
//处理商品放入导购车环节
sl="
insertintogoods(usename,pn,pprice,dind,pname)values('
user&
1,'
pprice&
'
pid&
pname&
//处理“继续购物”选项
//处理“填写订单”选项
//判断用户名是否为空,空则显示提示信息
if(Session("
)="
)then
response.write"
elseiftrim(request.form("
name"
))="
//判断文本框中是否输入真实姓名
scriptlanguage=VBScript>
alert("
请输入你的真实姓名!
……
//判断订单填写完成并插入到数据库(dingdan)表中,然后显示填写成功页面
……
sal="
insertintodingdan(usename,name,tel,postcode,email,address,dind)values('
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
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
scriptlanguage=javaScript>
两次输入的密码不相同!
//从文本框中获取信息
usename=request.form("
)
…….
setrs=server.createobject("
adodb.recordset"
sql="
select*fromcurrwhereusename='
usename&
……
//向数据库(curr)表中插入注册信息
sq="
insertintocurr(usename,usepass,name,selectsex,address,useaddr,postcode,usetel,usemail)
_values('
usepass&
name&
selectsex&
_&
useaddr&
usetel&
usemail&
登录/注册的具体实现
注册用户模块由普通用户登录页面、登录检测页面、注册页面、注册接收页面及各类浏览页面组成,它实现的各个功能亦让用户能方便地注册并进行购买。
用户登录主要功能实现代码如下:
<
login=request("
login"
iflogin="
登录"
currname=trim(request.form("
))
currpass=trim(request.form("
//从数据库shoping中curr表选择与登陆名相同的记录
currname&
rs.opensql,cn,1,1
//如果查询没到表尾则执行
ifnotrs.eofthen
//如果用户密码与获取到文本框的密码一致则用session记住用户名
ifcurrpass=rs("
session("
)=usename
all.asp"
//'
密码不相符合,提示密码不正确
else
密码不正确!
_'
endif
//'
记录到末尾,则提示数据库中不存在这个用户名
用户名不正确!
//点击的是"
注册"
,则进入注册页面
Elseiflogin="
response.redirect"
uselogin.asp"
5)收款发货
scriptlanguage="
JavaScript"
functionshowpaymsg()
{
switch(document.billform.PayWay.value){
case1:
document.billform.PayMessage.value="
网上支付"
break;
case2:
邮局汇款"
case3:
银行汇款"
default:
document.billform.PayMessage.value=document.billform.R1.
value;
break
}
#6699FF"
strName=Session("
strName"
IfstrName="
Then
Response.write"
您还没有登录,请<
index.asp'
target='
_blank'
登录<
(若您还不是会员,请先<
sign.asp'
注册<
Else
SetConObject=Server.CreateObject("
ConnString="
ConObject.OpenConnString
QueryString1="
select*fromtbadminwherestrName='
strName&
SetResult1=ConObject.Execute(QueryString1)
billform"
generatebill.asp"
center>
#ECE9D8"
bordercolorlight="
#FFFFFF"
107"
会员名称<
425"
%=strName%>
150"
收货人姓名<
55"
TrueName"
12"
value=<
%=Result1("
)%>
收货地址<
615"
colspan="
3"
65"
邮政编码<
PostCode"
联系电话<
Phone"
14"
strTel"
Email<
Email"
付款方式<
297"
radio"
checkedname="
PayWay"
id="
fp1"
onclick="
PayMessage.value='
网上支付'
labelfor="
网上支付<
/label>
fp2"
邮局汇款'
邮局汇款<
/label
fp3"
银行汇款'
银行汇款<
339"
2"
PayMessage"
size="
39"
readonlyvalue="
发货方式<
SendWay"
value="
普通邮寄"
checked>
fp4"
普通邮寄<
inpu