管理菜单页面

　　管理菜单页面有一个HTML表单，根据选择的按钮的不同，可以进行5种不同的操作：图书的归还、图书的编辑、图书的删除、图书的添加和类别的添加。不管选择了哪一个按钮，该表单都提交人其自身进行处理。

　　要进行图书的归还、图书的编辑、图书的删除三种操作，须先进行搜索，找到该书后，由图书Book.asp返回一个链接：

　　<% 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“）%>>

　　这样就将所找到的书的书号BookID、书名Title传递管理者页面。再进行所须操作。共有3个不同的铵纽，可以进行3种操作。若单击“修改”钮：

　　则重定向到编辑图书页面，同时把Bookid 传递给该页面。

　　Response.Redirect “。/edit_book.asp？BOOKID=”&request（“BOOKID1”）

　　将其他的情况需要建立到数据库的连接：

　　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

　　页面中的添加新的种类部分包含一个文本控件和一个选择控件。其中选择控件是用所有已经存在的类别列表进行填充的，包括特殊类别 Top level ，该类别表明当前类别是处于类别层次结构中的更顶层。代码如下：

　　先用一个记录集来填充父类别选择控件：

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

　　再用下列循环语句：

　　<%

　　Do Until RSCategories.EOF

　　%>

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

　　<%

　　RSCategories.MoveNext

　　Loop

　　%>

　　遍历RSCategories记录集中的每个记录，并作为一个选项添加到列表中，而记录集中CategoryName 同时作为显示值和传递值：

　　本页面还包含一个指向添加图书页面的链接。

　　搜索结果页面

　　搜索页面的代码获取与访问者查找规则相匹配的图书，然后将这些图书显示给访问者。

　　搜索页面上的表单包含一个选择控件和一个文本控件。选择控件中的选项是用可搜索 的字段填充的：

　　需要用一个记录集来保存与访问者的查找规则相匹配的记录：

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

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

　　注意：，符号%表示的是一个广义搜索。这一点类似于ACCESS中的符号*.

　　然后将所找到的书以表格形式显示出来。代码如下：

　　<% Do Until RSBooks.EOF %>

　　<TR VALIGN=“top” ALIGN=“left”>

　　<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 %>