【正文】 ame,...... where userID=userID39。P39。create proc [dbo].[Proc_GetRole] AS SELECT * FROM [Role] 39。P39。create PROC [dbo].[Proc_GetBooks] AS SELECT * FROM Book 39。P39。CREATE PROC [dbo].[Proc_DeleteBook] bookID nvarchar(50) AS DELETE FROM Book WHERE bookID=bookID 39。P39。CREATE PROC [dbo].[Proc_GetBookInfoByID] bookID nvarchar(50) AS SELECT * FROM Book WHERE bookID=bookID 39。P39。create PROCEDURE [dbo].[Proc_AddBook] ( bookID nvarchar(50),?? ) AS INSERT INTO [Book] ( [bookID],?? ) VALUES (bookID,?? )39。P39。 CREATE PROCEDURE [dbo].[Proc_GetCurrentBorrow] userID VARCHAR(50) AS SELECT [dbo].[borrowRec].[readerID],?? FROM [dbo].[borrowRec], [dbo].[book] WHERE = AND borrowStatus=39。 AND readerID=userID 39。P39。CREATE PROC [dbo].[Proc_GetBorrowHistory] userID NVARCHAR(50) AS SELECT * FROM Book WHERE bookID IN( SELECT bookID FROM BorrowRec WHERE readerID=userID AND borrowStatus=39。)39。P39。CREATE proc [dbo].[Proc_UpdateBookByID] bookID nvarchar(50),?? AS update Book set bookName=bookName,..... where bookID=bookID39。P39。 ============================================= Author: Author,Name Create date: Create Date, Description: Description, ============================================= CREATE PROCEDURE [dbo].[Proc_SelectBookType] Add the parameters for the stored procedure here AS BEGIN SET NOCOUNT ON added to prevent extra result sets from interfering with SELECT statements. SET NOCOUNT ON。 借書功能的具體實現(xiàn) 借書是圖書管工作人員根據(jù)借閱者所借書籍的圖書編號（當(dāng)然這個編號于每一本圖書是唯一的）將該圖書登入借書表單，并對其借閱時間和借閱數(shù)量進(jìn)行控制的過 程。 //clickselect 為是否查詢過讀者信息，即是否點擊過讀者信息的“查 詢“按扭 //booknumber 統(tǒng)計已借書籍的數(shù)據(jù)量，初始化設(shè)為 0，如果查到已借書籍大于或等于 3 時，該變量設(shè)為 3。還書以后，也要即時的反潰當(dāng)前的借書狀況，以便讀者和工作人員知道“還書”是否操作成功。amp。 //再一次查找當(dāng)前還書者的所有借書情況 sqlstr3=select * from book_input where isloan=1 and loaner=39。 if 查詢記錄數(shù) 0 then for i=1 to 查詢記錄數(shù) //查找在還了當(dāng)前所要還的書以后是否還有過期未還的書 if 當(dāng)前 借閱日期 60 then count=count+1 end if next if count=0 then 將當(dāng)前的還書者的狀態(tài) reader_state 還原為 0 end if else //如果已經(jīng)沒有要還的書籍 將當(dāng)前的還書者的狀態(tài) reader_state 還原為 0 end if end if 六、 編碼實現(xiàn)程序 管理員及用戶登陸界面 (adminlogin. asp) 圖 管理員用戶登陸界面 管理員登陸界面主要功能是實現(xiàn)管理員的登陸，其主要代碼如下： ： if Session(username)=admin Then () End if % html head meta equiv=ContentType content=text/html。DATABASE=Guestbook。 圖書借閱界面 () 圖 圖書借閱界面 管理員用戶通過借閱者的學(xué)號以及所借書號，對用戶實現(xiàn)借書。 amp。 charset=gb2312 / title無標(biāo)題文檔 /title style type=text/css ! body { backgroundcolor: 0099FF。 color: FF0000。 } /style/head body p /p p align=center class=STYLE3查詢圖書 /p table width=65% border=0 align=center tr td width=52%div align=right class=STYLE2 form id=form3 name=form3 method=post action= label select name=select size=1 option請選擇類型 /option /select /label /form /div/td td width=48%table width=43% border=1 bordercolor=000000 bgcolor=FFFFFF tr td /td /tr /table/td /tr tr td /td td /td /tr tr tdform id=form1 name=form1 method=post action= label/label div align=left amp。 input type=submit name=Submit value=確認(rèn) / /div /form /td tddiv align=center form id=form2 name=form2 method=post action= label div align=justify input type=submit name=Submit2 value=重 寫 / /div /label /form /div/td /tr /table p /p /body /html 圖書刪改界面 () 圖 圖書刪改界面 按照書號刪除圖書： strsq=delete * from 圖書表 where 書號 =39。 里面加入了 VBScript 腳本，代碼如下： script language=VBScript function post(id) dim ok ok=msgbox(確認(rèn)刪除 amp。 id end if end function function bb(i) dim ok ok=msgbox(確認(rèn)退出返回首頁嗎 ?,1) if ok=1 then navigate end if end function /script 查詢用戶界面 () 圖 查詢用戶界面 七、 測試 測試對程序設(shè)計師而言，可以說是家常便 飯，無論是龐大如Microsoft Windows、 Microsoft Office、 Inter Explorer 等商用軟件或小型如我們所編寫的 ASP 程序，都可能產(chǎn)生錯誤，因此，任何軟件在推出之前，都必須經(jīng)過嚴(yán)密的調(diào)試與測試，才能盡量減少錯誤的產(chǎn)生。 測試數(shù)據(jù) 其他、圖書名 =計算機基礎(chǔ) 操作步驟 操作描述 數(shù)據(jù) 期望結(jié)果 實際結(jié)果 測試狀態(tài) 1 選擇圖書名，輸入錯 誤圖書名 圖書名 =2 提示輸入正確圖書名 沒有該圖書 正常 2 輸入其他 其他=wer 提示輸入正確圖書名 沒有該圖書 正常 3 選擇圖書名，輸入正 確圖書名 圖書名=計算機基礎(chǔ) 圖書預(yù)定成功 讀者圖書借閱信息添加成功 正常 。 ②運行錯誤：這類的錯誤雖然不會導(dǎo)致程序終止執(zhí)行，但會產(chǎn)生錯誤的執(zhí)行結(jié)果，又稱 Nonfatal Error。 嗎 ?,1) 39。 shuhao amp。 amp。 fontsize: xxlarge。 } .STYLE1 { fontfamily: 宋體 。39。 圖書查詢界面（ ） 圖 圖書查詢界面 借閱者用戶和管理員用戶均可選擇性地查詢圖書，類型包括：書號、書名、作者、出版社、單價、圖書類型。PWD=123456 Set connGuestbook=() strDSN Dim rsAdmins Dim strSqlSelectAdmins Set rsAdmins=(“”) strSqlSelectAdmins=”SELECT*FROM Admins WHERE username=’”+username+”’ And password=’”+password+”’” strSqlSelectAdmins,connGuestbook if Not then Session(“username”)=username (“”) End If % html head meta equiv=”ContentType” content=”text/html。DRIVER={SQL Native Client}。reader_noamp。39。當(dāng)查到該編號的圖書 ,而且確實是未還圖書 ,則將顯示還書者的讀者信息和所有他 (她 )的已借書目信息 .我們要實現(xiàn)的目標(biāo)是盡可能方便能的操作和盡可能直觀的反潰 !所以我們采用輸入圖書編號來還書的同時 ,查閱出借該書的讀者的所有借書記錄 ,只要點擊所列出的該讀者借書記錄中的某一條 ,就可以還這本書 .還有一點是還書需要處理的，那就是續(xù)借，如果讀者想要續(xù)借，應(yīng)該很方便的進(jìn)行，與還書一樣，只要點擊要續(xù)借的書按“續(xù)借”即可，但是要考慮如果該書已過期，則不能續(xù)借。這里可以放在讀者證“查詢”的單擊事件中： sub readerno_onclick //讀者證“查詢”的單擊事件 if readerno= then //如果讀者證號為空，提示要求輸入 顯示 請輸入讀者證號 ! 將光 標(biāo)定位于讀者證號的輸入框 end if clickselect =1