自己整理的一个ASP分页的代码测试文件

最新推荐文章于 2020-10-28 23:08:50 发布

happmaoo

最新推荐文章于 2020-10-28 23:08:50 发布

阅读量98

点赞数

文章标签： ASP JavaScript SQL Server QQ CSS ViewUI

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">

</style>
</head>

<body>
<%
szSQL="select * from qq"
set oCon=server.CreateObject("ADODB.connection")
oCon.ConnectionString=m_DBConnectionString
oCon.CursorLocation=3
oCon.Open
set oRs=server.CreateObject("ADODB.Recordset")
set oRs.ActiveConnection=oCon
oRs.Open szSQL
set oRs.ActiveConnection=nothing

'分页 AbsolutePage:指定当前的页; PagePount: 返回记录集中的逻辑页数 PageSize:指定一个逻辑页中的记录个数，缺省值是10
CurrentPage = trim(Request("CurrentPage"))
if CurrentPage="" or CurrentPage="NaN" then
CurrentPage=1
end if
CurrentPage = CInt(CurrentPage)

oRs.PageSize =5
nTotal=ors.RecordCount

if nTotal > 0 then
if nTotal mod oRs.PageSize = 0 then
PageCount = Int(nTotal / oRs.PageSize)
else
PageCount = Int(nTotal / oRs.PageSize) + 1
end if
elseif nTotal = 0 then
PageCount = 0
CurrentPage = 0
end if
oRs.AbsolutePage=CurrentPage
%>
　　　
<table width="500" border="0" align="center" cellpadding="0" cellspacing="2" bgcolor="#999999">
<tr bgcolor="#FFFFFF">
<td width="245" bgcolor="#00FF00">ID</td>
<td width="249" bgcolor="#00FF00">Name</td>
</tr>
<%
m=0
do while not oRs.eof
id=oRs("CertCateId")
name=oRs("CertName")
%>
<tr bgcolor="#FFFFFF">
<td><% response.Write(id)%></td>
<td><% response.Write(Name)%></td>
</tr>
<%
m=m+1
oRs.movenext
if m>=oRs.PageSize then exit do
loop
oRs.close
set oRs=nothing
%>
</table>
<table width="300" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><p class="style1"><a href="testAspSql_exe.asp?op=add">添加 </a> 当前页/总页数:<font style='color:#FF0000;'><%=CurrentPage%>/<%=PageCount%></font>共有<font style='color:#0000FF;'>[<%=nTotal%>]</font>条记录 <br>
<%
if CurrentPage = 1 and PageCount > 1 then
Response.Write "<a href='javascript:void(Goto(" & CurrentPage+1 & "))'>后页</a> "
Response.Write "<a href='javascript:void(Goto(" & PageCount & "))'>尾页</a>"
elseif CurrentPage <> 1 and CurrentPage = PageCount then
Response.Write "<a href='javascript:void(Goto(1))'>首页</a> "
Response.Write "<a href='javascript:void(Goto(" & CurrentPage-1 & "))'>前页</a>"
elseif CurrentPage > 1 and CurrentPage < PageCount and CurrentPage > 0 then
Response.Write "<a href='javascript:void(Goto(1))'>首页</a> "
Response.Write "<a href='javascript:void(Goto(" & CurrentPage-1 & "))'>前页</a> "
Response.Write "<a href='javascript:void(Goto(" & CurrentPage+1 & "))'>后页</a> "
Response.Write "<a href='javascript:void(Goto(" & PageCount & "))'>尾页</a>"
end if
%>
</p></td>
</tr>
</table>
</body>
</html>
<script language="JavaScript" type="text/JavaScript">
//================跳转到某一页====================//
function Goto(nPage)
{
if(nPage=="")
{alert("请输入页码");return;}
window.location= "testAspSql.asp?CurrentPage="+nPage;//+"&IsSearch=<%=nIsSearch%>";
//document.ListForm.submit();
}

</script>

'//---------conn.inc文件-----//
<%
m_DBConnectionString = "Driver={SQL Server};Server=localhost;UID=sa;PWD=admin;Database=test"
set oCon=server.CreateObject("ADODB.connection")
oCon.ConnectionString=m_DBConnectionString
oCon.CursorLocation=3
oCon.Open
%>

happmaoo

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
自己整理的一个ASP分页的代码测试文件

&lt;!--#include file="conn.inc"--&gt;&lt;html&gt;&lt;head&gt;&lt;meta http-equiv="Content-Type" content="text/html; charset=gb2312"&gt;&lt;title&gt;无标题文档&lt;/title&gt;&lt;s
复制链接

扫一扫