电子商务网站建设与完整实例(李怀恩)04299实例的源码和素材

1、第六章 电子商务网站创立实例学习目标熟悉ASP与数据库链接与操作熟练代码的模块化设计及重用能根据实际情况建立电子商务网站用户管理功能等的设计与实现熟悉网站的发布流程6.1建立一个简单的网上商店下面给出首页index.asp的源代码：12345678910111213随缘网上商店首页参数：指定要包含的文件名。 必须包含文件名扩展，而且必须将文件名用引号 () 引起来。 第1行：调用conn.asp文件，这个文件主要负责连接数据库；第4行：调用css.css样式表文件。因本站点就使用一个样式表文件，所以不另外建立一个文件夹存放。因为在以下的所有网页中都需要调用同样的css.css样式表文件，所以在

2、本章书之后的页面源代码中都省略这一行，请读者们注意。第711行：按照图6-2的模块化设计，调用相应文件。所以在本章书之后的页面源代码中都省略这两行，请读者们注意。WebTop.asp页面源代码如下：1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859 userinfo.asp页面源代码如下：123456789101112亲爱的顾客您好,购置商品请先 登录 注册 %elseset rs=server.createobject(ado

3、db.recordset)rs.open select user_point,user_fund from users where & _user_name=&request.Cookies(user_name)&,conn,1,3response.Cookies(user_fund)=rs(user_fund)response.Cookies(user_point)=rs(user_point)set rs=nothingresponse.write &request.Cookies(user_name)& _ 您好,您目前有&request.Cookies(user_point)&积分,预

4、存款& _request.Cookies(user_fund)&元 end if%searchinfo.asp页面源代码：Guide.asp页面源代码：12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011

5、1112113114115116117118119120 新开张期间，购物送大礼，你还等什么呢？赶快行动吧 新开张期间，购物即送大礼 新品上市雅芳美容护肤品 购物须知 你会挑选洗面奶吗？ 专家给你支招：如何保障网上购物 a href=goodsinfo.asp?id=(￥)if rs.eof then exit do%a href=goodsinfo.asp?id=(￥)loopelse%什么商品都还没有呢！ 123456789101112131415161718192021222324%set rs=server.CreateObject(adodb.recordset)rs.open se

6、lect * from goodssort order by sort_order desc,conn,1,1if rs.eof thenresponse.write 目前没有商品分类else% a href=goodssort.asp?id=其主要实现代码如下：123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888

7、990919293949596979899100101102103104105106107108109110111112113 %response.write if len(rs(goods_name)12 thenresponse.write left(trim(rs(goods_name),11)&.elseresponse.write trim(rs(goods_name)end ifresponse.write %最热产品 最新产品 全部产品 %set rs=server.CreateObject(adodb.recordset)rs.open select Top 10 * from

8、 goods order by goods_id desc,conn,1,1if rs.eof thenresponse.write 对不起，暂无新品！ & _else% %if rs(goods_picture)= then response.write else%a href=goodsinfo.asp?id= img src= width=90 height=90 border=0 align=absmiddle %response.write if len(trim(rs(goods_name)12 thenresponse.write left(trim(rs(goods_name)

9、,10)&.elseresponse.write trim(rs(goods_name)end ifresponse.write % 25 thenresponse.write left(trim(rs(goods_detail),25)&.elseresponse.write trim(rs(goods_detail)end if%本店价： %if i mod 2=0 then response.Write else%123456789101112131415161718192021 合作伙伴：随缘女性用品专卖店 购物首页 | 关于我们 | 商城动态 | 业务联系 | 版权声明 | 付款方式

10、 | 留言/建议/投诉 公司地址：广州市邮政编码：54321 客服邮箱：客服 ：1311111111 工作时间：724小时版权所有 2007-2021 随缘网上商店 图6-4 商品详细信息页面其主要实现代码如下：123456789101112131415161718192021222324252627% if rs(goods_picture)= then response.write else %a href= target=_blankimg src= width=200 border=0 alt=点击在新窗口浏览商品大图 height=200 被浏览次已售出次 热卖中主要实现代码：123

11、456789101112131415161718192021222324252627282930313233%if request.Cookies(user_name)= thenresponse.write alert(对不起，您还没有登陆！); response.write location.href=login.asp;end ifdim goodsid,orderid,amount,num,totalmoneygoodsid=request.QueryString(id)set rs=server.CreateObject(adodb.recordset)rs.open select

12、order_id from orderform where & _user_name=&request.Cookies(user_name)& and order_state=未确认,conn,1,1 if rs.eof thenconn.execute(insert into orderform(user_name,order_time,order_state) & _values(&request.Cookies(user_name)&,&now&,未确认)rs.open select order_id from orderform where & _user_name=&request.

13、Cookies(user_name)& and order_state=未确认,conn,1,1 end iforderid=rs(order_id)conn.execute(insert into orderdetail(order_id,goods_id,goods_amount)values(&orderid&,&goodsid&,1)%订单里有商品： 件总数： 件共计： 元您有预存款： 元6.2 建立数据库的动态链接由以上网页文件可以知道，所有与数据库的连接均由conn.asp页面完成。那么如何连接数据库的呢？我们先来看看conn.asp页面的源代码：123456786.3 建立数据库

14、的动态更新admin_savegoods.asp页面主要实现代码：12345678910111213141516%检测管理员是否已登陆if request.Cookies(admin)= thenresponse.Write alert(网络超时或者您还没有登录请登录);window.location.href=admin_login.asp;end if%6.4用户管理功能设计savereg.asp页面主要源代码：12345678910111213141516171819202122232425262728293031323334%dim user_name,user_pwd,user_re

15、pwd,user_realname,user_idcard,user_sex,user_addressdim user_zip,user_telephoneuser_name=request.form(user_name)user_pwd =request.form(user_pwd )user_repwd =request.form(user_repwd )user_realname =request.form(user_realname )user_idcard =request.form(user_idcard )user_sex =request.form(user_sex )user

16、_address =request.form(user_address )user_zip =request.form(user_zip )user_telephone =request.form(user_telephone )if user_name= or user_pwd= or user_realname= or user_address= or _ user_zip= or user_telephone= thenresponse.Write alert(请先把必填的信息填写完整！);history.back(-1);end ifset rs=server.creatobject(

17、)rs.open select user_name from users where user_name=&user_name&if not rs.eof then response.Write alert(对不起，该用户名已经存在，请另外选个名字注册);history.back(-1);else if user_pwduser_repwd then response.Write alert(两次输入的密码不一致，请重新输入);history.back(-1); end if (insert into users(user_name,user_password,user_realname, &

18、 _user_idcard,user_sex,user_address) values(&user_name&, & _&user_password &, & user_realname &, & user_idcard &, & _&user_ sex &, &user_ address &) response.cookies(user_name)=user_name response.Write alert(恭喜，注册成功，！); window.location.href=index.asp;end ifset rs=nothing%checklogin.asp页面主要实现代码如下：123

19、4567891011121314151617181920%dim user_name,user_pwduser_name=request.form(user_name)user_pwd =request.form(user_pwd )if user_name= or user_pwd= thenresponse.Write alert(请先把用户名或密码填写完整！);history.back(-1);end ifset rs=server.creatobject()rs.open select user_name from users where user_name=&user_name& &

20、 _ and user_possword=&user_pwd&if rs.eof then response.Write alert(用户名或密码错误，请重新输入！);history.back(-1);else response.cookies(user_name)=user_name response.redirect index.aspend if%6.5商品管理功能设计其主要实现代码：1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556

21、57585960616263646566676869707172%if request.Cookies(admin)= thenresponse.Write alert(网络超时或您还没有登陆！);window.location.href=admin_login.asp;end if% const MaxPerPage=10dim totalPut,CurrentPage,TotalPagesif Not isempty(request(page) thencurrentPage=Cint(request(page)elsecurrentPage=1end if set rs=server.C

22、reateObject(adodb.recordset)rs.open select goods_id,goods_name,goods_price,goods_unit,sort_name from & _ goods,goodssort where goodssort.sort_id=goods.sort_id order by & _ goods_id desc,conn,1,1if rs.eof thenResponse.Write 数据库中无数据！elsers.pagesize=MaxPerPagers.absolutepage=currentpage% 商品查看与修改 序号商品名称

23、单位单价分类操 作 ￥a href=admin_editgoods.asp?id=修改 a href=admin_delgoods.asp?id=删除 % If CurrentPage2 Then Response.Write 首页 上一页 Else Response.Write 首页 Response.Write 上一页 End IfIf TotalPages-currentpage1 Then Response.Write 下一页 尾页 Else Response.Write 下一页 Response.Write 尾页 End If Response.Write 页次： & _&Curre

24、ntPage&/&TotalPages&页 Response.Write 共有&totalPut&种商品 %其主要实现代码：123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384%if request.Cookies(admin)= thenresponse.Write alert(网络超时或者您还没有登录请登录);window.lo

25、cation.href=login.asp;end if%dim goodsidgoodsid=request.QueryString(id)set rs=server.CreateObject(adodb.recordset)rs.open select * from goods where goods_id=&goodsid,conn,1,1if rs.eof thenresponse.Write 没有此商品else% 商品修改 form name=myform method=post action=admin_saveedit?id= 选择商品的分类：option value= 商品名称

26、：input name=goods_name type=text id=goods_name value= size=30 单位：请选择单位option 只option 个option 张option 对option 件option 副option 套 单价：input name=goods_price type=text id=goods_price value= size=6元 图片：input name=goods_picture type=text id=goods_picture value= size=30 详细说明：保存商品修改页代码如下：12345678910111213141

27、5161718%检测管理员是否已登陆if request.Cookies(admin)= thenresponse.Write alert(网络超时或者您还没有登录请登录);window.location.href=admin_login.asp;end if保存商品信息dim goodsiddim sort_id,goods_name,goods_unit,goods_price,goods_picture,goods_detailgoodsid=request.QueryString(id)sort_id=request.form(sort_id)goods_name=request.fo

28、rm(goods_name)goods_unit=request.form(goods_unit)goods_price=request.form(goods_price)goods_picture=request.form(goods_picture)goods_detail=request.form(goods_detail)conn.execute(update goods set sort_id=&sort_id&, & _goods_name=&goods_name&,goods_unit= &goods_unit&, & _goods_price=&goods_price&,goo

29、ds_picture= &goods_picture&, & _goods_detail=&goods_detail& where goods_id=&goodsidresponse.Write alert(修改成功); & _window.location.href=admin_goods.asp;%6.6订单处理功能设计其主要实现代码如下：1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768

30、6970717273747576777879808182838485868788899091929394959697%if request.Cookies(admin)= thenresponse.Write alert(网络超时或您还没有登陆！);window.location.href=login.asp;end if% 订单状态：未确认已下单已发货 已完成 全 部 %开场分页Const MaxPerPage=10dim totalPut,CurrentPage,TotalPages,stypestype=request.QueryString(type)if Not isempty(re

31、quest.QueryString (page) thencurrentPage=Cint(request.QueryString (page)elsecurrentPage=1end if select case stypecase unconfirmsql=select * from orderform where order_state=未确认 order by order_id desccase confirmsql=select * from orderform where order_state=已下单 order by order_id desccase carryingsql=

32、select * from orderform where order_state=已发货 order by order_id desccase donesql=select * from orderform where order_state=已完成 order by order_id desccase elsesql=select * from orderform order by order_id descend selectset rs=server.CreateObject(adodb.recordset)rs.open sql,conn,1,3if rs.eof thenRespo

33、nse.Write 数据库中无数据！elsers.pagesize=MaxPerPagers.absolutepage=currentpage% 订单管理 序号下单用户下单时间商品总数总金额状 态操 作 ￥元a href=admin_scanorderform.asp?id=查看详细 a href=admin_editorderform.asp?id=修改 a href=admin_delorderform.asp?id=删除 % If CurrentPage2 Then Response.Write 首页 上一页 Else Response.Write 首页 Response.Write 上

34、一页 End IfIf TotalPages-currentpage1 Then Response.Write 下一页 尾页 Else Response.Write 下一页 Response.Write 尾页 End If Response.Write 页次： & _&CurrentPage& & _/&TotalPages&页 Response.Write 共有&totalPut&份订单 %主要实现代码如下：123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051

35、52535455565758596061626364656667686970717273747576777879808182838485%if request.Cookies(admin)= thenresponse.Write alert(网络超时或者您还没有登录请登录);window.location.href=login.asp;end if%dim orderidorderid=request.QueryString(id)set rs=server.CreateObject(adodb.recordset)rs.open select * from orderform,users w

36、here order_id=&orderid& and & _ users.user_name=orderform.user_name,conn,1,1if rs.eof thenresponse.Write alert(错误的定单编号);history.back(-1);else% 订单根本信息可用操作：a href=admin_editorderform.asp?id=修改本订单a href=admin_delorderform.asp?id=删除本订单 订单编号： 下单时间： 下单用户： 订单状态： 金额： 商品总金额：￥元；快递费用：￥元；总金额：￥元 快递单号： 快递公司： 送货地址

37、： 联系 ： ： 定单商品信息 商品名称 单价 商品数量 金额 ￥元 ￥元 loop% 其主要代码如下：1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768%if request.Cookies(admin)= thenresponse.Write alert(网络超时或者您还没有登录请登录);window.location.href=login.asp;end if%dim orderidor

38、derid=request.QueryString(id)set rs=server.CreateObject(adodb.recordset)rs.open select * from orderform,users where order_id=&orderid& and & _ users.user_name=orderform.user_name,conn,1,1if rs.eof thenresponse.Write alert(错误的定单编号);history.back(-1);else%form id=form1 name=form1 method=post action=admin_saveoederform.asp?id= 修改订单根本信息 订单编号： 下单时间： 下单用户： 订单状态： option value=未确认 未确认 option value=已下单 已下单 option value=已发货 已发货 option value=已完成 已完成 金额： 商品总金额：￥元；快递费用：￥ input name=textfield3 type=text value=