您的位置：360文档中心› 电子商务课设资料报告材料

电子商务课设资料报告材料

合集下载
相关主题
  1. 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

华东交通大学理工学院课程设计报告书
所属课程名称电子商务设计与管理题目电子商务规划与管理分院电信分院
专业班级
学号
学生
指导教师建红
2015 年12月21日
目录
课程设计目的 (3)
课程设计容及要求 (4)
有关概念和知识点 (4)
开发 (5)
结构功能图 (6)
总体设计 (6)
详细设计及代码 (7)
模块设计 (8)
代码设计 (8)
数据库的设计 (26)
推广 (27)
设计心得体会 (28)
参考文献 (29)
课程设计目的
近年来，随着Internet的迅速崛起，互联网已日益成为收集提供信息的最佳渠道并进入传统的流通领域。

于是电子商务开始流行起来，一种全新的购物理念开始形成并逐步发展。

网上购物是一种具有交互功能的商业信息系统。

它向用户提供静态和动态两类信息资源。

所谓静态信息是指那些经常变动或更新的资源，如公司简介、管理规和公司制度等等；动态信息是指随时变化的信息，如商品报价，会议安排和培训信息等。

网上购物系统具有强大的交互功能，可使商家和用户方便地传递信息，完成电子贸易EDI交易。

这种全新的交易方式实现了公司间文档与资金的无纸化交换。

本文通过分析国外网上购物系统的发展和现状，提出了一种利用ASP技术开发网上购物系统的方案，以期达到功能强大，费用低廉，通用性强，适合我国国情发展的购物系统。

在网络蓬勃发展的时代，网上购物已日益成为大家消费的新选择，因此本文以此为契机，建设网上商店，进行一次“虚拟创业”。

本文详细介绍了如何在微软技术平台上用ASP+SQL SERVER建立网上购物系统。

全文包括引言、系统总体设计、会员管理、商品的分类与查询、购物篮、收银台、订单、后台管理、商品管理、订单管理等容。

并对关键的相关技术作了较详细的介绍。

课程设计容及要求
建立一个电子商务平台，并对这个平台进行规划设计、页面设计、容设计、B2C电子商务管理以及SEO推广等容。

通过这次课程设计使学生能对电子商务的规划与管理有一定的认识，熟练掌握域名的注册、空间的申请，利用实例把自己掌握的网页制作技术和美工知识对的模板进行制作美化，利用自己掌握的推广技术对进行SEO推广，初步掌握规划和管理过程中的过程管理和财务预算管理等知识。

有关概念和知识点
购物是以计算机网络为主要传播和销售渠道，以销售商品、获取利润为目的而建立起的虚拟商店，使用的是一种向消费者直接销售商品或提供服务的经营模式。

这类实质上是一个电子版的商品目录商，通过精心编排的文字和图片来描述它们所提供的商品和服务，利用网络交易系统进行销售活动。

它由两大部分组成：第一部分是消费者可以接触到的部分一购物的前台部分，即顾客在虚拟商店中挑选商品，通过虚拟购物车核对所购买商品的品种及数量，然后下网络定单、进行结帐、选择付款方式和送货方式等的一系列过程。

第二部分是购物的后台管理部分，一般包括的日常维护与更新、客户关系管理、定单管理、售货单和发货单处理、电子支付平台、库存货品管理和商品配送系统管理等部分.
开发
采用循环的系统开发模式。

第一步：开始进行系统结构设计、数据库设计。

第二步：前台系统、后台系统及页面的设计。

首先是流程的分析，再作模板设计，然后写脚本代码。

第三步：测试。

结构功能图
该的应具有的主要结构功能，如下
总体设计
本的主要结构功能模块图如下：
详细设计及代码
系统平台设计
Microsoft access,dreamweaver8.0，IIS V5.1，记事本等。

所用软件皆可网上免费下载，故平台预算可忽略。

模块设计
目标系统实现八个模块功能，即1，实现用户注册。

2，实现用户登陆。

3，实现注册用户修改资料。

4，实现用户搜寻物品。

5，用户订单查询。

6，用户购物。

7，用户留言。

8，使用说明。

各个模块都是通过编写网页代码，并于数据库连接来实现。

代码设计
1. 首页 default.htm 主要实现框架分页功能，代码如下：
<html>
<head>
<meta http-equiv="Content-Language" content="zh-tw">
<META http-equiv="Content-Type"
content="text/html; charset=gb2312">
<title>购物</title>
</head>
<frameset rows="70,*">
<frame src="Star0002.html" noresize scrolling="no"
frameborder="1" bordercolor="darkgray">
<frameset cols="140,*">
<frame src="Star0003.html" noresize
frameborder="1" bordercolor="darkgray">
<frame src="Star0004.asp" name="main"
bordercolor="darkgray">
</frameset>
</frameset>
</html>
包括标题栏Star0002.html，导航栏Star0003.html，主显示窗口Star0004.asp。

2．导航栏代码为：
<html>
<body bgcolor="#a0ffa0" leftmargin="0">
<table border="0" align="center">
<tr>
<td><a href="Star0101.asp" target="main">
<img src="image/N001log.gif"
alt="登入" border="0"
width="66" height="66"></a>
</td>
<td><a href="Star0101.asp" target="main">
<font size="2">登入</font></a>
</td>
</tr>
<tr>
<td><a href="Star0102.asp" target="main">
<img src="image/N002regi.gif"
alt="加入会员" border="0" height="66"></a> </td>
<td><a href="Star0102.asp" target="main">
<font size="2">加入<br>会员</font></a>
</td>
</tr>
<tr>
<td><a href="Star0010.asp?C=S&F=购物篮车"
target="main">
<img src="image/N003bask.gif"
alt="购物篮车" border="0" height="66"></a> </td>
<td><a href="Star0010.asp?C=S&F=购物篮车"
target="main">
<font size="2">购物<br>篮车</font></a>
</td>
</tr>
<tr>
<td><a href="Star0104.asp" target="main">
<img src="image/N004sear.gif"
alt="搜寻" border="0" eight="66"></a> </td>
<td><a href="Star0104.asp" target="main">
<font size="2">搜寻</font></a>
</td>
</tr>
<tr>
<td><a href="Star0010.asp?C=Q&F=订单查询"
target="main">
<img src="image/N005orde.gif"
alt="订单查询" border="0" height="66"></a> </td>
<td><a href="Star0010.asp?C=Q&F=订单查询"
target="main">
<font size="2">订单<br>查询</font></a>
</td> </tr>
<tr>
<td><a href="Star0010.asp?C=N&F=留言版" target="main">
<img src="image/N006memo.gif"
alt="留言版" border="0" height="66"></a>
</td>
<td><a href="Star0010.asp?C=N&F=留言版" target="main">
<font size="2">留言<br>版</font></a>
</td></tr>
<tr>
<td><a href="Star0107.asp" target="main">
<img src="image/N007help.gif"
alt="使用说明" border="0" height="66"></a> </td>
<td><a href="Star0107.asp" target="main">
<font size="2">使用<br>说明</font></a>
</td></tr>
</table>
</body>
</html>
3．用户注册页Star0102.asp 代码：
<!-- #include file="proc/StarProc.inc" -->
<%
Dim blnOK, lngShopNo, objRs, strRs
Dim strUserID, strPassword, strName, strTel, strAddress, strEmail
Dim strSex, intAge
blnOK = (Request.Cookies("strLogonSuccess") = "OK")
If blnOK Then
lngShopNo = Request.Cookies("user")("lngNo")
strRs = "SELECT userID, password, tel, address, email, " & _ "sex, age " & _
"FROM shopID INNER JOIN shopper " & _
"ON shopID.shopNo = shopper.shopNo " & _
"WHERE shopID.shopNo = " & lngShopNo
Set objRs = Server.CreateObject("ADODB.Recordset")
objRs.Open strRs, Application("strCn")
strUserID = objRs("userID")
strPassword = objRs("password")
strName = Request.Cookies("user")("strName")
strTel = objRs("tel")
strAddress = objRs("address")
strEmail = objRs("email")
strSex = objRs("sex")
intAge = objRs("age")
Set objRs = Nothing
End If
%>
<html>
<body>
<center>
<h2 style="color:dimgray">
<%
If blnOK Then
Response.Write("更新资料")
Else
Response.Write("加入会员")
End If
%>
</h2>
<hr>
<form method="POST" action="Star0202.asp" target="main"> <table border="0">
<tr>
<td align="right"><b>用户名：</b></td>
<td>
<%
If blnOK Then
%>
<input type="text" size="10" disabled
value="<% = strUserID %>">
<input type="hidden" name="UserID"
value="<% = strUserID %>">
<%
Else
%>
<input type="text" name="UserID"
size="10" maxlength="10">
<%
End If
%>
</td>
</tr>
<tr>
<td align="right"><b>密码：</b></td>
<td>
<input type="password" name="Pswd"
size="8" maxlength="8"
<%
If blnOK Then
Response.Write("value=" & _
Chr(34) & strPassword & _
Chr(34))
End If
%>
>
</td>
</tr>
<td align="right"><b>确认密码：</b></td>
<td>
<input type="password" name="RecPswd"
size="8" maxlength="8"
<%
If blnOK Then
Response.Write("value=" & _
Chr(34) & strPassword & _
Chr(34))
End If
%>
>
</td> </tr>
<tr>
<td align="right"><b>：</b></td>
<td>
<input type="text" size="8" name="name"
<%
If blnOK Then
Response.Write("value=" & _
Chr(34) & strName & _
Chr(34))
End If
%>
>
</td> </tr>
<tr>
<td align="right"><b>地址：</b></td>
<td>
<input type="text" size="40"
maxlength="50" name="address"
<%
If blnOK Then
Response.Write("value=" & _
Chr(34) & strAddress & _
Chr(34))
End If
>
</td></tr>
<tr>
<td align="right">E-mail：</td>
<td>
<input type="text" size="40" name="mail"
<%
If blnOK Then
Response.Write("value=" & _
Chr(34) & strEmail & _
Chr(34))
End If
%>
>
</td> </tr>
<tr>
<td align="right">：</td>
<td>
<input type="text" size="20" name="tel"
<%
If blnOK Then
Response.Write("value=" & _
Chr(34) & strTel & _
Chr(34))
End If
%>
>
</td></tr>
<tr>
<td align="right">性别：</td>
<td>
<input type="radio" name="sex"
value="女"
<%
If blnOK Then
If strSex = "女" Then
Response.Write("checked")
End If
End If
%>
>女
<input type="radio" name="sex"
value="男"
<%
If blnOK Then
If strSex = "男" Then
Response.Write("checked")
End If
End If
%>
>男
</td>
</tr>
<tr valign="top">
<td align="right">年龄：</td>
<td>
<select name="age">
<option
<%
If blnOK Then
If intAge = 19 Then
Response.Write("selected")
End If
End If
%>
>20 以下</option>
<option
<%
If blnOK Then
If intAge = 20 Then
Response.Write("selected")
End If
End If
%>
>20 ~ 29</option>
<option
<%
If blnOK Then
If intAge = 30 Then
Response.Write("selected")
End If
End If
%>
>30 ~ 39</option>
<option
<%
If blnOK Then
If intAge = 40 Then
Response.Write("selected")
End If
End If
%>
>40 ~ 49</option>
<option
<%
If blnOK Then
If intAge = 50 Then
Response.Write("selected")
End If
End If
%>
>50 ~ 59</option>
<option
<%
If blnOK Then
If intAge = 60 Then
Response.Write("selected")
End If
End If
%>
>60(含)以上</option>
</select>
</td> </tr>
<tr>
<td align="center">
<input type="submit" value=" 确定 ">
</td>
<td align="center">
<input type="reset" value="重新输入">
</td>
</tr>
<tr><td colspan="2" height="15"></td></tr>
<tr align="center">
<td colspan="2">
<b>(粗体字之栏位请务必输入)</b>
</td>
</tr>
<% = showMsg(Request("msg")) %>
</table>
</form>
</center>
<%
Call showLogo
%>
</body>
</html>
<%
Function showMsg(strArgMsg)
If strArgMsg <> Empty Then
showMsg = "<tr><td colspan=2 align=center>" & _ "<font color=red><b>" & strArgMsg & _
"</b></font></td></tr>"
Else
showMsg = "<tr><td colspan=2></td></tr>"
End If
End Function
%>
留言板代码：
<!-- #include file="proc/StarProc.inc" -->
<%
Dim objRs, strRs, blnHasEmail
strRs = "SELECT * " & _
"FROM shopper " & _
"WHERE shopNo = " & Request.Cookies("user")("lngNo") Set objRs = Server.CreateObject("ADODB.Recordset")
objRs.Open strRs, Application("strCn")
blnHasEmail = (objRs("email") <> Empty)
Set objRs = Nothing
%>
<html>
<body>
<center>
<%
If blnHasEmail Then
%>
<h2 style="color:darkorchid">留言版</h2>
<hr>
<form method="POST" action="Star0206.asp" target="main">
<table border="0">
<tr>
<td align="center" colspan="2">
<font size="5" color="#90a030">
<b>请输入您的意见</b>
</font>
</td> </tr>
<tr>
<td colspan="2"><textarea rows="8"
cols="80" name="note"></textarea></td> </tr>
<tr>
<td align="center">
<input type="submit" value=" 确定 ">
</td>
<td align="center">
<input type="reset" value="重新输入">
</td>
</tr>
</table>
</form>
<%
Else
%>
<h2 style="color:darkorchid">请留 E-Mail</h2>
<hr>
<font size="4" color="#90a030">
<b>很抱歉！由于您未留下 E-Mail ，<br>
本功能无法提供服务。

<br>
请在 "加入会员" 功能留下您的 E-Mail，<br>
以便我们能回复您的留言，！</b>
</font>
<%
End If
%>
</center>
<%
call showLogo
%>
</body>
</html>
订单显示代码(star0203.asp): <!-- #include file="proc/StarProc.inc" -->
<html>
<body bgcolor="#fffff4">
<font color="#9f2020"><% = getUser() %>您的订单如下：</font> <%
Dim strUserNo, objRs, strRs
strUserNo = CStr(Request.Cookies("user")("lngNo")) strRs = "SELECT descript, checkStatus " & _
"FROM (orders LEFT JOIN orderDetail " & _
"ON orders.orderNo = " & _
"orderDetail.orderNum) " & _
"LEFT JOIN product " & _
"ON orderDetail.prodNo = " & _
"product.prodNum " & _
"WHERE shopNo = " & strUserNo & _
" AND status = 'N'"
Set objRs = Server.CreateObject("ADODB.Recordset") objRs.Open strRs, Application("strCn")
%>
<center>
<form method="POST" action="Star0303.asp" target="main">
<table width="200" border="0">
<%
Do Until objRs.EOF
Response.Write("<tr><td>")
Response.Write("<input type=checkbox ")
Response.Write("name=orderlist value=")
Response.Write(objRs("descript"))
If objRs("checkStatus") = "1" Then
Response.Write(" checked>")
Else
Response.Write(">")
End If
Response.Write(objRs("descript"))
Response.Write("</td></tr>")
objRs.MoveNext
Loop
Set objRs = Nothing
%>
<tr><td height="16"></td></tr>
<tr>
<td align="center">
<input type=submit name="submitbtn"
value=" 整理订单 ">
</td></tr>
<tr>
<td align="center">
<input type=submit name="submitbtn"
value=" 决定购买 ">
</td></tr>
</table>
</form>
</center>
</body>
</html>
4．订单查询
<!-- #include file="proc/StarProc.inc" -->
<%
Dim objRs1, objRs2, objRs3
Dim strRs1, strRs2, strRs3, strRsOpen
Dim strListArray, strUserNo, strMsg
Dim intI, lngTotal
strListArray = Split(Request("orderlist"), ", ")
strUserNo = CStr(Request.Cookies("user")("lngNo"))
strRs1 = "SELECT * " & _
"FROM orders " & _
"WHERE shopNo = " & strUserNo & " AND status = 'N'" strRs2 = "SELECT * " & _
"FROM orderDetail " & _
"WHERE orderNum = '"
strRs3 = "SELECT * " & _
"FROM product " & _
"WHERE prodNum = '"
Set objRs1 = Server.CreateObject("ADODB.Recordset")
objRs1.Open strRs1, Application("strCn"), 2, 2
If objRs1.EOF Then
strMsg = "订单并无资料，欢迎继续购物！"
Set objRs1 = Nothing
Else
Set objRs2 = Server.CreateObject("ADODB.Recordset")
Set objRs3 = Server.CreateObject("ADODB.Recordset")
strRs2 = strRs2 & objRs1("orderNo") & "'"
objRs2.Open strRs2, Application("strCn"), 2, 2
lngTotal = 0
While Not objRs2.EOF
strRsOpen = strRs3 & objRs2("ProdNo") & "'"
objRs3.Open strRsOpen, Application("strCn"), 2, 2
For intI = 0 To UBound(strListArray)
If strListArray(intI) = objRs3("descript") Then
Exit For
End If
Next
If intI > UBound(strListArray) Then
objRs2("checkStatus") = "0"
objRs2("qty") = 0
Else
objRs2("checkStatus") = "1"
If objRs2("qty") = 0 Then objRs2("qty") = 1 End If
objRs2("unitPrice") = objRs3("price")
objRs2.Update
lngTotal = lngTotal + objRs2("qty") * objRs2("unitPrice")
objRs3.Close
objRs2.MoveNext
Wend
lngTotal = calcDis(lngTotal)
objRs1("totalPrice") = lngTotal
objRs1("lastDate") = Date()
objRs1.Update
Set objRs1 = Nothing
Set objRs2 = Nothing
Set objRs3 = Nothing
If Request("submitbtn") = " 整理订单 " Then
Response.Redirect("Star0103.html")
Else
Response.Redirect("Star0403.asp")
End If
End If
%>
<html>
<body>
<center>
<h2 style="color:#1080ee"><% = strMsg %></h2>
<hr>
</center>
<%
Call showLogo
%>
</body>
</html>
5．订单整理
<!-- #include file="proc/StarProc.inc" -->
<%
Dim objRs, strRs
Dim strUserNo, strOrderNum
Dim intI, lngSubTot, lngTotal, strSubTot
strUserNo = CStr(Request.Cookies("user")("lngNo"))
lngTotal = 0
strRs = "SELECT orderNo, prodNo, descript, qty, " & _ "price, unitPrice, totalPrice " & _
"FROM (orders LEFT JOIN orderDetail " & _
"ON orders.orderNo = orderDetail.orderNum) " & _ "LEFT JOIN product " & _
"ON orderDetail.prodNo = product.prodNum " & _ "WHERE shopNo = " & strUserNo & " " & _
"AND status = 'N' " & _
"ORDER BY prodNo"
Set objRs = Server.CreateObject("ADODB.Recordset")
objRs.Open strRs, Application("strCn"), 2, 2
strOrderNum = objRs("orderNo")
%>
<html>
<body>
<h2 align="center" style="color:#ee1090">确认订单</h2>
<hr>
<form method="post"
action="Star0413.asp?ONo=<% = strOrderNum %>"> <table align="center">
<tr>
<th width="160">产品名称</th>
<th width="100" align="right">单价</th>
<th width="60" align="right">数量</th>
<th width="100" align="right">小计</th>
<th width="60"></th>
</tr>
<%
intI = 0
Do Until objRs.EOF
objRs("unitPrice") = objRs("price")
objRs.Update
%>
<tr>
<td><% = objRs("descript") %></td>
<td align="right"><%
= FormatNumber(objRs("unitPrice"), 0)
%></td>
<td align="right">
<input type="text" name="cqty"
value="<% = objRs("qty") %>"
size="3"></td>
<td align="right"><%
lngSubTot = objRs("qty") * _
objRs("unitPrice")
lngTotal = lngTotal + lngSubTot
strSubTot = FormatNumber(lngSubTot, 0)
Response.Write(strSubTot)
%></td>
<td align="right"><input type="submit"
name="update<% =CStr(intI) %>"
value="更新"></td>
</tr>
<%
intI = intI + 1
objRs.MoveNext
Loop
%>
<tr><td height="10" colspan="5"></td></tr>
<tr>
<td colspan="3" align="right">本单金额合计：</td>
<td align="right">
<%
lngTotal = calcDis(lngTotal)
objRs.MoveFirst
objRs("totalPrice") = lngTotal
objRs.Update
Response.Write(FormatNumber(lngTotal, 0))
Set objRs = Nothing
%>
</td>
<td></td>
</tr>
<tr><td height="15" colspan="5"></td></tr>
<tr align="center">
<td colspan="5">
<input type="submit" name="confirm"
value=" 确定 ">
</td>
</tr>
</table>
</form>
<%
Call showLogo
%>
</body>
</html>
数据库的设计
数据库各种字符设置，如下表
推广
第一、容为王。

大量企业供求信息的录入对于一个新建立的B2B是必须的，毕竟要让新的企业业主了解的基本发展情况，而给新入驻企业主的第一印象就是大量供求数据的填充，大量供求数据的填充决定了企业主以后对的粘性。

第二、提供附加的服务。

提供额外的附加服务针对那些收费的会员，自然服务也是分为有两种：一种是免费服务另一种是付费服务。

比如为收费会员免费提供信息置顶或者信息推荐在热度较大的区域或者版块;有意向拓展围的收费会员那么我们就可以提供建设以及推广的服务，这样的流量作用也可以充分的最大化。

第三、留一片自留地给用户。

要想最大化的吸引企业主的粘性并且想要长期发展下去的B2B，那么一个能够自定义其企业信息的功能是一个企业所必须拥有的，比如给注册的企业开通子站点功能，也必须要有多样化的模板，因为在不同行业采用不同颜色的模板进行调配这样不仅让用户有好的选择。

设计心得体会
在这次的课程设计之中，我有机会将平时在书本上学到的知识系统化和实践化，对电子商务有了更进一步的了解，对其相关流程也更加熟悉。

同时对的制作，也有了又一次的熟悉，并且总结了制作网页的各种方法。

在此次课程设计的过程中，我领悟到：做任何事情都不能眼高手低，要多多动手，否则就是一个看似很简单的事情也会磕磕绊绊。

这次课程设计过程中，得到了老师的细心指导，给我们提供了舒适的学习环境，在此表示衷心的感！
参考文献
［1］谭浩强．动态网页制作ASP［Ｍ］．：电子工业，2001
［2］阮文江．Web构造技术．：中国人民大学，2002
［3］袁永林，宁义，汪海波等．SQL SERVER 2005数据库管理与开发从入门到精通．：清华大学出版。

相关文档
最新文档