📄 borrow.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>欢迎光临本图书馆</title>
<Link href="Css.css" rel=stylesheet>
</head>
<!--#include file="Conn.asp"-->
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="60" align="center"><img src="Images/title.jpg" width="283" height="51">
</td>
</tr>
<% If Session("admin") <> "" Then %>
<tr>
<td height="25" ><table width="780" border="0" bgcolor="#EFEFEF" align="center" cellpadding="0" cellspacing="0" style="border-color:#000000;border-top-style: solid;border-top-width: 1">
<tr>
<td height="25" bgcolor="#EFEFEF"> <a href="Default.asp">首页 </a>|<a href="AdminBorrow.asp"> 借书管理 </a>|<a href="AdminPublish.asp"> 出版社管理 </a>|<a href="AdminBook.asp"> 图书管理 </a>|<a href="AdminUser.asp"> 用户管理 </a>|<a href="ModifyAdmin.asp"> 修改密码 </a>|<a href="Logout.asp"> 退出 </a>
</td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="780" border="0" align="center" cellpadding="0" cellspacing="0" style="border-color:#000000;border-bottom-style: solid;border-bottom-width: 1;border-top-style: solid;border-top-width: 1">
<tr bgcolor="#FFFFFF">
<td height="25" background="Images/bg.gif" bgcolor="#FFFFFF"> 当前位置：图书借阅记录</td>
</tr>
</table></td>
</tr>
<tr>
<td height="25" align="right">
</td>
</tr>
<tr>
<td align="center"><table width="780" border="0" cellspacing="0" cellpadding="0">
<tr align="center" bgcolor="#FFFFFF">
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#44608A">
<tr align="center" bgcolor="#FFFFFF">
<td width="9%" height="25" background="Images/bg.gif" ><b>图书编号</b></td>
<td width="20%" height="25" background="Images/bg.gif" ><b>图书名称</b></td>
<td width="10%" height="25" background="Images/bg.gif" ><b>图书作者</b></td>
<td width="13%" height="25" background="Images/bg.gif" ><b>出版社</b></td>
<td width="7%" height="25" background="Images/bg.gif" ><b>附光盘</b></td>
<td width="10%" height="25" background="Images/bg.gif" ><b>借阅人</b></td>
<td width="21%" height="25" background="Images/bg.gif" ><b>借书日期</b></td>
<td width="10%" height="25" background="Images/bg.gif" ><b>借多长时间</b></td>
</tr>
<%
Dim ISBN
ISBN=Request("ISBN")
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From borrowlist Where ISBN='"&ISBN&"'"
Rs.Open Sql,conn,3,3
If Rs.Eof or Rs.Bof Then
Response.Write "<tr><td height='25' align='center' bgcolor='#FFFFFF' colspan='8'>没有搜索到相关的记录！ </td></tr>"
Response.End
Else
Do While not Rs.Eof
%>
<%
Set Rs1 = Server.CreateObject("ADODB.Recordset")
Sql1="Select * From bookInfo Where ISBN='"&ISBN&"'"
Rs1.Open Sql1,conn,3,3
%>
<tr>
<td height="25" align="center" bgcolor="#FFFFFF"><%=Rs("ISBN")%></td>
<td height="25" align="left" bgcolor="#FFFFFF"> <a href="View.asp?ISBN=<%=Rs1("ISBN")%>" target="_blank">
<% If Rs1("images")<>"" Then
Response.Write "<font color='#3399cc'>[图]</font> "
End If
If Len(Rs1("title"))>19 Then
Response.Write Left(Rs1("title"),18) & "…"
Else
Response.Write Rs1("title")
End If
%></a></td>
<td height="25" align="center" bgcolor="#FFFFFF"><%=Rs1("author")%></td>
<%
Set Rs2 = Server.CreateObject("ADODB.Recordset")
Sql2="Select * From publisherInfo Where pid="&Rs1("pid")
Rs2.Open Sql2,conn,3,3
%>
<td height="25" align="center" bgcolor="#FFFFFF"><%=Rs2("ptitle")%></td>
<%
Rs2.Close
Set Rs2=nothing
%>
<td height="25" align="center" bgcolor="#FFFFFF"><%=Rs1("cd")%></td>
<%
Rs1.Close
Set Rs1=nothing
%>
<td height="25" align="center" bgcolor="#FFFFFF"><%=Rs("name")%></td>
<td height="25" align="center" bgcolor="#FFFFFF"><%=Rs("botime")%></td>
<td height="25" align="center" bgcolor="#FFFFFF"><%=Rs("retime")%></td>
</tr>
<% myPageSize=myPageSize-1
i=i+1
Rs.MoveNext
Loop
%>
<tr bgcolor="#FFFFFF">
<td height="25" colspan="8" align="left" background="images/bg.gif" > 借阅总数：<b><%=Rs.RecordCount%></b>本
</td></tr>
</table></td>
</tr>
</table></td>
</tr>
<% End If
Rs.Close
Set Rs = nothing
Conn.close
Set Conn=nothing
%>
<% Else %>
<tr>
<td height="50" align="center"><font color="ff0000">对不起，请不要非法登录！</font></td>
</tr>
<%End If%>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -