校園網(wǎng)站設(shè)計(jì)論文(已改無(wú)錯(cuò)字)
2022-12-14 14:38:58 本頁(yè)面
【正文】 1 then % A HREF=../html/管理員菜單 /A % end if % 通過(guò)按紐 B1 是否為空來(lái)判斷要不要顯示用戶所借圖書(shū)，利用一個(gè)記錄集來(lái)獲取訪問(wèn)者已經(jīng)借出了的所有圖書(shū)的列表。 if NOT isempty((B1)) then set RSBooks = (select BookID, Title from LibBooks where _ amp。 CheckedOutTo = amp。 Session(EmpID)) end if 再用循環(huán)語(yǔ)句將所借書(shū)以表格形式顯示出來(lái)。 table border=1 width=90% % if NOT isempty((B1)) then Do Until % TR TD WIDTH=40% height=20% RSBooks(Title) %/td/tr % loop end if % /table 循環(huán)將遍歷 Rsbooks 記錄集中的每個(gè)記錄，直到該記錄集結(jié)束： 該網(wǎng)站中的所有ＡＳＰ頁(yè)面都會(huì)在訪問(wèn)者訪問(wèn)之前對(duì)其進(jìn)行登錄檢查。這樣就可以避免訪問(wèn)者通過(guò)輸入某個(gè)頁(yè)面地址然后在沒(méi)有登錄的情況下直接進(jìn)入該頁(yè)面的情況發(fā)生。此外，每個(gè)管理頁(yè)面都要確認(rèn)訪問(wèn)者是管理員。 管理菜單頁(yè)面 管理菜單頁(yè)面有一個(gè) HTML 表單，根據(jù)選擇的按鈕的不同，可以進(jìn)行 5 種不同的操作：圖書(shū)的歸還、 圖書(shū)的編輯、圖書(shū)的刪除、圖書(shū)的添加和類別的添加。不管選擇了哪一個(gè)按鈕，該表單都提交人其自身進(jìn)行處理。 要進(jìn)行圖書(shū)的歸還、圖書(shū)的編輯、圖書(shū)的刪除三種操作，須先進(jìn)行搜索，找到該書(shū)后，由圖書(shū) 返回一個(gè)鏈接： % If Session(Manager) = 1 then % A HREF=../html/?title=% RSBooks(Title) %amp。BOOKID=% RSBooks(BOOKID) %管理員菜單/A % end if % 而管理者頁(yè)面通過(guò)下列語(yǔ)句 %=(title)% inputzztype=hidden name=BOOKID1value=%=(BOOKID)% 這樣就將所找到的書(shū)的書(shū)號(hào) BookID、書(shū)名 Title 傳遞管理者頁(yè)面。再進(jìn)行所須操作。共有 3個(gè)不同的銨紐，可以進(jìn)行 3 種操作。若單擊“修改”鈕： 則重定向到編輯圖書(shū)頁(yè)面，同時(shí) 把 Bookid 傳遞給該頁(yè)面。 ./?BOOKID=amp。request(BOOKID1) 將其他的情況需要建立到數(shù)據(jù)庫(kù)的連接： set conn = () (FILEDSN=c:\Program Files\Common Files\ODBC\Data Sources\ms access ) if NOT isempty((Delete)) and request(BOOKID1) then delete from LibBooks where BOOKID =amp。request(BOOKID1) end if if (NOT isempty((checkin))) and request(BOOKID1) then update LibBooks set checkedoutto= 0, status= 39。Available39。 where BookID=amp。Request(BOOKID1) end if 頁(yè)面中的添加新的種類部分包含一個(gè)文本控件和一個(gè)選擇控件。其中選擇控件是用所有已經(jīng)存在的類別列表進(jìn)行填充的，包括特殊類別 Top level ，該類別表明當(dāng)前類別是處于類別層次結(jié)構(gòu)中的最頂層。代碼如下： 先用一個(gè)記錄集來(lái)填充父類別選擇控件： set RSCategories = (select CategoryName from LibCategories order by CategoryName) 再用下列循環(huán)語(yǔ)句： % Do Until % OPTION VALUE=% RSCategories(CategoryName) %% RSCategories(CategoryName) %/OPTION % Loop % 遍歷 RSCategories 記錄集中的每個(gè) 記錄，并作為一個(gè)選項(xiàng)添加到列表中，而記錄集中CategoryName 同時(shí)作為顯示值和傳遞值： 本頁(yè)面還包含一個(gè)指向添加圖書(shū)頁(yè)面的鏈接。 搜索結(jié)果頁(yè)面 搜索頁(yè)面的代碼獲取與訪問(wèn)者查找規(guī)則相匹配的圖書(shū)，然后將這些圖書(shū)顯示給訪問(wèn)者。 搜索頁(yè)面上的表單包含一個(gè)選擇控件和一個(gè)文本控件。選擇控件中的選項(xiàng)是用可搜索 的字段填充的： 需要用一個(gè)記錄集來(lái)保存與訪問(wèn)者的查找規(guī)則相匹配的記錄： set RSBooks = (select Boo kID, Author, Title, Subject from LibBooks where _ amp。 (SearchField) amp。 Like 39。% amp。 (SearchCriteria) amp。 %39。) 注意：，符號(hào) %表示的是一個(gè)廣義搜索。這一點(diǎn)類似于 ACCESS 中的符號(hào) *。 然后將所找到的書(shū)以表格形式顯示出來(lái)。代碼如下： % Do Until % TR VALIGN=top ALIGN=left TD WIDTH=40% height=20B 書(shū)名 :/B A HREF=../html/?BookID=% RSBooks(BookID) %% RSBooks(Title) %/A/TD td width=20% height=20B著者 :/B % RSBooks(Author) %/td td width=30% height=20B主題 :/B % RSBooks(Subject) % /td % Loop % 圖書(shū)頁(yè)面 圖書(shū)頁(yè)面的代碼顯示圖書(shū)的有關(guān)信息，以及管理圖書(shū)的出借操作。 該頁(yè)面通過(guò) Querystring 傳遞 BookID if isempty((BookID)) then ./ end if 如果其中不存在，則訪問(wèn)者將被重定向到搜索頁(yè)面： 如果同時(shí)傳遞表單 中包含的變量 Action 不為空，則表明訪問(wèn)者正借閱該圖書(shū)： if Not isempty((Action)) then 在這種情況下，需要將圖書(shū)狀態(tài)改為 Checkout, 同時(shí)需要將 Checkedoutto 字段修改為該訪問(wèn)者： update LibBooks set Status = 39。Checked Out39。, _ amp。 CheckedOutTo = amp。 Session(EmpID) amp。 where BookID = _ amp。 (BookID) ./ end if 然后將該訪問(wèn)者重定到圖書(shū)館菜單頁(yè)面： 下一步，利用圖書(shū)的狀態(tài)來(lái)確定不同的鏈接 未借出時(shí)鏈接如下： if RSBooks(status) = Available then LinkText = A HREF=../html/?Action=CheckOutamp。BookID= _ amp。 (BookID) amp。 借這本書(shū) /A 如果圖書(shū)已經(jīng)借出，就創(chuàng)建一個(gè)不同的消息，并將鏈接設(shè)置為指向 Library menu 頁(yè)面： LinkText = A HREF=../html/圖書(shū)已出借，返回主菜單。 /A 最后根據(jù)是否是管理員，顯示管理員菜單鏈接。 % If Session(Manager) = 1 then %A HREF=../html/?title=% RSBooks(Title) %amp。BOOKID=% RSBooks
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1