自考“計算機及應用”專業(yè)論文參考范文（27）

字號： 小 中 大

管理菜單頁面
    管理菜單頁面有一個HTML表單，根據(jù)選擇的按鈕的不同，可以進行5種不同的操作：圖書的歸還、圖書的編輯、圖書的刪除、圖書的添加和類別的添加。不管選擇了哪一個按鈕，該表單都提交人其自身進行處理。
    要進行圖書的歸還、圖書的編輯、圖書的刪除三種操作，須先進行搜索，找到該書后，由圖書Book.asp返回一個鏈接：
    <% If Session（“Manager”） = 1 then %>
    &BOOKID=<% response.write RSBooks（”BOOKID“） %>”>管理員菜單
    <% end if %>
    而管理者頁面通過下列語句
    <%=request.querystring（“title”）%>
    >
    這樣就將所找到的書的書號BookID、書名Title傳遞管理者頁面。再進行所須操作。共有3個不同的銨紐，可以進行3種操作。若單擊“修改”鈕：
    則重定向到編輯圖書頁面，同時把Bookid 傳遞給該頁面。
    Response.Redirect “。/edit_book.asp？BOOKID=”&request（“BOOKID1”）
    將其他的情況需要建立到數(shù)據(jù)庫的連接：
    set conn = server.createobject （“adodb.connection”）
    Conn.Open（“FILEDSN=c：\Program Files\Common Files\ODBC\Data Sources\ms access database.dsn”）
    if NOT isempty（Request.Form（“Delete”）） and request（“BOOKID1”）<>“” then
    conn.Execute “delete from LibBooks where BOOKID =”&request（“BOOKID1”）
    end if
    if （NOT isempty（Request.Form（“checkin”））） and request（“BOOKID1”）<>“” then
    conn.Execute “update LibBooks set checkedoutto= 0， status= 'Available' where BookID=”&Request（“BOOKID1”）
    end if
    頁面中的添加新的種類部分包含一個文本控件和一個選擇控件。其中選擇控件是用所有已經(jīng)存在的類別列表進行填充的，包括特殊類別 Top level ，該類別表明當前類別是處于類別層次結(jié)構(gòu)中的最頂層。代碼如下：
    先用一個記錄集來填充父類別選擇控件：
    set RSCategories = conn.Execute（“select CategoryName from LibCategories order by CategoryName”）
    再用下列循環(huán)語句：
    <%
    Do Until RSCategories.EOF
    %>
    
    <%
    RSCategories.MoveNext
    Loop
    %>
    遍歷RSCategories記錄集中的每個記錄，并作為一個選項添加到列表中，而記錄集中CategoryName 同時作為顯示值和傳遞值：
    本頁面還包含一個指向添加圖書頁面的鏈接。
    搜索結(jié)果頁面
    搜索頁面的代碼獲取與訪問者查找規(guī)則相匹配的圖書，然后將這些圖書顯示給訪問者。
    搜索頁面上的表單包含一個選擇控件和一個文本控件。選擇控件中的選項是用可搜索 的字段填充的：
    需要用一個記錄集來保存與訪問者的查找規(guī)則相匹配的記錄：
    set RSBooks = conn.Execute（“select BookID， Author， Title， Subject from LibBooks where ” _
    & Request.Form（“SearchField”） & “ Like '%” & Request.Form（“SearchCriteria”） & “%'”）
    注意：，符號%表示的是一個廣義搜索。這一點類似于ACCESS中的符號*.
    然后將所找到的書以表格形式顯示出來。代碼如下：
    <% Do Until RSBooks.EOF %>
    
    書名： ”><% Response.Write RSBooks（“Title”） %>
    著者： <% Response.Write RSBooks（“Author”） %>
    主題： <% Response.Write RSBooks（“Subject”） %>
    <% RSBooks.MoveNext
    Loop %>