第一篇:網絡營銷
商務網站建設課程設計 —悅靚網上書店
一、設計背景
由于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 %>