<% 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>
<< 上一页 [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] ... 下一页 >>
ASP校园网站设计 第20页下载如图片无法显示或论文不完整，请联系qq752018766
