本人常用的分页代码- ASP - 软晨网（RuanChen.com）

当前位置: 首页 > 图文教程 > 网络编程 > ASP > 本人常用的分页代码

ASP: 利用ASP将HTML格式数据传输给Excel 的技巧; 用ASP CSS实现随机背景; 用ASP实现在线文章翻译的功能; 动态网页爱好者来看：Asp过滤HTML的函数; 自动去除字符中含有html代码的几个ASP函数; 用ASP对网页进行简单的保护; ASP网页开发过程中的几个小技巧; ASP动态网页制作中使用SQL语句的方法; ASP开发中存储过程应用全接触; 入门：初学ASP动态网页制作常用错误处理; ASP动态网页下UTF-8页面乱码的解决方法; 小技巧：解决ASP脚本运行超时的方法; 动态网页制作技术ASP开发中的常见问题; 动态网页技术ASP日期和时间函数示例; ASP程序实现保存参数值的分页功能; 用ASP寻找到真实IP地址的方法; ASP中文显示解决技巧及创建对象方法; ASP实例：Asp 防止网页频繁刷新一法; 将ASP动态网页转换成HTM静态页面的方法; 技巧：得到刚刚插入的记录的自动编号值一例

No. « ‹ 2 3 4 5 › »

技术文章搜索

关键字

ASP 中的本人常用的分页代码

出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 36 ::

收藏到网摘: n/a

截取实际长度字符串，并用空格替换一句话木马连接客户端

点击运行可以看到效果:

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>个人会员管理</title>
<link href="main.css" rel="stylesheet" type="text/css" />
<style type="text/css">
.closes
{
font-size:9pt;
color:#333333;
background-color:#f7f7f7;
border:1px solid #CCCCCC;}
</style>
<script type="text/javascript">
function selectall() { for (var z=0;z<=document.formselect.memberid.length;z++) { var e=document.formselect.memberid[z]; e.checked=!e.checked; }
}
function delmember(id)
{
if (confirm('你确定要删除此条信息吗？')){
window.open("gr_delselect.asp?id="+id,"","width=150,height=20,resizable=yes,scrollbars=yes,status=yes,toolbar=no,menubar=no,location=no");}}
function killerror(){
return true;
}
window.onerror=killerror;
</script>
</head>
<body>
<table width="700" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF" style="border:1px solid #799AE1"> <tr> <td height="25" colspan="5" bgcolor="#799AE1" style="text-indent:2em;" class="blueback">个人会员列表</td> </tr> <tr> <td width="36" height="25" bgcolor="#ADBEEF"><div align="center">序号</div></td> <td width="244" bgcolor="#ADBEEF"><div align="center">用户名</div></td> <td width="140" bgcolor="#ADBEEF"><div align="center">加入日期</div></td> <td width="140" bgcolor="#ADBEEF"><div align="center">等级</div></td> <td width="140" bgcolor="#ADBEEF"><div align="center">操作</div></td> </tr>
<form action="gr_delselect.asp" method="post" name="formselect">
<%
dim maxperpage
maxperpage=20
if not isempty(request("page")) then currentPage=cint(request("page")) else currentPage=1 end if filename="gr_member.asp"
dim rs
set rs=server.CreateObject("adodb.recordset")
sql="select id,dxy_username,datetime,dj from "&gr_membertable&" order by id desc"
rs.open sql,conn,1,1
if rs.eof then
response.write "没有相关信息"
else totalPut=rs.recordcount if currentpage<1 then currentpage=1 end if if (currentpage-1)*maxperpage>totalput then if (totalput mod maxperpage)=0 then currentpage=totalput\maxperpage else currentpage=totalput\maxperpage+1 end if end if if currentpage=1 then showcontent() showpage totalput,maxperpage,filename else if (currentpage-1)*maxperpage<totalput then rs.move (currentpage-1)*maxperpage dim bookmark bookmark=rs.bookmark showcontent showpage totalput,maxperpage,filename else currentpage=1 showcontent showpage totalput,maxperpage,filename end if end if
end if
sub showcontent()
i=1
do while not rs.eof
%> <tr> <td height="25" bgcolor="#D6DFF7"><div align="center"> <input type="checkbox" name="memberid" value="<%=rs("id")%>"> </div></td> <td bgcolor="#D6DFF7"><div align="center"><%=rs("dxy_username")%></div></td> <td bgcolor="#D6DFF7"><div align="center"><%=rs("datetime")%></div></td> <td bgcolor="#D6DFF7"><div align="center"><%=rs("dj")%></div></td> <td bgcolor="#D6DFF7"><div align="center"><a href="member_edit.asp?id=<%=rs("id")%>">修改</a> <a href="javascript:delmember(<%=rs("id")%>)">删除</a></div></td> </tr> <% rs.movenext i=i+1 if rs.eof then exit do if i>maxperpage then exit do loop end sub %> <tr> <td height="25" colspan="5" bgcolor="#D6DFF7"><div align="center"> <input name="Submit" type="button" class="closes" value="全选" onClick="javascript:selectall()"> <input name="Submit2" type="submit" class="closes" value="删除"> </div></td> </tr> </form> <%
function showpage(totalnumber,maxperpage,filename)
%>
<tr> <td height="30" colspan="5" align="center" bgcolor="#D6DFF7">
<%
dim n
if totalnumber mod maxperpage=0 then
n=totalnumber\maxperpage
else
n=totalnumber\maxperpage+1
end if
%>
共有<%=totalnumber%>/<%=maxperpage%>条，
当前页<%=currentpage%>/<%=n%> <%if currentpage<2 then%> [首页] [上一页] <%else%> <a href="<%=filename%>">[首页]</a> <a href="<%=filename%>&page=<%=currentpage-1%>">[上一页]</a> <%end if%><% if n-currentpage<1 then%> [下一页] [尾页]<%else%><a href="<%=filename%>&page=<%=currentpage+1%>">[下一页]
</a> <a href="<%=filename%>&page=<%=n%>">[尾页]</a> <%end if%> 转到：<select name="dd" class="sle"
onChange="location.href=this.options[this.selectedIndex].value"> <%for j=1 to n if currentpage=j then %><option value="<%=filename%>&page=<%=j%>" selected><%=j%></option> <% else %> <option value="<%=filename%>&page=<%=j%>"><%=j%></option> <% end if next %> </select></td></tr> <%
end function
%>
</table>
<table width="700" height="28" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td> </td> </tr>
</table>
</body>
</html>

[Ctrl+A 全选提示:你可先修改部分代码,再按运行]

截取实际长度字符串，并用空格替换一句话木马连接客户端

ASP 中的 本人常用的分页代码

评论 (0) All

ASP 中的本人常用的分页代码