rqjs1.asp

来自「一个优秀的学校学籍,成绩,图书管理系统.有需要的朋友可以来看看.是完整代码.」· ASP 代码 · 共 97 行

ASP
97 行
字号 
<!--#include file="tsgl_conn.inc" -->
<HTML>
<HEAD><TITLE>浏览借书情况</TITLE></HEAD>
<BODY  bgcolor="#C0C0C0">
<h3 align=center>浏览借书情况&nbsp&nbsp<a href="tsgl.htm">返回</a></h3>

<%
cdat1=request("dat1")
cdat2=request("dat2")
sql="select * from jsk where cstr(jsrq)>='"&cdat1&"' and cstr(jsrq)<='"&cdat2&"'"
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="rqjs1.asp" method=get>
<%
if page<>1 then
	response.write "<a href=rqjs1.asp?page=1>第一页</a>"
	response.write "&nbsp&nbsp<a href=rqjs1.asp?page="&(page-1)&">上一页</a>"
end if
if page<>apage then
	response.write "&nbsp&nbsp<a href=rqjs1.asp?page="&(page+1)&">下一页</a>"	
	response.write "&nbsp&nbsp<a href=rqjs1.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>

</tr>
<%
if not rs.eof then
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>

	</tr>
      <%RS.MoveNext
	if rs.eof then exit for
	next      
end if	
rs.close
set rs=nothing
%>
</table>

<form action="rqjs1.asp" method=get>
<%
if page<>1 then
	response.write "<a href=rqjs1.asp?page=1>第一页</a>"
	response.write "&nbsp&nbsp<a href=rqjs1.asp?page="&(page-1)&">上一页</a>"
end if
if page<>apage then
	response.write "&nbsp&nbsp<a href=rqjs1.asp?page="&(page+1)&">下一页</a>"	
	response.write "&nbsp&nbsp<a href=rqjs1.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>

rqjs1.asp - 源码说明

本页面展示了「一个优秀的学校学籍,成绩,图书管理系统.有需要的朋友可以来看看.是完整代码.」中的 rqjs1.asp 源码文件，采用 ASP 编程语言编写，共 97 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与图书管理相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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