📄 old.asp
字号:
<!--#include file="conndb.asp"-->
<!--#include file="isAdmin.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>借阅图书历史信息</title>
<link href="style.css" rel="stylesheet">
</head>
<!--#include file="head.asp"-->
<body link="#000080" vlink="#080080">
<form>
<p align="center">
<b><font style="font-size: 12pt">借 阅 图 书 历 史 信 息</font></b></p>
<BR>
<tr></tr>
<table width="70%" height="60" border="1" align=center cellspacing="0" bordercolorlight="#4DA6FF" bordercolordark="#ECF5FF" style='FONT-SIZE: 9pt'>
<tr>
<td width="9%" height="30" align="center" bgcolor="#FEEC85"><strong>编号</strong></td>
<td width="18%" align="center" bgcolor="#FEEC85"><strong>借阅图书名称</strong></td>
<td width="7%" align="center" bgcolor="#FEEC85"><strong>数量</strong></td>
<td width="9%" align="center" bgcolor="#FEEC85"><strong>图书类别</strong></td>
<td width="8%" align="center" bgcolor="#FEEC85"><strong>借阅人</strong></td>
<td width="10%" align="center" bgcolor="#FEEC85"><strong>借阅时间</strong></td>
<td width="9%" align="center" bgcolor="#FEEC85"><strong>归还时间</strong></td>
<td width="11%" align="center" bgcolor="#FEEC85"><strong>实际归还日期</strong></td>
<td width="8%" align="center" bgcolor="#FEEC85"><strong>过期（天）</strong></td>
<td width="11%" align="center" bgcolor="#FEEC85"><strong>操作</strong></td>
</tr>
<%
rs.Close
sql = "SELECT * FROM book_Record where Rec_flag=1 ORDER BY rec_lendlimit desc"
rs.Open sql,Conn,1,1
If rs.EOF Then
Response.Write "<tr><td colspan=11 align=center>目前还没有借阅信息。</td></tr></table>"
Else
'设置每页显示记录的数量
rs.PageSize = 8
'读取参数page，表示当前页码
iPage = CLng(Request("page"))
If iPage > rs.PageCount Then
iPage = rs.PageCount
End If
If iPage <= 0 Then
iPage = 1
End If
rs.AbsolutePage = iPage
For i=1 To rs.PageSize
n = n + 1
%>
<tr>
<td width="9%" align="center" height="30"><%=n%></td>
<td width="18%" align="center" height="30"><%=rs("Rec_bkname")%></td>
<td width="7%" align="center" height="30"><%=rs("Rec_bktotal")%></td>
<td width="9%" align="center" height="30"><%=rs("Rec_bkType")%></td>
<td width="8%" align="center" height="30"><%=rs("Rec_Rdrname")%></td>
<td width="10%" align="center" height="30"><%=rs("Rec_lendtime")%></td>
<td width="9%" align="center" height="30"><%=rs("Rec_lendLimit")%></td>
<td width="11%" align="center" height="30"><%=rs("rec_returntime")%></td>
<td width="8%" align="center" height="30"><%if DateDiff("d", rs("rec_lendlimit"), rs("Rec_returntime"))<0 then %>0<%else%><font color=red><%=DateDiff("d", rs("rec_lendlimit"), rs("Rec_returntime"))%></font><%end if%></td>
<td width="11%" align="center" height="30">
<input type="button" value="删除" onclick="if (confirm('确实要此条记录吗？')) window.location='del.asp?id=<%=rs("rec_id")%>'" ></td>
</tr>
<%
rs.MoveNext()
If rs.EOF Then
Exit For
End If
Next
%>
</table>
<p align="center">
<%
'显示页码
If rs.PageCount>1 Then
Response.Write "<table border='0'>"
Response.Write "<tr><p align=center>"
Response.Write "<td><b>分页：</b></td>"
For i=1 To rs.PageCount
Response.Write "<td><a href='Old.asp?page=" & i & "'>"
Response.Write "[<b>" & i & "</b>]</a></td>"
Next
Response.Write "</tr></table>"
End If
End If
%>
</form>
<tr>
<td><div align="center">Copyright 2007 </div></td>
</tr>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -