【導(dǎo)讀】目前，網(wǎng)上書店在國際互聯(lián)網(wǎng)上可以實(shí)現(xiàn)的商務(wù)已經(jīng)多樣化。本的信息展示、信息發(fā)布功能到在線交易、在線客戶服務(wù)、在線網(wǎng)站管理功能等，可以說，傳統(tǒng)書店所具備的功能幾乎都可以在互聯(lián)網(wǎng)上進(jìn)行電子化的高效動(dòng)作。生不可忽視的影響。電子商務(wù)在中國異軍突起，并日益滲透到人們的日常生活中。社會(huì)經(jīng)營成本、提高社會(huì)生產(chǎn)效率、優(yōu)化社會(huì)資源配置，從而實(shí)現(xiàn)社會(huì)財(cái)富的最大化利用。本文主要介紹運(yùn)用ASP技術(shù)和網(wǎng)絡(luò)數(shù)據(jù)庫原理，基于B/S模式開發(fā)了一個(gè)網(wǎng)絡(luò)購物系統(tǒng)。臺(tái)的用戶管理，商品管理，分類管理。

　　

【正文】 用戶要使用使用本系統(tǒng)，注冊是不能避免的。用戶可在系統(tǒng)首頁上點(diǎn)“注冊”（如圖）進(jìn)入用戶注冊界面進(jìn)行注冊。 基于 ASP 的網(wǎng)絡(luò)書店購物系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 23 圖 用戶注冊界面 主要代碼如下： % if NOT isempty(request(RegSubmit)) then set rs=() select username,user from [user] where username=39。amp。trim(request(username))amp。39。 or user=39。amp。trim(request(user))amp。39。,conn,1,1 if not and not then call MsgBox(您輸入的用戶名或 Email 地址已存在，請返回重新輸入！,Back,None) end if select * from [user],conn,1,3 rs(username)=trim(request(username)) rs(password)=md5(trim(request(password))) 基于 ASP 的網(wǎng)絡(luò)書店購物系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 24 rs(user)=trim(request(user)) rs(quesion)=trim(request(quesion)) rs(answer)=md5(trim(request(answer))) rs(realname)=trim(request(realname)) 39。身份證 rs(identify)=trim(request(identify)) rs(mobile)=trim(request(mobile)) rs(userqq)=trim(request(userqq)) rs(adddate)=now() rs(lastvst)=now() rs(loginnum)=0 rs(postcode)=0 rs(score)=0 rs(paymethord)=0 rs(deliverymethord)=0 set rs=nothing (cookieName)(username)=trim(request(username)) (cookieName).expires=date+1 session(regtimes)=1 =1 call MsgBox(注冊成功！請到用戶管理中心填詳細(xì)資料！ ,GoUrl,) end if % 用戶注冊須填寫注冊欄中的每一項(xiàng)，服務(wù)條款由用戶填寫，用戶提交注冊信息后，漏填、錯(cuò)填系統(tǒng)都會(huì)給于相關(guān)提示。注冊成功后，系統(tǒng)返回“注冊成功，登陸”。 登陸模塊功能設(shè)計(jì) 本系統(tǒng)登陸功能包括用戶登陸、管理員登陸兩個(gè)模塊。下面 分別介紹： （ 1）用戶登陸模塊：在右上角點(diǎn)“登陸”進(jìn)入用戶登陸界面。界面如圖 所示： 基于 ASP 的網(wǎng)絡(luò)書店購物系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 25 用戶輸入用戶名、密碼、驗(yàn)證碼點(diǎn)擊登陸后，系統(tǒng)啟動(dòng)數(shù)據(jù)庫查詢，若所填信息存在并正確則登陸成功，否則返回相應(yīng)提示信息。 圖 用戶登錄界面 主要代碼： % if NOT isempty(request(LoginSubmit)) then dim username,password username=replace(trim(request(username)),39。,) password=md5(replace(trim(request(password)),39。,)) 39。if username= or password= then 39。call MsgBox(對不起，登錄失敗，請檢查您的登錄名和密碼 ,None,None) 39。end if set rs=() select * from [user] where username=39。amp。usernameamp。39。 and password=39。amp。passwordamp。39。 ,conn,1,3 if not( and ) then if password=rs(password) then (cookieName)(username)=trim(request(username)) (cookieName)(vip)=rs(vip) 基于 ASP 的網(wǎng)絡(luò)書店購物系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 26 rs(lastvst)=now() rs(loginnum)=rs(loginnum)+1 set rs=nothing else call MsgBox(對不起，您的用戶名或密碼有誤！ ,Back,None) end if else call MsgBox(對不起，您的用戶名或密碼有誤！ ,Back,None) end if end if % （ 2）管理員登陸模塊：管理員登陸須在系統(tǒng)首頁地址欄后加 /manage/ 登陸 .界面如圖 所示： 圖 管理員登錄框 主要代碼： % if NOT isempty(request(LoginSubmit)) then dim admin,password admin=replace(trim(request(Name)),39。,) 基于 ASP 的網(wǎng)絡(luò)書店購物系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 27 password=md5(replace(trim(request(Pws)),39。,)) set rs=() select * from [admin] where admin=39。amp。adminamp。39。 and password=39。amp。passwordamp。39。 ,conn,1,1 if not( and ) then if password=rs(password) then session(admin)=trim(rs(admin)) ession(rank)=int(rs(rank)) =sessionLife set rs=nothing else call MsgBox(登錄失敗！ ,Back,None) end if else call MsgBox(非法登陸！ ,Back,None) end if end if % 管理員管理用戶模塊 管理員登陸管理員管理界面后便可根據(jù)需要進(jìn)行管理，管理員可對所有用戶及系統(tǒng)所有圖書。 (1) 管理員管理 /用戶管理 界面如圖 所示 : 基于 ASP 的網(wǎng)絡(luò)書店購物系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 28 圖 管理員管理 /前臺(tái)用戶管理 主要代碼： % if session(rank)1 then call Msgbox(你的權(quán)限不夠！ ,Back,None) end if % % if NOT isempty(request(DelQuserSubmit)) then dim userid userid=(id) if userid= then userid=request(userid) delete from [user] where userid in (amp。useridamp。) delete from orders where userid in (amp。useridamp。) end if % 基于 ASP 的網(wǎng)絡(luò)書店購物系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 29 （ 2）管理員管理 /商品管理 /添加新書 界面如圖 所示： 圖 管理員管理 /商品管理 /添加新書 主要代碼： function checkpro() { if(checkspace()) { ()。 alert(請輸入書名！ )。 return false。 } if(checkspace()) { ()。 alert(請輸入作者！ )。 return false。 } if(checkspace()) { ()。 基于 ASP 的網(wǎng)絡(luò)書店購物系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 30 alert(請輸入出版社！ )。 return false。 } if(checkspace()) { ()。 alert(請輸入 ISBN！ )。 return false。 } ?? （ 3）管理員管理 /用戶管理 /用戶管理 界面如圖 所示： 圖 管理員 管理 /用戶管理 /后臺(tái)用戶管理界面 主要代碼： % 39。如果提交表單就建立 Recoredset 對像 If NOT IsEmpty () then set rs=() 39。取得處理 id 號(hào) dim id 基于 ASP 的網(wǎng)絡(luò)書店購物系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 31 id=request(Id) end if 39。添加后臺(tái)用戶 If NOT IsEmpty (Request(AddHuser)) then select * from admin,conn,1,3 rs(admin)=trim(request(AddName)) rs(password)=md5(trim(request(AddPws))) rs(rank)=int(request(AddRank)) set rs=nothing call MsgBox(添加成功！ ,GoUrl,) end If 39。刪除后臺(tái)用戶 If NOT IsEmpty (request(Del)) then 39。取得 Id 號(hào) (delete from admin where id=amp。id) call MsgBox(刪除成功！ ,GoUrl,) end If 39。修改后臺(tái)用戶資料 if NOT IsEmpty (request(Modify)) then 39。取得 Id 號(hào) select * from admin where id=amp。id,conn,1,3 rs(admin)=trim(request(Name)) if trim(request(password)) then rs(password)=md5(trim(request(password))) end if rs(rank)=int(request(rank)) 基于 ASP 的網(wǎng)絡(luò)書店購物系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 32 set rs=nothing call MsgBox(修改成功！ ,GoUrl,) end if % 用戶登陸模塊 用戶登陸后，用戶便可進(jìn)行網(wǎng)上購 物 , (1) 用戶登陸 /購物車 /結(jié)賬 界面如圖 所示： 圖 用戶管理 /系統(tǒng)設(shè)置 /博客設(shè)置界面 主要代碼： % set rs=() select recepit,userid,sex,user,city,address,postcode,usertel,paymethord,deliverymethord,realname from [user] where username=39。amp。(cookieName)(username)amp。39。,conn,1,1 dim userid,id id=request(id) userid=rs(userid) % 基于 ASP 的網(wǎng)絡(luò)書店購物系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 33 (2) 用戶登陸 /我的訂單 界面如圖 所示 圖 用戶管理 /系統(tǒng)設(shè)置 /模板設(shè)置界面 主要代碼： %set rs=() dim state state=(state) if state=0 or state= then select case state case 0 select distinct(goods),realname,actiondate,recepit,deliverymethord,paymethord,state from orders where username=39。amp。(cookieName)(username)amp。39。 and state6 order by actiondate desc,conn,1,1 case select distinct(goods),realname,actiondate,recepit,deliverymethord,paymethord,state from orders where username=39。amp。(cookieName)(username)amp。39。 and state5 order by actiondate desc,conn,1,1 end select