folder.asp

课设做的图书管理系统,主要功能是管理图书的租借情况.里面有功能说明.

<style>
BODY{
	font-family:verdana,arial,helvetica;
	margin:0;
}
td {
	font-family:Tahoma,Verdana, Arial;
	font-size:11px;
	border: 1px solid #CCCCCC;
}
A:link, A:active,A:visited
{
	color: #CCCCCC;
	text-decoration: none;
	padding-left:6px;
	padding-right:6px;
}
A:hover
{
	color: #0000FF;
	text-decoration: none;
	padding-left:6px;
	padding-right:6px;
}
.STYLE1 {color: #FFFFFF}
a:link {
	color: #FF0000;
}
a:visited {
	color: #000000;
}
</style>
<!--#include file="conn.asp"-->
<!--#include file="checkuser.asp" -->
<p>&nbsp;</p>
<table width="680" border="1" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="53" height="18" bgcolor="#003366"><div align="center" class="STYLE1">编号</div></td>
    <td width="130" bgcolor="#003366"><div align="center" class="STYLE1">条形码</div></td>
    <td width="197" bgcolor="#003366"><div align="center" class="STYLE1">书籍名称</div></td>
    <td width="82" bgcolor="#003366"><div align="center" class="STYLE1">主编</div></td>
    <td width="54" bgcolor="#003366"><div align="center" class="STYLE1">册数</div></td>
    <td width="50" bgcolor="#003366"><div align="center" class="STYLE1">借阅数</div></td>
    <td width="98" bgcolor="#003366"><div align="center" class="STYLE1">操作</div></td>
  </tr>
  <%
folderid=cint(request.querystring("folderid"))
Set rs=Server.CreateObject("adodb.recordset")
sql="select * from ebook where folderid="&folderid&" order by id desc"
rs.open sql,conn,1,1
if not rs.eof then
const maxperpage=25 '定义每一页显示的数据记录的常量
dim currentpage '定义当前页的变量
rs.pagesize=maxperpage
currentpage=request("page")
if currentpage="" or not Isnumeric(currentpage) then
currentpage=1
elseif currentpage<1 then
c1urrentpage=1
else
currentpage=clng(currentpage)
	if currentpage > rs.pagecount then
	currentpage=rs.pagecount
	end if
end if
'如果变量c1urrentpage的数据类型不是数值型
'就1赋给变量c1urrentpage
if not isnumeric(currentpage) then
currentpage=1
end if
dim totalput,n '定义变量
totalput=rs.recordcount
if totalput mod maxperpage=0 then
n=totalput\maxperpage
else
n=totalput\maxperpage+1
end if
if n=0 then
n=1
end if
rs.move(currentpage-1)*maxperpage
i=0
do while i< maxperpage and not rs.eof
i=i+1
	%>

  <tr>
    <td align="center">&nbsp;<%=rs("id")%></td>
    <td align="center">&nbsp;<%=rs("tiaoxingma")%></td>
    <td align="center">&nbsp;<a href="bookinfo.asp?bookid=<%=rs("id")%>" target="_blank"><%=rs("shuming")%></a></td>
    <td align="center">&nbsp;<%=rs("zhubian")%></td>
    <td align="center">&nbsp;<%=rs("yijie")&"/"&rs("ceshu")%></td>
    <td align="center">&nbsp;<%=rs("jieyueshu")%></td>
    <td align="center">
	  <div align="center">
	    <%
if session("bookadmin")<>"" then
response.write "删除 | 修改 | "
end if
response.Write "借阅"	
	%>
      </div></td>
  </tr>
  <%
  	rs.movenext
	loop
end if
  rs.close
  set rs=nothing
  %>
  <tr>
    <td colspan="7" align="right">
页数 <font color="red"><%=currentpage%></font>/<% =n%>
	<% k=currentpage                    
   	if k<>1 then%>
   	[<a class="link" href="folder.asp?folderid=<%=folderid%>&page=1">首页</a>]                    
   	[<a class="link" href="folder.asp?folderid=<%=folderid%>&page=<%=k-1%>">上一页</a>]                    
   	<%else%>
   	[首页]&nbsp;[上一页]                    
   	<%end if%>
   	<%if k<>n then%>                    
   	[<a class="link" href="folder.asp?folderid=<%=folderid%>&page=<%=k+1%>">下一页</a>]                    
   	[<a class="link" href="folder.asp?folderid=<%=folderid%>&page=<%=n%>">尾页</a>]                    
   	<%else%>
   	[下一页]&nbsp;[尾页]                    
   	<%end if%>
        共有<font color="red"><%=totalput%></font>条记录 <font color="red"><%=maxperpage%></font>个/页
	  共有<font color="red"><%=n%></font>页	</td>
  </tr>
</table>