实现办法:访问者登录时在登录页面上的创建的会话变量Session 用于从数据库中获取访问者的有关信息,表示它是否是管理员。如果值为1,就表明访问者是一个管理员,则用如下代码写入一个指向管理员页面的链接: <% If Session("Manager") = 1 then %> <A HREF="../html/management_menu.asp">管理员菜单</A> <% end if %> 通过按纽B1是否为空来判断要不要显示用户所借图书,利用一个记录集来获取访问者已经借出了的所有图书的列表。 if NOT isempty(Request.Form("B1")) then set RSBooks = conn.Execute ("select BookID, Title from LibBooks where " _ & "CheckedOutTo = " & Session("EmpID")) end if 再用循环语句将所借书以表格形式显示出来。 <table border=1 width="90%" > <% if NOT isempty(Request.Form("B1")) then Do Until RSBooks.EOF%> <TR > <TD WIDTH=40% height="20"><% Response.Write RSBooks("Title") %></td></tr> <% RSBooks.MoveNext loop end if %> </table> 循环将遍历Rsbooks记录集中的每个记录,直到该记录集结束: 该网站中的所有ASP页面都会在访问者访问之前对其进行登录检查。这样就可以避免访问者通过输入某个页面地址然后在没有登录的情况下直接进入该页面的情况发生。此外,每个管理页面都要确认访问者是管理员。
管理菜单页面
管理菜单页面有一个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 %>