第一篇:网络营销
商务网站建设课程设计 —悦靓网上书店
一、设计背景
由于Internet在最近几年迅速壮大,越来越多的人发现电子商务领域占有较大的优势,人们通过上网就可以在商店订购货物,使购物变得简单且方便的购物方式。而更多的商店也发现它们可以在网上销售商品,因为越来越多的消费者使用网络,使顾客的购物过程变得更加简单和便利。
此次课设将研究怎样用Asp+SQLServer创建在线商店。它将开发一个可被商店用来通过Internet销售产品的站点。本章的例子是创建一个“悦靓网上书店”的电子商务网站。
二、悦靓网上书店功能分析
悦靓网上书店包括如下主要功能: 1.陈列图书 2.查找图书 3.购物车 4.完成支付 5确认顾客信息 6及时发货
三、悦靓网上书店原理设计
建设网站需要采用的建站工具。这里采用微软公司的网络解决方案:Windows2000+IIS 5.0+ASP+SQL Server。
尽管用Microsoft Access数据库进行开发很不错,而对于拥挤的网站却不合适。在实际使用在线商店应用程序之前,应该考虑使用更加稳健的客户机/数据库引擎Microsoft SQL Server。
四、悦靓网上书店框架设计 1.悦靓网上书店的结构图 悦靓网上书店主页 陈列图书 查找图书 添加购物车
填写顾客和支付信息 确定支付
1.悦靓网上书店使用的相关文件(1)Default.asp 该文件的主要作用:主页,包含陈列特价图书和提供图书搜索引擎人口。 <%
sPageHead = “悦靓网上书店” sPageCaption = formatdatetime(now,vblongdate)session(“redirectto”)= “default.asp” session(“salecomplete”)= false %>
| 欢迎来到悦靓网上书店! |
今天的特价图书! |
sTemp = trim(”“&rsproducts(”itempicturfile“))if sTemp=”“ then sTemp=”Picture Not Available“ else sTemp=”” end if
response.write “
” response.write “” response.write “” & rsProducts(“itemname”)& “-” response.write “” response.write rsProducts(“itemdescription”)& “
” response.write “
sTemp = “SALE:” & formatcurrency(rsProducts(“itemsaleprice”))& _ “
” response.write “
” response.write ““ response.write vberlf response.write ”
(3)Prodsearch.asp 该文件的主要作用: 搜索含有关键字的图书信息 <%
sPageHead=“悦靓网上书店搜索结果”
sPageCaption=“搜索结果” %>
你搜索的产品包含字符串
“<% =request.form(txtSearch”)%>“ 在名称、产品编号或产品介绍中.
<% set dbMain=server.createobject(”ADODB.Connection“)dbMain.open session(dblogin”)set rsProducts=Server.CreateObject(“ADODB.Recordset”)sSearch=RemoveQuotes(request.form(“txtSearch”))sSQL=“SELECT * FORM products WHERE itemproductnumber LIKE '%”&_
sSearch &“%' OR itemname LIKE '%” &_
sSearch &“%' OR itemdescription LIKE '%” &_
sSearch &“%'” rsProducts.open sSQL,dbMain,adopenstatic,adlockpessimistic,adcmdtext if rsprducts.eof then
respose.write“No products matching that criteria were found.”
response.write vbcrlf else
response.write“table width=75%' border='1' align='center'>”
response.write vbcrlf
do while not rsproducts.eof
WriteProductRow
rsProducts.movenext loop
response.write“” & vbcrlf
end if %>