【正文】 end if 39。判斷管理員級(jí)別 if session(rank)2 then call Msgbox(你的權(quán)限不夠！ ,Back,None) end if % % 39。 manage/：客戶管理程序，包括查找、刪除客戶。 and id=amp。客戶是否進(jìn)行了操作，并且判斷操作類型 action=(action) username=trim((cookieName)(username)) id=(id) 39。會(huì)員用戶 if((cookieName)(vip)) then iPrice=iCarRs(vipsum) 39。 and state=6,conn,1,1 if not and not then call MsgBox(對(duì)不起 ， 此商品已存在于您的購(gòu)物車中 ， 不可以重復(fù)添加 ！ ,None,None) else select id,username,state,paid from orders,conn,1,3 39。判斷客戶是否已經(jīng)登錄 if iaction=add then if (cookieName)(username)= then call MsgBox(你沒(méi)有登陸 !,None,None) else 39。判斷搜索結(jié)果 if 0 then call MsgBox(數(shù)據(jù)庫(kù)中無(wú)數(shù)據(jù) ,Back,None) end if if And then call MsgBox(對(duì)不起，找不到你所需的書(shū)籍！ ,Back,None) else 39。and productdate = amp。 end if if smallprice then smallprice=CDbl(smallprice) sql=sqlamp。%amp。%39。判斷用戶是否進(jìn)行搜索 if = then call MsgBox(錯(cuò)誤：沒(méi)有搜索 條件 !,GoUrl,) end if 39。定義變量 Dim prename,pany,intro,predate,graph2,description,remarks,price 39。 ：顯示推薦圖書(shū)。usernameamp。 ,conn,1,1 Dim Rank Rank=普通會(huì)員 39。更新數(shù)據(jù)庫(kù) end if 39。初始化 recordset對(duì)象 set rs=() 39。判斷用戶密碼是否正確 ， 設(shè)置 cookie if password=rs(password) then (cookieName)(username)=trim(request(username)) (cookieName)(vip)=rs(vip) rs(lastvst)=now() rs(loginnum)=rs(loginnum)+1 set rs=nothing else call MsgBox( 對(duì) 不 起 ， 您 的 用 戶 名 或 密 碼 有 誤 ！,Back,None) end if else call MsgBox(對(duì)不起 ， 您的用戶名或密碼有誤 ！ ,Back,None) end if end if % ， 客戶退出系統(tǒng)后 ， 系統(tǒng)給出提示 ，并返回到首頁(yè)。usernameamp。關(guān)鍵代碼如下： !include file=manage/inc/ !include file=inc/ % 39。取得當(dāng)前時(shí)間 rs(adddate)=now() rs(lastvst)=now() rs(loginnum)=0 rs(postcode)=0 rs(score)=0 rs(paymethord)=0 rs(deliverymethord)=0 39。密碼 rs(password)=md5(trim(request(password))) 39。 or user=39。判斷用戶是否已經(jīng)提交注冊(cè)請(qǐng)求 if NOT isempty(request(RegSubmit)) then 39。 ：客戶注冊(cè)信息填寫(xiě)，處理頁(yè)面。初始化連接對(duì)象 Set conn = () connstr=Provider=。 圖 214 review表結(jié)構(gòu)圖 product表 ： name（ 書(shū)名 ） 、 author（ 作者 ） 、 productdate（ 出版日期 ） 、detail（ 詳細(xì)介紹 ） 、 price1（ 市場(chǎng)價(jià) ） 、 price2（ 會(huì)員價(jià) ） 、discount（ 折扣 ） 、 mark（ 出版社 ） 、 type（ ISBN） 、 pagenum（ 頁(yè)數(shù) ） 、 desc（ 簡(jiǎn)介 ） 等。這樣就避免了非法用戶 通過(guò)直接輸入文件名進(jìn)行訪問(wèn)的情況，提高了系統(tǒng)的安全性。 ▲ ASP動(dòng)態(tài)服務(wù)器網(wǎng)頁(yè)，建立網(wǎng)絡(luò)數(shù)據(jù)庫(kù)的鏈接，控制操作的流程。 IIS(Inter Information Server)是微軟推出的 Windows NT Option Pack的主要成員 ， 作為 Windows NT的擴(kuò)展 ， 自推出以來(lái)已經(jīng)有了很大發(fā)展 ， 其體系結(jié)構(gòu)是當(dāng)今市場(chǎng)上最受關(guān)注的Web服務(wù)器之一。 2 使用 CGI開(kāi)發(fā)的 Web應(yīng)用程序雖說(shuō)已能動(dòng)態(tài)地產(chǎn)生頁(yè)面，但它只能進(jìn)行單一的資料操作，無(wú)法滿足用戶控制和管理大型數(shù)據(jù)庫(kù)的需要。 2 無(wú)需編譯，容易編寫(xiě)，可在服務(wù)器端直接執(zhí)行。 ▲ Session對(duì)象： Session對(duì)象能夠記錄用戶每一次上線的個(gè)人信息，它相當(dāng)于每個(gè)上線用戶的私有變量集合。 1． 2． 1 ASP 的 6 大內(nèi)建對(duì)象 ASP提 供了 6個(gè) 功能強(qiáng)大 的內(nèi)部對(duì) 象，每個(gè) 對(duì)象具有 各自的屬 性（ Property）、方法（ Method），有的還擁有數(shù)據(jù)集合（ Collection）與事件（ Event），它們共同完成 Web中的一些重要工作。 圖書(shū)信息管理： 包含 完整的圖書(shū)信息，包括圖書(shū)的查看、添加、更新、刪除。同時(shí)，商家也可以通過(guò)互聯(lián)網(wǎng)中的商務(wù)數(shù)據(jù)庫(kù)，記錄下每次訪問(wèn)、銷售、購(gòu)買形式和購(gòu)物動(dòng)態(tài)；以及客戶對(duì)產(chǎn)品的意見(jiàn)，商家通 過(guò)這些統(tǒng)計(jì)數(shù)據(jù)來(lái)獲取客戶對(duì)產(chǎn)品的滿意度。實(shí)現(xiàn)標(biāo)準(zhǔn)購(gòu)物車功能（分為修改、繼續(xù)購(gòu)物、清空、結(jié)算四個(gè)狀態(tài)），可對(duì)購(gòu)物車在結(jié)算之前任意步驟進(jìn)行查詢和修改，購(gòu)物過(guò)程支持網(wǎng)上結(jié)算，購(gòu)買者可依據(jù)訂單號(hào)查詢訂單狀態(tài)（已收到訂單、已收到貨款、已發(fā)貨、已送達(dá)收貨人等狀態(tài)），后臺(tái)設(shè)置管理員維護(hù)界面，可在首頁(yè)設(shè)定新增商品或推薦商品，可設(shè)定會(huì)員購(gòu)買折扣，可對(duì)訂單狀態(tài)進(jìn)行跟蹤和管理（修改狀態(tài)、刪除訂單）可查詢當(dāng)日新增加訂單和所有訂單。電子商務(wù)是一個(gè)發(fā)展?jié)摿薮蟮氖袌?chǎng)，極具有發(fā)展前景。 是一種易于使用 ,配置簡(jiǎn)單的數(shù)據(jù)庫(kù)。網(wǎng)上書(shū)店 摘 要 隨著計(jì)算機(jī)技術(shù)的日益發(fā)展，現(xiàn)代社會(huì)已經(jīng)到了真正的信息時(shí)代，如何掌握并應(yīng)用信息就顯得非常重要了。 Microsoft Access是一種關(guān)系式數(shù)據(jù)庫(kù)，關(guān)系式數(shù)據(jù)庫(kù)由一系列表組成，表又由一系列行和列組成，每一行是一個(gè)記錄，每一列是一個(gè)字段，每個(gè)字段有一個(gè)字段名，字段名在一個(gè)表中不能重復(fù)。封閉式的銀行電子金融系統(tǒng)已變成開(kāi)放式的網(wǎng)絡(luò)電子銀行。 “ 網(wǎng)上書(shū)店 ” 模擬一般的書(shū)店的經(jīng)營(yíng)模式，利用頁(yè)面、腳本程序來(lái)實(shí)現(xiàn) “ 網(wǎng)上書(shū)店 ” 的書(shū)籍管理、訂單管理、客戶信息的管理工作。網(wǎng)上購(gòu)物由于有廣大的銷售群體，又有展示新產(chǎn)品的網(wǎng)絡(luò)平臺(tái)，所以通過(guò)電子商務(wù)可以迅速地對(duì)顧客的需求構(gòu)成導(dǎo)向。管理員可以創(chuàng)建和編輯圖書(shū)類目，在添加新圖書(shū)的時(shí)候需要選擇相應(yīng)的類目。使用 ASP還有個(gè)好處，就在于 ASP可利用ADO(Active Data Object)方便快捷地訪問(wèn)數(shù)據(jù)庫(kù) ,從而使得開(kāi)發(fā)基于 WWW的應(yīng)用系統(tǒng)成為可能，這也是本文選擇 ASP作為開(kāi)發(fā)工具最重要的原因之一。 ▲ Server對(duì)象 ： Server主要功能是執(zhí)行與 Web服務(wù)器直接相關(guān)的一些操作。 ASP開(kāi)發(fā) Web應(yīng)用程序的特點(diǎn)： 1 完全嵌入 HTML，與 HTML、 Script語(yǔ)言完美結(jié)合。 相比之下，使用 CGI開(kāi)發(fā) Web應(yīng)用程序具有 以下缺點(diǎn)： 1 對(duì)開(kāi)發(fā)人員的要求非常高。 1． 2． 3 ASP 與 IIS IIS簡(jiǎn)介 Web服務(wù)器是 Web應(yīng)用程序的心臟。 ▲ Fireworks MX制作網(wǎng)頁(yè)所用的動(dòng)畫(huà)。 ③權(quán)限判斷 為了防止非法用戶訪問(wèn)后臺(tái)系統(tǒng)，本系統(tǒng)在后臺(tái)管理的每個(gè)文件中都設(shè)置了用戶權(quán)限的判斷，如果不是管理員權(quán)限的用戶則無(wú)權(quán)訪問(wèn)，若是管理員還要判斷該管理員的權(quán)限是管理（最高權(quán)限）、添加還是查看。 圖 213 orders表結(jié)構(gòu)圖 review表 ： id（ 對(duì)應(yīng)產(chǎn)品編號(hào) ） 、 title（ 標(biāo)題 ） 、 reviewdtm（ 日期時(shí)間 ） 、reviewcontent（ 評(píng)論內(nèi)容 ） 、 audit（ 是否通過(guò)審批 ） 。數(shù)據(jù)庫(kù)的名稱 db=manage/db/ 39。 ：客戶注冊(cè)第一步頁(yè)面，顯示條款。效果如圖 32 圖 32 注冊(cè)頁(yè)面 其主要代碼如下： !include file=manage/inc/ !include file=inc/ % 39。39。用戶名 rs(username)=trim(request(username)) 39。 rs(userqq)=trim(request(userqq)) 39。提示注冊(cè)成功， 定向網(wǎng)頁(yè)到 call Box( 注 冊(cè) 成 功 ！ 請(qǐng) 到 用 戶 管 理 中 心 填 詳 細(xì) 資 料 ！,GoUrl,) end if % ，用戶填寫(xiě)用戶名和密碼后，單擊 [登錄 ]按鈕，則調(diào)用登錄程序進(jìn)行驗(yàn)證，如果登錄成功，系統(tǒng)自動(dòng)進(jìn)入用戶信息資料頁(yè)面。amp。判斷用戶是否存在 if not( and ) then 39。判斷 cookie對(duì)象中用戶名是否為空 if (cookieName)(username)= then end if 39。對(duì)提示問(wèn)題回答做加密處理 rs(answer)=md5(trim(request(answer))) end if 39。timesshop39。 amp。 ：顯示暢銷圖書(shū)。得到圖書(shū) id id=(id) 39。 圖 34 圖書(shū)搜索 圖 35 圖書(shū)搜索結(jié)果 ： !include file=manage/inc/ !include file=inc/ % 39。nameamp。and mark like 39。%39。 end if if enabledate then enabledate=CDate(enabledate) sql=sqlamp。查詢數(shù)據(jù)庫(kù) sql,conn,1,1 39。判斷客戶動(dòng)作，是否單擊 “ 購(gòu)物車 ” dim iaction,iid iaction=(action) iid=(id) 39。iidamp。 and =6, conn,1,1 39。其代碼如下： !include file=manage/inc/ !include file=inc/ !include file=inc/ % dim id,username,action 39。 39。 and =6,conn,1,1 % 3． 3 系統(tǒng)管理模塊的實(shí)現(xiàn) manage/：管理員登錄程序。其運(yùn)行界面如圖 37 圖 38 圖書(shū)添加界面 其關(guān)鍵代碼如下： !include file=inc/ !include file=inc/ !include file=inc/ % 39。開(kāi) 始添加 rs(productdate)=productdate rs(discount)=discount 39。) delete from orders where userid in (amp。添加后臺(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ǒng)使用 IIS。 致 謝 首先，我要深深的感謝我的指導(dǎo)老師某某 老師。 [11] Personalized Dis