|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
缺点:安全性不是太差了,还行,只要你充分利用系统自带的工具;唯一缺点就是执行效率慢,如何进行网站优化以后,效果会比较好。显现情势:
IDNAME
1JULIET
2SPIRIT
3GIRL
4BOY
[1][2][3][4]页数:1/4页4条/页总纪录数:13条
代码:
<!--page4.asp-->
<!--#includefile="conn.asp"-->
<html>
<bodybgcolor="#FFFFFF"text="#000000">
<tablewidth="60%"border="1"align="center">
<%
dimrs
dimsql
msg_per_page=4界说每页显现纪录条数
setrs=server.createobject("adodb.recordset")
sql="select*frompageorderbyid"改成你本人的SQL语句
rs.cursorlocation=3利用客户端游标,可使效力进步
rs.pagesize=msg_per_page界说分页纪录集每页显现纪录数
rs.opensql,conn,0,1
iferr.number0then毛病处置
response.write"数据库操纵失利:"&err.description
err.clear
else
ifnot(rs.eofandrs.bof)then检测纪录集是不是为空
totalrec=RS.RecordCounttotalrec:总纪录条数
ifrs.recordcountmodmsg_per_page=0then盘算总页数,recordcount:数据的总纪录数
n=rs.recordcountmsg_per_pagen:总页数
else
n=rs.recordcountmsg_per_page+1
endif
currentpage=request("page")currentpage:以后页
Ifcurrentpage""then
currentpage=cint(currentpage)
ifcurrentpage<1then
currentpage=1
endif
iferr.number0then
err.clear
currentpage=1
endif
else
currentpage=1
Endif
ifcurrentpage*msg_per_page>totalrecandnot((currentpage-1)*msg_per_page<totalrec)then
currentPage=1
endif
rs.absolutepage=currentpageabsolutepage:设置指针指向某页开首
rowcount=rs.pagesizepagesize:设置每页的数据纪录数
dimi
dimk
%>
<tralign="center"valign="middle">
<tdwidth="50%">ID</td>
<tdwidth="50%">name</td>
</tr>
<%dowhilenotrs.eofandrowcount>0%>
<tralign="center"valign="middle">
<tdwidth="25%"><%=rs("id")%></td>
<tdwidth="25%"><%=rs("testname")%></td>
</tr>
<%
rowcount=rowcount-1
rs.MoveNext
loop
endif
endif
rs.close
setrs=nothing
%>
</table>
<tableborder="0"align="center">
<tr>
<tdalign="center"valign="middle">
<%calllistPages()%>
</td>
</tr>
</table>
</body>
</html>
<%
sublistPages()
ifn<=1thenexitsub
fori=0tonmsg_per_page-1
forj=1tomsg_per_page
%>
<fontsize="2"color="#006600">
<ahref="<%=request.ServerVariables("script_name")%>?page=<%=i*msg_per_page+j%>">[<%=i*msg_per_page+j%>]</a></font>
<%
next
next
EndPage=nmodmsg_per_page
forj=1toEndPage
%>
<fontsize="2"color="#006600">
<ahref="<%=request.ServerVariables("script_name")%>?page=<%=i*msg_per_page+j%>">[<%=i*msg_per_page+j%>]</a></font>
<%next%>
<fontcolor=blackface="arial">
Page:<%=currentpage%>/<%=n%>pages<%=msg_per_page%>notes/pageTotal:<%=totalrec%>notes</font>
<%endsub%>
缺点:安全性不是太差了,还行,只要你充分利用系统自带的工具;唯一缺点就是执行效率慢,如何进行网站优化以后,效果会比较好。 |
|