【正文】 IE 地 址 欄 中 輸 入 運行環(huán)境 網(wǎng)站案例均使用 ASP動態(tài)網(wǎng)頁發(fā)布技術(shù)開發(fā)，并使用 Access數(shù)據(jù)庫管理系統(tǒng)存放、維護網(wǎng)站的數(shù)據(jù)資料。我們這里研究設(shè)計的方案從最后測試結(jié)果來看，效果比較明顯，生成的頁面能夠較好地反映用戶的興趣偏向，當(dāng)然，要作為實際應(yīng)用還有一些具體細(xì)節(jié)問題需要 解決。同時，真誠的感謝大學(xué)階段所有的任課老師。 參考文獻(xiàn) [1] 清漢計算機工作室編著《 Access 2020 中文版事例》 機械工業(yè)出版社 [2] 宋彥浩《 ASP建網(wǎng)技術(shù)》中國水利水電出版社 [3] 石志國《 ASP動態(tài)網(wǎng)站編程》清華大學(xué)出版社 [4] 劉文政等編《網(wǎng)頁設(shè)計三合一綜合教程》 (MX版 ) 北京：科學(xué)出版社，2020 [5] 樊健平《 ASP高級編程及其項目應(yīng)用開發(fā)》 2020年 中國水利水電出版社 [6] 許衛(wèi)林《 VBScript+ASP動態(tài)網(wǎng)頁制作》 2020年 中國電力出版社 [7] 藏楊、秦冬等《 ASP軟件工程案例精解》 2020年 電子工業(yè)出版社 [8] 宣小平 《 ASP數(shù)據(jù)庫系統(tǒng)開發(fā)實例導(dǎo)航》 2020年 人民郵電出版社 [9] 趙增敏《 ASP動態(tài)網(wǎng)頁設(shè)計》 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)造。感謝他們在學(xué)習(xí)和生活中對我的幫助，也忘 不了和他們在一起的快樂時光。在我做畢業(yè)設(shè)計這短短的一個學(xué)期的時間里，李老師嚴(yán)謹(jǐn)?shù)闹螌W(xué)態(tài)度、淵博的理論知識和 誨人不倦的師者風(fēng)范給我留下了深深的印象，這些都將使我終生受益。 ▲ 操作環(huán)境 ： Windows NT ▲ Web服務(wù)器 ： ▲ 數(shù)據(jù)庫服務(wù)器 ： Microsoft Access 2020 ▲ 客戶端： IE、 Netscape 結(jié)束語 在學(xué)習(xí)了基于 WindowsNT+IIS的網(wǎng)絡(luò)服務(wù)器體系結(jié)構(gòu)和 ASP等 Web開發(fā)技術(shù)，以及對數(shù)據(jù)庫有了一定了解的基礎(chǔ)上，完成了該網(wǎng)上書店系統(tǒng)的設(shè)計與實現(xiàn)。 ②本網(wǎng)上書店系統(tǒng)的所有文件復(fù)制到 root目錄下。取得 Id號 select * from admin where id=amp。刪除后臺用戶 If NOT IsEmpty (request(Del)) then 39。管理員權(quán)限判斷 if session(rank)1 then call Msgbox(你的權(quán)限不夠！ ,Back,None) end if % % 39。useridamp。把表單傳遞過來的數(shù)據(jù)賦值給 userid userid=(id) if userid= then userid=request(userid) 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。trim(request (productdatemonth))amp。判斷管理員級別 if session(rank)2 then call Msgbox(你的權(quán)限不夠！ ,Back,None) end if % % 39。 系統(tǒng)管理模塊完成的功能有圖書的添加和刪除、客戶及管理員的管理，訂單管理、圖書大類別管理、圖書小類別管理等。 manage/：客戶管理程序，包括查找、刪除客戶。amp。 and id=amp。添加圖書到購物車 case add select id,username from orders where username=39。客戶是否進行了操作，并且判斷操作類型 action=(action) username=trim((cookieName)(username)) id=(id) 39。(cookieName) (username)amp。會員用戶 if((cookieName)(vip)) then iPrice=iCarRs(vipsum) 39。amp。 and state=6,conn,1,1 if not and not then call MsgBox(對不起 ， 此商品已存在于您的購物車中 ， 不可以重復(fù)添加 ！ ,None,None) else select id,username,state,paid from orders,conn,1,3 39。trim (request. cookies (cookieName)(username))amp。判斷客戶是否已經(jīng)登錄 if iaction=add then if (cookieName)(username)= then call MsgBox(你沒有登陸 !,None,None) else 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) 如果客戶滿意某本圖書，則單擊 “ 購物車 ” 就可以把該本圖書放進自己的購物車，該功能由 。判斷搜索結(jié)果 if 0 then call MsgBox(數(shù)據(jù)庫中無數(shù)據(jù) ,Back,None) end if if And then call MsgBox(對不起，找不到你所需的書籍！ ,Back,None) else 39。OrderFieldamp。and productdate = amp。largeprice end if if expiredate then expiredate=CDate(expiredate) sql=sqlamp。 end if if smallprice then smallprice=CDbl(smallprice) sql=sqlamp。and categoryid like 39。%amp。authoramp。%39。判斷搜索條件，根據(jù)不條件設(shè)定不同的 SQL語句 if name then sql=sqlamp。判斷用戶是否進行搜索 if = then call MsgBox(錯誤：沒有搜索 條件 !,GoUrl,) end if 39。圖書瀏覽次數(shù)加 1 rs(viewnum)=rs(viewnum)+1 % 3． 2． 2 圖書的搜索 ， 供客戶輸入搜索條件并進行有效性驗證 ，當(dāng)客戶輸入的搜索條件經(jīng)過有效性驗證后程序就會把數(shù)據(jù)提交到， 由 。定義變量 Dim prename,pany,intro,predate,graph2,description,remarks,price 39。 3． 2． 1 分類的顯示和詳細(xì)信息的顯示 分類列表的顯示 , ,顯示內(nèi)容為該圖書的圖片及一些基本的圖書信息 。 ：顯示推薦圖書。主要包括以下文件： ：顯示圖書分類列表。usernameamp。讀取 cookie username=(cookieName)(username) 39。 ,conn,1,1 Dim Rank Rank=普通會員 39。39。更新數(shù)據(jù)庫 end if 39。39。初始化 recordset對象 set rs=() 39。 % 3． 1． 2 客戶資料的查看、更新及密碼的修改 。判斷用戶密碼是否正確 ， 設(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( 對 不 起 ， 您 的 用 戶 名 或 密 碼 有 誤 ！,Back,None) end if else call MsgBox(對不起 ， 您的用戶名或密碼有誤 ！ ,Back,None) end if end if % ， 客戶退出系統(tǒng)后 ， 系統(tǒng)給出提示 ，并返回到首頁。passwordamp。usernameamp。,)) 39。關(guān)鍵代碼如下： !include file=manage/inc/ !include file=inc/ % 39。設(shè)置 cookie對象有效期 (cookieName).expires=date+1 39。取得當(dāng)前時間 rs(adddate)=now() rs(lastvst)=now() rs(loginnum)=0 rs(postcode)=0 rs(score)=0 rs(paymethord)=0 rs(deliverymethord)=0 39。真實姓名 rs(realname)=trim(request(realname)) 39。密碼 rs(password)=md5(trim(request(password))) 39。,conn,1,1 if not and not then call MsgBox(您輸入的用戶名或 Email地址已存在，請返回重新輸入！ ,Back,None) end if 39。 or user=39。查詢數(shù)據(jù)庫，驗證用戶注冊 Email是否存在 select username,user from [user] where username=39。判斷用戶是否已經(jīng)提交注冊請求 if NOT isempty(request