个人会员管理 .closes { font-size:9pt; color:#333333; background-color:#f7f7f7; border:1px solid #CCCCCC;} 个人会员列表 序号 用户名 加入日期 等级 操作

<% 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 currentpagetotalput 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 ">修改 )">删除 maxperpage then exit do loop end sub %> &nbsp; &nbsp;

共有/条， 当前页/&nbsp; <%if currentpage [首页]&nbsp;[上一页] ">[首页]&nbsp;&page=">[上一页]<% if n-currentpage [下一页]&nbsp;[尾页]&page=">[下一页] &nbsp;&page=">[尾页] 转到： &nbsp; [Ctrl+A 全选 注:引入外部Js需再刷新一下页面才能执行]