自考“計(jì)算機(jī)及應(yīng)用”專業(yè)論文參考范文（27） -自考串講筆記

　　管理菜單頁面

　　管理菜單頁面有一個(gè)HTML表單，根據(jù)選擇的按鈕的不同，可以進(jìn)行5種不同的操作：圖書的歸還、圖書的編輯、圖書的刪除、圖書的添加和類別的添加。不管選擇了哪一個(gè)按鈕，該表單都提交人其自身進(jìn)行處理。

　　要進(jìn)行圖書的歸還、圖書的編輯、圖書的刪除三種操作，須先進(jìn)行搜索，找到該書后，由圖書Book.asp返回一個(gè)鏈接：

　　<% If Session（“Manager”） = 1 then %>

　　<A HREF=“……/html/management_menu.asp？title=<% response.write RSBooks（”Title“） %>&BOOKID=<% response.write RSBooks（”BOOKID“） %>”>管理員菜單</A>

　　<% end if %>

　　而管理者頁面通過下列語句

　　<%=request.querystring（“title”）%>

　　<inputzztype=hidden name=“BOOKID1”value=“<%=request.querystring（”BOOKID“）%>>

　　這樣就將所找到的書的書號(hào)BookID、書名Title傳遞管理者頁面。再進(jìn)行所須操作。共有3個(gè)不同的銨紐，可以進(jìn)行3種操作。若單擊“修改”鈕：

　　則重定向到編輯圖書頁面，同時(shí)把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

　　頁面中的添加新的種類部分包含一個(gè)文本控件和一個(gè)選擇控件。其中選擇控件是用所有已經(jīng)存在的類別列表進(jìn)行填充的，包括特殊類別 Top level ，該類別表明當(dāng)前類別是處于類別層次結(jié)構(gòu)中的最頂層。代碼如下：

　　先用一個(gè)記錄集來填充父類別選擇控件：

　　set RSCategories = conn.Execute（“select CategoryName from LibCategories order by CategoryName”）

　　再用下列循環(huán)語句：

　　<%

　　Do Until RSCategories.EOF

　　%>

　　<OPTION VALUE=“<% response.write RSCategories（”CategoryName“） %>”><% response.write RSCategories（“CategoryName”） %></OPTION>

　　<%

　　RSCategories.MoveNext

　　Loop

　　%>

　　遍歷RSCategories記錄集中的每個(gè)記錄，并作為一個(gè)選項(xiàng)添加到列表中，而記錄集中CategoryName 同時(shí)作為顯示值和傳遞值：

　　本頁面還包含一個(gè)指向添加圖書頁面的鏈接。

　　搜索結(jié)果頁面

　　搜索頁面的代碼獲取與訪問者查找規(guī)則相匹配的圖書，然后將這些圖書顯示給訪問者。

　　搜索頁面上的表單包含一個(gè)選擇控件和一個(gè)文本控件。選擇控件中的選項(xiàng)是用可搜索 的字段填充的：

　　需要用一個(gè)記錄集來保存與訪問者的查找規(guī)則相匹配的記錄：

　　set RSBooks = conn.Execute（“select BookID， Author， Title， Subject from LibBooks where ” _

　　& Request.Form（“SearchField”） & “ Like '%” & Request.Form（“SearchCriteria”） & “%'”）

　　注意：，符號(hào)%表示的是一個(gè)廣義搜索。這一點(diǎn)類似于ACCESS中的符號(hào)*.

　　然后將所找到的書以表格形式顯示出來。代碼如下：

　　<% Do Until RSBooks.EOF %>

　　<TR VALIGN=“top” ALIGN=“l(fā)eft”>

　　<TD WIDTH=40% height=“20”><B>書名：</B> <A HREF=“……/html/book.asp？BookID=<% Response.Write RSBooks（”BookID“） %>”><% Response.Write RSBooks（“Title”） %></A></TD>

　　<td width=20% height=“20”><B>著者：</B> <% Response.Write RSBooks（“Author”） %></td>

　　<td width=30% height=“20”><B>主題：</B> <% Response.Write RSBooks（“Subject”） %> </td>

　　<% RSBooks.MoveNext

　　Loop %>