⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 llhs.asp

📁 一个优秀的学校学籍,成绩,图书管理系统.有需要的朋友可以来看看.是完整代码.
💻 ASP
字号:
<!--#include file="tsgl_conn.inc" -->
<HTML>
<HEAD><TITLE>浏览还书情况</TITLE></HEAD>
<BODY  bgcolor="#C0C0C0">
<h3 align=center>浏览还书情况&nbsp&nbsp<a href="tsgl.htm">返回</a></h3>
<%
sql="select * from jsk where cs=0"
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open sql, tsgl_Conn,3

if session("spg")=true then
	page=clng(request("page"))
else
	page=session("spage")
	session("spg")=true
end if

rs.pagesize=10
apage=rs.pagecount
if page<1 then
	page=1
end if
if page>apage then
	page=apage
end if
session("spage")=page
%>
<center>
<form action="llhs.asp" method=get>
<%
if page<>1 then
	response.write "<a href=llhs.asp?page=1>第一页</a>"
	response.write "&nbsp&nbsp<a href=llhs.asp?page="&(page-1)&">上一页</a>"
end if
if page<>apage then
	response.write "&nbsp&nbsp<a href=llhs.asp?page="&(page+1)&">下一页</a>"	
	response.write "&nbsp&nbsp<a href=llhs.asp?page="&apage&">最后一页</a>"
end if
%>
&nbsp&nbsp输入页码:<input type=text name=page size=3>
&nbsp&nbsp页码:<font color="red"><%=page%>/<%=apage%></font>
</form>

<TABLE BGCOLOR=#ffffff CELLSPACING=0 BORDER=1>
<TR>
<td BGCOLOR=#c0c0c0 BORDERCOLOR=#000000>学号</td>
<td BGCOLOR=#c0c0c0 BORDERCOLOR=#000000>图书编号</td>
<td BGCOLOR=#c0c0c0 BORDERCOLOR=#000000>借书日期</td>
<td BGCOLOR=#c0c0c0 BORDERCOLOR=#000000>借书册数</td>
<td BGCOLOR=#c0c0c0 BORDERCOLOR=#000000>还数日期</td>
</tr>
<%
rs.absolutepage=page
for ipage=1 to rs.pagesize
 %>
	<tr >
	<td BORDERCOLOR=#c0c0c0><% Response.Write RS("xh")%></td>
	<td BORDERCOLOR=#c0c0c0><%response.write rs("bh")%></td>
	<td BORDERCOLOR=#c0c0c0><%response.write rs("jsrq")%></td>
	<td BORDERCOLOR=#c0c0c0><%response.write rs("cs")%></td>
	<td BORDERCOLOR=#c0c0c0><%response.write rs("hsrq")%></td>
	</tr>
      <%RS.MoveNext
	if rs.eof then exit for
	next      
rs.close
set rs=nothing
%>
</table>
<center>
<form action="llhs.asp" method=get>
<%
if page<>1 then
	response.write "<a href=llhs.asp?page=1>第一页</a>"
	response.write "&nbsp&nbsp<a href=llhs.asp?page="&(page-1)&">上一页</a>"
end if
if page<>apage then
	response.write "&nbsp&nbsp<a href=llhs.asp?page="&(page+1)&">下一页</a>"	
	response.write "&nbsp&nbsp<a href=llhs.asp?page="&apage&">最后一页</a>"
end if
%>
&nbsp&nbsp输入页码:<input type=text name=page size=3>
&nbsp&nbsp页码:<font color="red"><%=page%>/<%=apage%></font>
&nbsp&nbsp<a href="tsgl.htm">返回</a>
</form>


</center>

</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -