版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、课程设计电子商务网站开发与建设 姓 名: 学 号: 专 业: 指导教师: 联系方式: 2013年06 月 14 日一、书店首页实现代码:<html><head><title>圆圆书店</title></head><body><center><b><font size=7 color=ff0000>欢迎来到圆圆书店!</font></b></center><hr><table border=0 width=100%><tr
2、align=center><td width="8%"><strong><font size="6">首页</font></strong></td><td width="14%"><a href="denglu.asp">用户登录</a></td><td width="13%"><a href="zhuce.asp">用户注册&
3、lt;/a></td><td width="12%"><a href="cart.asp">购物车</a></td><form method="post" action="sousuo.asp" name="sousuo"><td width="53%"><input size=30 value="请输入要搜索的图书的关键字" name= sousuo >
4、<input type="submit" value="查询" onclick=sousuo></td></form></tr></table><table border=0 width=100%> <tr align=left> <td width="8%"> <h3><font size="4"><a href="">自然类</a></font
5、></h3> <h4><font size="4"><a href="">历史类</a></font></h4> <h4><font size="4"><a href="">文学类</a></font></h4> <h4><font size="4"><a href="">艺术类&
6、lt;/a></font></h4> <h4><font size="4"><a href="">数学类</a></font></h4> <h4><font size="4"><a href="">政治类</a></font></h4> <h4><font size="4"><a href=&q
7、uot;">地理类</a></font></h4> <h4><font size="4"><a href="">天文类</a></font></h4> <font size="4"><a href="">漫画类</a></font></td> <td width="30%" align="cente
8、r" valign="middle"><h3><font size="7" face="times new roman, times, serif">top 1</font></h3> <h3><img src="图书图片/2151101b1-0.jpg" width="203" height="299"></h3></td> <td width="
9、31%" align="center"> <font size="7" face="times new roman, times, serif"><strong>top2</strong></font> <h3><img src="图书图片/78361284309509369.jpg" width="213" height="297"></h3></td> <
10、td width="31%"><p align="center"><font size="7" face="times new roman, times, serif"><strong>top3</strong></font></p> <p align="center"><img src="图书图片/01300000988992128722437661365.jpg" width=
11、"211" height="302"></p></td> </tr></table></body></html>实现效果:2、 数据库购物车数据库会员信息数据库图书信息数据库订单信息数据库数据库连接语句<%set conn=server.createobject("adodb.connection")strprovider="provider=microsoft.jet.oledb.4.0;data source=" & s
12、erver.mappath("liyuanyuan.mdb")conn.open strprovider%>三、登录页面代码:<html><head><title>用户登录</title></head><body><form method="post" action="dl.asp"><center><b><font size=3 color=ff0000>圆圆书店!亲,先登录吧!</font>&l
13、t;/b></center><p><table border=1 width=30% align=center><tr align=center><td>用户名:<input size=30></td></tr><tr align=center><td>登录密码:<input type="password" size=30 name="password"></td></tr></table
14、></p><center><input type="submit" value="登 录" size=80></center></form></body></html>实现效果:四、注册界面代码:<script type="text/vbscript" language="vbscript"> sub check dim theform set theform=document.myform if theform.
15、username.value="" then msgbox "用户名不能为空!" exit sub end ifif len(theform.username.value)<6 or len(theform.username.value)>20 then msgbox "用户名必须在6-20个字符和数字之间!" exit sub end ifif len(theform.password.value)<6 or len(theform.password.value)>20 then msgbox "密
16、码必须为6-20个字符和数字之间!" exit subend ifif theform.password.value<>theform.repassword.value then msgbox "再次输入密码必须与以上相同!" exit sub end if if theform.question.value="" then msgbox "问题不能为空!" exit sub end if if theform.answer.value="" then msgbox "答案不能为空!
17、" exit sub end if if theform.firstname.value="" then msgbox "姓名不能为空!" exit sub end if if theform.phonenumber.value="" then msgbox "联系方式不能为空!" exit sub end if dim pos,txt,atxt=theform.email.valuepos=""a=instr(txt,pos)if a=0 then msgbox"电子邮箱地
18、址不正确!" exit sub end iftheform.submit end sub</script><html><head><title>用户注册</title></head><body><center><b><font size=6 color=ff0000>欢迎光临圆圆书店!先注册吧,成为我们的会员!</font></b></center> <form action="pct.asp" meth
19、od="post" name="myform" id="myform"><table width="735" height="531" border="0"> <tr> <td colspan="3"><span><font color=ff0000> 标注<span>*</span>项为必填选项</span></td> </tr>
20、 <tr> <td colspan="2">请输入您的用户名。</td> <td width="420" rowspan="2"><pre><strong>用户名指南</strong> 必须为620个字符</pre></td> </tr> <tr> <td><pre>用户名:<span>*</span></pre></td> <
21、td> <input type="text" name="username"> </td> </tr> <tr> <td colspan="2">请输入您的用户登录密码。</td> <td rowspan="3"><pre><strong>密码指南</strong> 请输入620个字符或数字。</pre></td> </tr> <tr> <
22、;td><pre>密码:<span>*</span></pre></td> <td><span> <input type="password" name="password"> </span></td> </tr> <tr> <td><pre>请再次输入密码:<span>*</span> </pre></td> <td>&l
23、t;span> <input type="password" name="repassword"> </span></td> </tr> <tr> <td colspan="2"><span>请输入密保问题和密码。</span></td> <td rowspan="3"><pre><strong>密保问题指南</strong> 这些问题将在你忘记用户名或密
24、码的时候对你有所帮助。</pre></td> </tr> <tr> <td><pre>问题:<span>*</span></pre></td> <td><span> <input type="text" name="question"> ?</span></td> </tr> <tr> <td width="171">&l
25、t;pre>答案:<span>*</span></pre></td> <td width="192"><span> <input type="text" name="answer" > </span></td> </tr> <tr> <td colspan="3">请输入您的联系信息。</td> </tr> <tr> <td&
26、gt;姓名:<span>*</span></td> <td colspan="2" > <input type="text" name="firstname" > </td> </tr> <tr> <td>联系方式:<span>*</span></td> <td colspan="2"><input type="text" name=&
27、quot;phonenumber"></td> </tr> <tr> <td>电子邮箱:<span>*</span></td> <td colspan=2><input type="text" name="email" size="35" ></td> </tr> <tr> <td height="42"><div align="
28、center"> <input type="submit" name="submit1" value="提 交" onclick="check"> </div></td> <td height="42" colspan="2"> <div align="left"> <input type="reset" name="reset" va
29、lue="全部重写"> </div></td> </tr></table></form></body></html> 实现效果:输出注册结果代码:<% language="vbscript" %><html> <center> <% dim username dim password dim question dim answer dim name dim phonenumber dim mail username=requ
30、est.form("username") password=request.form("password") question=request.form("question") answer=request.form("answer") name=request.form("name") phonenumber=request.form("phonenumber") mail=request.form("mail") response.write"
31、;<table border=2>" response.write"<tr><td> username:</td>" response.write"<td>"&username&"</td></tr>" response.write"<tr><td> password:</td>" response.write"<td>"&pass
32、word&"</td></tr>" response.write"<tr><td> question:</td>" response.write"<td>"&question&"</td></tr>" response.write"<tr><td> answer:</td>" response.write"<td>&qu
33、ot;&answer&"</td></tr>" response.write"<tr><td> name:</td>" response.write"<td>"&name&"</td></tr>" response.write"<tr><td> phonenumber:</td>" response.write"<td
34、>"&phonenumber&"</td></tr>" response.write"<tr><td> e-mail:</td>" response.write"<td>"&mail&"</td></tr>" response.write"</table>" %> </center></html>虚拟目录建立步骤
35、(1)在计算机管理建立虚拟目录(2)创建虚拟目录名称、并浏览html存放的文件(3)通过虚拟目录浏览文件(4) 注册信息填写并提交用户登录(检查用户登录信息是否正确di.asp)<% set conn=server.createobject("adodb.connection") strprovider="driver=microsoft access driver (*.mdb);dbq=" &server.mappath("liyuanyuan.mdb") set rs=server.createobject(&qu
36、ot;adodb.recordset") username=request("username") password=request("password") if len(username)<6 then checkpass=false if len(password)<6 then checkpass=false if checkpass then query="select username from zhuce where usename='"&username&"'
37、; and password='"&password&"'" rs.open query,con,3,2 response.write username&",欢迎光临!" end if rs.close set rs=nothing %>五、购物车界面 往购物车里添加商品:当单击商品信息页面中的“加入购物车”按钮后,就会调用“cart.asp”页面,同时传递当前商品的编号。“cart.asp”页面接受商品编号以后,把该商品信息添加到购物车信息数据库表中,然后显示当前的购物车商品。添加时使用inser
38、t into语句,用法如下:sql="insert into cartitem(cartid,productid,"&_"productquantity) value("&cartid&","&productid&_","&productquantity&")" cart.asp完整代码如下:<%language=vbscript %><!#include file="conn.inc"><
39、%dim userid,productid,productquantity.productprice,cartiduserid=session("userid")if userid=""thenresponse.write"<center>对不起,你还没有登录,所以不能订购商品。<br>"&_"如果你已经注册,请按<a href=denglu.asp>这里</a>登录。"&_"如果没有,请按<a href=zhuce.asp>这里
40、</a>注册。"set conn=nothingresponse.endproductid=request.form("productid")productprice=request.form("productprice")productquantity=1set rscart=server.createobject("adodb.recordset")sql="select*form carts where userid="&useridrscart.open sql,conn,3,
41、2if recart.eof and recart.bof thenrscart.addnewrscart("userid")=useridrscart.updateend ifrscart.movelastcartid=rscart("cartid")rscart.closeset rscart=nothingset rsitem=server.createobject("adodb.recordset")if productid<>""thensql="delete from cartit
42、em where cartid="&cartid&_"and productid="&productidconn.execute sqlsql="insert into cartitem(cartid,productid,"&_"productquantity,productprice)value("&cartid&","&productid&_","&productquantity &",&qu
43、ot;&productprice&")"conn.execute sqlend ifsql="select cartitem.cartid,cartitem.productid,cartitem.productquantity,"&_"products.productprice,products.productname"&_"from cartitem,products"&_"where cartitem.productid=products.productid a
44、nd"&_"cartitem.cartid="&cartid&_"order by cartitem.productid"rsitem.open sql,conn,0,1%><html><head><title>欢迎光临购物车</title></head><body><table border=0 align=center width=50%><form method=post action="updatecart.
45、asp"><input type=hidden name=cartid value=<%=cartid%>><tr><td align=center><font color=green>购物车</font></td></tr><tr><td><%dim i,sum,totali=1sum=0total=0%><table border=1 cellspacing=0 align=center width=100%><tr>&
46、lt;th width=40>序号</th><th>商品</th><th>数量</th><th>单价</th><th>金额</th></tr><%if rsitem.eof then%><tr><%end if<tr><td colspan=6 align=center></td></tr><%end ifdo while not rsitem.eof sum=rsitem("
47、productprice')*rsitem("productquantity")if i mod 2=0 then%><tr><%else%><tr><%end if%><td align=center><%=i%></td><td align=left><%=rsitem("productname")%></td><td align=center><input type=text size=3 name
48、=pq<%=rsitem("productid")%>value=<%=rsitem("productquantity")%>></td><td align=right><%=formatcurrency(rsitem("productprice"),2,-1,-1,-1)%></td><td align=center><input type=checkbox name=pd<%=rsitem("productid"
49、;)%> value=1></td></tr><%rsitem.movenexti=i+1total=sun+totallooprsitem.closeset rsitem=nothingsey conn=nothing%><tr><td colspan=4 align=center>合计</td><td align=right><%=formatcurrency(total,2,-1,-1,-1)%></td></tr></table></td
50、></tr><tr><td><table border=0 align=center width=100%><tr><td align=center><form method=post action="order1.asp"><input type=hidden name=cartid value=<%=cartid%>.><input type=submit value=提交订单></form></td></tr>
51、;</table></td></tr></table></body></html>实现效果:点击图书致青春详情表下面的“加入购物车”按钮,出现如下页面(其代码在下面图书详情代码中再详细给出):数据库如下:六、分类检索-以文学类为例代码:<html><head><title>圆圆书店</title><style type="text/css"><!-.style1 font-family: geneva, arial, helvetica,
52、 sans-serif;font-size: xx-large;.style2 font-size: x-large.style3 font-family: georgia, "times new roman", times, serif;font-size: 24px;.style4 font-size: 24px-></style></head><body><p class="style1"><strong>圆圆书店</strong><span class="
53、;style2"> 文学类</span></p><table width="1006" height="474" border="0"> <tr> <td width="332" height="64"><div align="center"><a href="zhiqingchun.html"><span class="style3&quo
54、t;>致我们终将逝去的青春平版</span></a></div></td> <td width="348"><div align="center"><span class="style4">谁杀了我的牛?</span></div></td> <td width="312"><div align="center"><span class=&qu
55、ot;style4">妙语人生</span></div></td> </tr> <tr> <td height="404"><div align="center"><a href="zhiqingchun.html"><img src="file:/c|/documents%20and%20settings/administrator/桌面/图
56、书图片/zjiqingchun.jpg" width="281" height="372"></a></div></td> <td><div align="center"><img src="file:/c|/documents%20and%20settings/administrator/桌面/图
57、070;图片/01300000854803127192474761018.jpg" width="286" height="375"></div></td> <td><div align="center"><img src="file:/c|/documents%20and%20settings/administrator/桌面/图
58、070;图片/201206211728001620.jpg" width="280" height="374"></div></td> </tr></table><p class="style1"> </p></body></html>实现结果:点击致青春的书名或图片。其代码及实现页面如下代码:<html><head><title&
59、gt;圆圆书店</title><style type="text/css"><!-.style3 font-family: "times new roman", times, serif; font-weight: bold; font-size: x-large;.style4 font-family: "times new roman", times, serif; font-weight: bold; font-size: xx-large; .style5 font-family: "t
60、imes new roman", times, serif.style6 font-size: 18px-></style></head><body><p class="style4">圆圆书店</p><table width="1079" height="620" border="0"> <tr> <td width="361" rowspan="5"><i
61、mg src="图书图片/zjiqingchun.jpg" width="357" height="500"></td> <td width="708" height="71"><h1 class=parseasintitle><span id=btasintitle>致我们终将逝去的青春(附珍藏卡册) <span style="font-size: 16px; text-transform: capitalize"
62、>平装</span></span> </h1></td> </tr> <tr>待添加的隐藏文字内容2 <td height="45">作者:辛夷坞</td> </tr> <tr> <td height="38"><p>价格:<span id=yousavevalue>¥ </span>15 免运费</p> </td> </tr> <tr>
63、; <td height="45">库存数量:2件</td> </tr> <tr> <td height="409"><h2 align="left" class="style6">图书描述</h2> <div id=outer_postbodyps style="display: block; z-index: 1; overflow: hidden; height: 200px"> <div
64、 class="style5" id=postbodyps style="overflow: hidden"> <div> <p align="left">郑微,心怀对林静的爱意考上林静所在城市大学,发现林静已出国,后爱上同校陈孝正,一个板正又敏感的男孩。两个人走到一起,陈孝正却选择出国,放弃郑微。几年后,林静陈孝正出现,郑微会倾向于哪边呢?</p> <div align="left"> <ul> <li><b>出版社:<
65、;/b> 百花洲文艺出版社; 第1版 (2013年5月1日) <li><b>平装:</b> 298页 <li><b>语种:</b> 简体中文<li><b>商品尺寸: </b>23.6 x 16.8 x 2.4 c </ul> </div> <form name="form1" method="post" action=""> <div align="left"&
66、gt; <input name="submit" type="submit" class="style5" value="加入购物车" onclick="best.asp"> </div> </form> <p><br> </p> </div> </div> </div> <h2 align="left" class="style6">&
67、amp;nbsp;</h2> <div class=content></div></td> </tr></table><p class="style3"> </p><p class="style3"> </p></body></html> 其中“best.asp”源码如下:<%adopenkeyset=1adlockoptimistic=3set conn= server
68、.createobject("adodb.connection")conn.open “provider=microsoft.jet.oledb.4.0;data source=" & server.mappath ("liyuanyuan.mdb")set rs=server.createobject("adodb.recordset")rs.cursorlocation=aduseclientsql="select * from products"rs.open sql,conn,adopen
69、keyset,adlockoptimisticrs.addnewrs("productid").value="图书编号"rs("productname").value="图书名称"rs("productprice").value="图书价格"rs.updaters.closeset conn=nothing%> 实现页面:点击首页top1图书,出现以下界面:7、 搜索查询代码:<% set conn=server.createobject("adodb.
70、connection")strprovider="provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("liyuanyuan.mdb")conn.open strprovider set rs=server.createobject("adodb.recordset")search=request(sousuo)sql="select * from products where productname like'%"
71、;&search&"%'"rs.open sql,con,1,1 %> <html> <head> <title>搜索图书</title> </head> <body> <table width="100%" border="1"> <tr align="center" align="middle"> <td width="25%">图书名
72、称</td> <td width="25%">作者</td> <td width="25%">出版社</td> <td width="25%">价格</td> </tr> <% while not rs.eof%> <tr> <td width="25%"><%=rs("productname")%></td> <td width=&q
73、uot;25%"><%=rs("productauthor")%></td> <td width="25%"><%=rs("productfactory")%></td> <td width="25%"><%=rs("productprice")%></td> </tr> <% rs.movenet wend %> </table> </bod
74、y> </html>操作界面:搜索查询结果:8、 订单详情代码:<html><head><meta http-equiv="content-type" content="text/html; charset=gb2312"><title>欢迎光临本书店</title><style type="text/css"><!-.style1 font-family: "宋体"-></style></head><!-#include file="liyuanyuan.asp"-> <body><table width="7
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 年产240吨聚酰亚胺薄膜项目可行性研究报告写作模板-备案审批
- 800MWH钒电池组项目可行性研究报告模板-立项备案
- 餐饮企业2024厨师长职务聘任协议
- 2024年商用建筑地坪混凝土施工协议
- 2024环保型厂房建设简易协议范本
- 齐鲁工业大学《比较公共行政学》2023-2024学年第一学期期末试卷
- 房产经纪服务协议模板2024
- 防盗门公司2024厂长聘任协议模板
- 2024年土地抵押贷款协议模板
- 债务委托支付协议书
- 电信人工智能大学习抽测考试题库(含答案)
- 2024江苏省铁路集团限公司春季招聘24人高频考题难、易错点模拟试题(共500题)附带答案详解
- 2024术语工作适老化基本术语
- 2024软件开发合作框架合同范本
- 安徽省A10联盟2024-2025学年高三上学期开学考试生物试题(解析版)
- 2022-2023学年北京市海淀区中关村中学八年级(上)期中数学试卷【含解析】
- 2.1 认识自己 课件-2024-2025学年道德与法治七年级上册(统编版2024)
- 5.5《方程的意义》(课件)-2024-2025学年人教版数学五年级上册
- 2021新青岛版六三制三年级上册科学全册知识点总结期末复习背诵资料
- 部编版二年级语文上册看拼音写词语含答案
- 2024年浙江省应急管理行政执法竞赛题库-上(单选、多选题)
评论
0/150
提交评论