实现办法：访问者登录时在登录页面上的创建的会话变量Session 用于从数据库中获取访问者的有关信息，表示它是否是管理员。如果值为1，就表明访问者是一个管理员，则用如下代码写入一个指向管理员页面的链接： <% If Session("Manager") = 1 then %> 管理员菜单 <% 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 再用循环语句将所借书以表格形式显示出来。
<% if NOT isempty(Request.Form("B1")) then Do Until RSBooks.EOF%>
<% Response.Write RSBooks("Title") %> <% RSBooks.MoveNext loop end if %>
管理菜单页面有一个HTML表单，根据选择的按钮的不同，可以进行5种不无忧论文 【http://www.uklunwen.com】同的操作：图书的归还、图书的编辑、图书的删除、图书的添加和类别的添加。不管选择了哪一个按钮，该表单都提交人其自身进行处理。 要进行图书的归还、图书的编辑、图书的删除三种操作，须先进行搜索，找到该书后，由图书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") 将其他的情况需要建立到数据库的连接： set conn = server.createobject ("adodb.connection") Conn.Open("FILEDSN=c:Program FilesCommon FilesODBCData Sourcesms 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 %>
论文题目：
校园网站设计 
