【正文】 參考文獻 [1] 清漢計算機工作室編著《 Access 2020 中文版事例》 機械工業(yè)出版社 [2] 宋彥浩《 ASP建網(wǎng)技術(shù)》中國水利水電出版社 [3] 石志國《 ASP動態(tài)網(wǎng)站編程》清華大學出版社 [4] 劉文政等編《網(wǎng)頁設計三合一綜合教程》 (MX版 ) 北京：科學出版社，2020 [5] 樊健平《 ASP高級編程及其項目應用開發(fā)》 2020年 中國水利水電出版社 [6] 許衛(wèi)林《 VBScript+ASP動態(tài)網(wǎng)頁制作》 2020年 中國電力出版社 [7] 藏楊、秦冬等《 ASP軟件工程案例精解》 2020年 電子工業(yè)出版社 [8] 宣小平 《 ASP數(shù)據(jù)庫系統(tǒng)開發(fā)實例導航》 2020年 人民郵電出版社 [9] 趙增敏《 ASP動態(tài)網(wǎng)頁設計》 2020年 電子工業(yè)出版社 [10] Changjie TANG, Rynson . Qing LI, Huabei YIN, Tong LI and Danny Kilis, Personalized Courseware Construction Based on Web Data Mining, Proceedings of The First International Conference On Web Information System Engineering, 1921 June 2020, Hong Kong, (Workshops) 基于Web數(shù)據(jù)采掘的個性化課件構(gòu)造。感謝他們在學習和生活中對我的幫助，也忘 不了和他們在一起的快樂時光。同時，真誠的感謝大學階段所有的任課老師。在我做畢業(yè)設計這短短的一個學期的時間里，李老師嚴謹?shù)闹螌W態(tài)度、淵博的理論知識和 誨人不倦的師者風范給我留下了深深的印象，這些都將使我終生受益。我們這里研究設計的方案從最后測試結(jié)果來看，效果比較明顯，生成的頁面能夠較好地反映用戶的興趣偏向，當然，要作為實際應用還有一些具體細節(jié)問題需要 解決。 ▲ 操作環(huán)境 ： Windows NT ▲ Web服務器 ： ▲ 數(shù)據(jù)庫服務器 ： Microsoft Access 2020 ▲ 客戶端： IE、 Netscape 結(jié)束語 在學習了基于 WindowsNT+IIS的網(wǎng)絡服務器體系結(jié)構(gòu)和 ASP等 Web開發(fā)技術(shù)，以及對數(shù)據(jù)庫有了一定了解的基礎(chǔ)上，完成了該網(wǎng)上書店系統(tǒng)的設計與實現(xiàn)。 這 樣 ， 在 IE 地 址 欄 中 輸 入 運行環(huán)境 網(wǎng)站案例均使用 ASP動態(tài)網(wǎng)頁發(fā)布技術(shù)開發(fā)，并使用 Access數(shù)據(jù)庫管理系統(tǒng)存放、維護網(wǎng)站的數(shù)據(jù)資料。 ②本網(wǎng)上書店系統(tǒng)的所有文件復制到 root目錄下。具體步驟如下： ①首先確保安裝了 Web服務器 ,比如 Apache、 Tomcat或 IIS。取得 Id號 select * from admin where id=amp。id) call MsgBox(刪除成功！ ,GoUrl,) end If 39。刪除后臺用戶 If NOT IsEmpty (request(Del)) then 39。取得處理 id號 dim id id=request(Id) end if 39。管理員權(quán)限判斷 if session(rank)1 then call Msgbox(你的權(quán)限不夠！ ,Back,None) end if % % 39。管理員賬戶是不能注冊的，但能通過已登陸的有管理權(quán)限的管理員添加。useridamp。useridamp。把表單傳遞過來的數(shù)據(jù)賦值給 userid userid=(id) if userid= then userid=request(userid) 39。該頁面還帶有一個搜索用戶的功能，其運行頁面如圖 39 圖 39 客戶管理頁面 其主要代碼如下： !include file=inc/ !include file=inc/ !include file=inc/ % 39。對表單傳遞過來的數(shù)據(jù)進行處理 rs(name)=trim(request(name)) rs(format)=request(format) if request(pagenum) then rs(pagenum)=int(request(pagenum)) else rs(pagenum)=0 end if if request(printed) then rs(printed)=int(request(printed)) else rs(printed)=0 end if rs(author)=trim(request(author)) rs(mark)=trim(request(mark)) rs(introduce)=trim(request(introduce)) rs(price1)=trim(request(price1)) rs(price2)=trim(request(price2)) rs(vipprice)=trim(request(vipprice)) rs(pic)=trim(request(pic)) rs(categoryid)=int(request(categoryid)) rs(sortsid)=int(request(sortsid)) rs(score)=request(score) rs(type)=trim(request(type)) rs(solded)=0 rs(viewnum)=0 rs(adddate)=now() rs(rank)=0 rs(ranknum)=0 if request(detail) then rs(detail)=htmlencode2(request(detail)) end if if request(content) then rs(content)=htmlencode2(request(content)) end if if request(detail) then rs(desc)=htmlencode2(strvalue(request(detail) ,100)) end if 39。初始化 recordset對象 set rs=() select * from product,conn,1,3 39。trim(request (productdatemonth))amp。圖書日期處理 if request(productdateyear) then productdate=trim(request(productdateyear))amp。判斷管理員級別 if session(rank)2 then call Msgbox(你的權(quán)限不夠！ ,Back,None) end if % % 39。 3． 3． 1 圖書的管理 manage/，首先設計一個表單供管理員輸入圖書資料，單擊 [添加 ]按鈕后，先經(jīng)過有效性驗證，驗證有效后添加到數(shù)據(jù)庫中。 系統(tǒng)管理模塊完成的功能有圖書的添加和刪除、客戶及管理員的管理，訂單管理、圖書大類別管理、圖書小類別管理等。 manage/：管理員退出登錄程序。 manage/：客戶管理程序，包括查找、刪除客戶。39。amp。 and state=6,conn,1,1 if not and not then call MsgBox(對不起，此商品已存在于您的購物車中，不可以重復添加！ ,Close,None) 39。 and id=amp。usernameamp。添加圖書到購物車 case add select id,username from orders where username=39。在購物車里面刪除圖書 case del delete from orders where actionid=amp?？蛻羰欠襁M行了操作，并且判斷操作類型 action=(action) username=trim((cookieName)(username)) id=(id) 39。 and =6,conn,1,1 % 。(cookieName) (username)amp。關(guān)閉對象 end if select top 10 , from product inner join orders on = where =39。會員用戶 if((cookieName)(vip)) then iPrice=iCarRs(vipsum) 39。39。amp。判斷用戶級別 ， 根據(jù)用戶級別決定圖書價格 dim iCarRs,iPrice,pNum set iCarRs=() if (cookieName)(username)= then iPrice=0 pNum=0 else 39。 and state=6,conn,1,1 if not and not then call MsgBox(對不起 ， 此商品已存在于您的購物車中 ， 不可以重復添加 ！ ,None,None) else select id,username,state,paid from orders,conn,1,3 39。 and id=amp。trim (request. cookies (cookieName)(username))amp。查看是否已經(jīng)把該圖書放入購物車 select id,username from orders where username=39。判斷客戶是否已經(jīng)登錄 if iaction=add then if (cookieName)(username)= then call MsgBox(你沒有登陸 !,None,None) else 39。效果如圖 36 圖 36 購物車 icar代碼如下 ： !include file=manage/inc/ !include file=inc/ % 39。判斷是否是第一頁顯示 if currentPage=1 then else if (currentPage1)*MaxPerPagetotalPut then (currentPage1)*MaxPerPage dim bookmark bookmark= else currentPage=1 end if end if end if dim i i=0 % 3． 2． 3 購物車功能的實現(xiàn) 如果客戶滿意某本圖書，則單擊 “ 購物車 ” 就可以把該本圖書放進自己的購物車，該功能由 。分頁顯示 if currentpage1 then urrentpage=1 end if 39。判斷搜索結(jié)果 if 0 then call MsgBox(數(shù)據(jù)庫中無數(shù)據(jù) ,Back,None) end if if And then call MsgBox(對不起，找不到你所需的書籍！ ,Back,None) else 39。Order 39。OrderFieldamp。 end if sql=sqlamp。and productdate = amp。expiredateamp。largeprice end if if expiredate then expiredate=CDate(expiredate) sql=sqlamp。smallprice end if if largeprice then largeprice=CDbl(largeprice) sql=sqlamp。 end if if smallprice then smallprice=CDbl(smallprice) sql=sqlamp。codeamp。and categoryid like 39。%39。%amp。 end if if manufacturer then sql=sqlamp。authoramp。and author like 39。%39。%amp。判斷搜索條件，根據(jù)不條件設定不同的 SQL語句 if name then sql=sqlamp。定義變量 dim name dim author dim manufacturer dim enabledate dim expiredate dim smallprice dim largeprice dim code