毕业设计论文.校园网站建设(3)

访问者输入E－mail地址和密码来登录，然后单击“登录”按钮。输入的数据提交后与数据库中的用户表进行匹配。

须创建一个记录来保存基于访问者登录的用户信息

set RSFindEmp = conn.Execute("select EmpID, Manager from LibEmps where " _

& "EmailAddress = '" & Request.Form("EmailAddress") & "' and " _

& "Password = '" & Request.Form("Password") & "'")

if RSFindEmp.EOF then

TheMessage = "密码或email地址不对."

else

Session("EmpID") = RSFindEmp("EmpID")

网站毕业设计论文

Session("Manager") = RSFindEmp("Manager")

Response.Redirect "../yk.htm"

end if

表单域EmailAddress和Password 用于Where了句中来获取一个记录。如果访问者输入了一个无效的用户名，则记录集中将不会返回匹配的记录。我们可以通过查看EOF标记来判断一个记录集是否为空。为空，则访问者将被拒绝进入该系统。不为空，则访问者的EmpID值和Manager值将从记录集中返回。写入Session 变量， 变量将在整个网站的所有网页中都是有效的。这些变量的存在与否及其取值将用于确定是否允许进入一个特定的网页，同时也用于访问者进行书目的归还和借阅操作。

图书馆菜单页面

图书馆菜单页面包含指向其他4个页面的链接：管理页面、搜索页面、图书列表页面和主页面。还有一个可显示用户所借书籍的按纽。如果访问者是图书馆管理员，则菜单界面如图所示。如果访问者不是图书馆管理员，则看到如图所示的界面。非管理员的访问者的界面上没有指向管理员菜单页面的链接。

实现办法：访问者登录时在登录页面上的创建的会话变量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记录集中的每个记录，直到该记录集结束：