【正文】 price 貨幣 圖書價格 number 數(shù)字 圖書數(shù)量 （ 4） 用戶表 表 44 Borrowers 字段名稱 數(shù)據(jù)類型 說明 cardno 自動編號 主鍵 name 文 本 用戶名字 passwd 文本 用戶密碼 sex 文本 用戶性別 dept 文本 所屬院系 loannum 數(shù)字 已借書數(shù)量 lock 是 /否 是否鎖定 第 10 頁 共 20 頁 （ 5） 系統(tǒng)配置表 表 45 config 字段名稱 數(shù)據(jù)類型 說明 id 自動編號 主鍵 maxLoanNumber 數(shù)字 最大借閱數(shù)量 maxLoanKeepDays 數(shù)字 最長借閱時間 systemname 文本 系統(tǒng)名稱 copyright 文本 版權(quán)信息 （ 6） 圖書借出表 表 46 Loans 字段名稱 數(shù)據(jù)類 型 說明 id 自動編號 主鍵 cardno 數(shù)字 借書卡號 bookno 數(shù)字 書號 title 文本 圖書名字 date 日期 /時間 借書日期 （ 7） 系統(tǒng)日志表 表 47 log 字段名稱 數(shù)據(jù)類型 說明 id 自動編號 主鍵 userright 文本 用戶類型 username 文本 用戶名字 action 文本 事件 date 文本 時間 ip 文本 ip 地址 第 11 頁 共 20 頁 （ 8） 短信息表 表 48 message 字段名稱 數(shù)據(jù)類型 說明 id 自動編號 主鍵 fromuserid 數(shù)字 發(fā)信人的卡號 fromusername 文本 發(fā)信人的名字 touserid 數(shù)字 收信人的卡號 tousername 文本 收信人名字 createtime 日期 /時間 發(fā)送時間 isread 數(shù)字 是否已閱讀 isreply 數(shù)字 是否已回復(fù) content 文本 信息內(nèi)容 5 系統(tǒng)的實(shí)現(xiàn) 為了保證本系統(tǒng)運(yùn)行的效率和可靠性，服務(wù)器應(yīng)具有較高的軟硬件配置，客戶端的要求不是很高。 其運(yùn)行要 求如下： 軟件環(huán)境： 客戶端： Windows98/2021/XP， Inter Explorer(IE)等 。 數(shù)據(jù)庫：采用 Access2021，運(yùn)行于服務(wù)器端。 else MM_conn_STRING=DBQ=+(data/)+。DRIVER={Microsoft Access Driver (*.mdb)}。 （ 2） 用戶登錄 。 cardno= amp。, 39。) sql = sql amp。 amp。 39。 name=39。 Replace((cardno), 39。39。 39。 AND passwd=39。 md5((passwd), 16) amp。 End If Set rs=executeQuery(sql) If Not Or Not Then If Request(userright)=user Then If rs(lock)=true Then addLog user,rs(name)amp。rs(cardno)amp。 freshTo 用戶名已被管理員鎖定！請速與管理員聯(lián)系！, End If Session(userright)=user Session(cardno)=CINT(rs(cardno)) Session(username)=rs(name) addLog ,用戶登陸系統(tǒng) () Else Session(userright)=admin Session(userid)=rs(id) Session(username)=rs(name) addLog ,用戶登陸系統(tǒng) () End If 以上代碼判斷輸入的卡號和密碼是否正確，正確就跳轉(zhuǎn)到 頁面，錯誤則返回登錄。 判斷用戶是否是從登錄頁面進(jìn)入系統(tǒng)的 代碼如下： If Session(userright)userright AND Session(userright)admin Then showMsg(對不起，您還沒有登錄，或沒有足夠的權(quán)限，無法進(jìn)行此操作。 （ 2）發(fā)送短消息可以和用戶交流，提醒他們注意還書時間等 。 （ 4）查看藏館圖書對整個系統(tǒng)圖書的瀏覽并可以對圖書進(jìn)行修改、刪除 。 （ 6）圖書分類查看對系統(tǒng)所有圖書的種類瀏覽 。 （ 8）會員還書對用戶歸還的圖書進(jìn)行處理 。 （ 10）書庫圖書查詢可以對圖書進(jìn)行模糊和精 確查找 。 （ 12）系統(tǒng)事件可以查看系統(tǒng)日志并進(jìn)行刪除 。 （ 14）查看會員可以查看會員借書的情況，還可以鎖定、刪除會員以及給會員發(fā)短消息 。 （ 2）我的借書情況可以查看具體的借書信息 。 （ 4）發(fā)送短消息可以和其他用戶進(jìn)行交流 。 （ 6）查看藏館圖書對整 個系統(tǒng)圖書的瀏覽并可以對圖書進(jìn)行借閱 。 （ 8）圖書借出列表可以查看圖書借出情況 。 （ 10）給管理員留言可以給管理員發(fā)送短消息跟管理員交流 。, 39。) + = 0 = 2 = 1 () Recordset1_numRows = 0 If (number).Value0 then Dim rs,keepDays Set rs=executeQuery(SELECT * FROM Loans WHERE cardno = amp。 ORDER BY date DESC) if And then keepDays=0 else keepDays = maxLoanKeepDays DateDiff(d,rs(date).Value,now()) end if If keepDays0 Then addLog, 借書amp。失敗，因?yàn)橛袌D書逾期未還 Else Set rs=executeQuery(select loannum from Borrowers where cardno=amp。, 39。) + ) 第 16 頁 共 20 頁 executeUpdate(UPDATE Borrowers SET loannum=loannum+1 WHERE cardno=amp。Session(cardno)amp。(bookno).Valueamp。amp。39。amp。39。(title).Valueamp。(title).Valueamp。(title).Valueamp。 maxLoanNumber amp。(title).Valueamp。(title).Valueamp。use default If userright= Then userright = Session(userright) If username= Then If userright = admin Then username = Session(username) Else username = Session(username) amp。 Session(cardno) amp。 39。 Replace(userright, 39。39。 39。 ,39。 Replace(username, 39。39。 39。 ,39。 Replace(action, 39。39。 39。 ,39。 now()amp。 sql = sql amp。 amp。 39。 ) sql End Function 結(jié) 論 本文主要 在 分析了圖書管理系統(tǒng) 的基礎(chǔ)上，采用 ASP 與 ACCESS 數(shù)據(jù)庫相結(jié)合，基于 Windows 操作系統(tǒng)設(shè)計和實(shí)現(xiàn)了 一個計算機(jī)學(xué)院圖書管理系統(tǒng)。 而用戶方面主要實(shí)現(xiàn)了圖書的查詢、借閱。 雖然不能和大型的圖書管理系統(tǒng)相比，但通過這次設(shè)計使我對 ASP 又有了進(jìn)一步的認(rèn)識，提高了自己的動手能力。 第 18 頁 共 20 頁 參 考文獻(xiàn) [1]劉振巖 ,王歡 . [M].北京： 清華大學(xué)出版社 , 2021。 [3]鄧文淵 ,陳惠貞 .ASP與網(wǎng)絡(luò)數(shù)據(jù)庫技術(shù) [M].北京： 中國鐵道出版社 ,2021。 [5]王國榮 .ASP網(wǎng)頁制作教程 [M].北京： 人民郵電出版社 ,2021。 [7]郭瑞軍 ,李杰 .ASP數(shù)據(jù)庫開發(fā)實(shí)力精粹 [M].北京： 電子工業(yè)出版社 ,2