分页程序为什么每页显示的内容都一样啊？晕～！

[复制链接]

导演

电梯直达

1^#

发表于 2009-12-27 02:20:08 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

<%
sql="select * from T_wtx"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
if rs.eof and rs.bof then
%>
<%="暂时还没有留言"%>
<%
else
rs.pagesize=11
'设置每页的记录数
total=rs.pagecount
page=int(request("page"))
if page<=0 then page=1
if request("page")="" then page=1
rs.Absolutepage=page
totalrecord=rs.RecordCount
'rs.recordcount 显示记录总条数
rs.movelast
%>

<%
dim a
a=1
do until rs.bof
homepage=rs("L_homepage")
qq=rs("L_qq")
content=rs("L_content")
usr=rs("L_usr")
email=rs("l_email")
addtime=rs("L_date")
security=rs("L_security")
face=rs("L_face")
sex=rs("L_sex")
img="images/"&face&".gif"
%>
<table width="75%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="100%" bgcolor="#FFFFFF"><table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><center>
<span class="word">留言者信息</span>
</center></td>
<td>主页<img src="images/home.gif" alt="主页：<%=homepage%>" width="16" height="16" />　　邮箱<img src="images/mail.gif" alt="邮箱：<%=email%>" width="14" height="15" /> 　　QQ：<img src="images/qq.gif" alt="QQ：<%=qq%>" width="16" height="16" /></td>
</tr>
<tr>
<td>
<% if qq<>"" then %>
<center><img src="http://qqshow-user.tencent.com/<%=qq%>/11/00/"></center>
<%
else
%>
<%
if sex="1" then
%>
<center><img src="images/gg.gif"></center>
<%else%>
<center><img src="images/mm.gif"></center>
<%
end if
end if%>

</td>
<td width="82%"><img src="<%=img%>">
<%
if security="1" then
%>
<center>这是保密的留言，只有管理员才能查看</center>
<%else%>
<%=content%>
<%end if%></td>
</tr>
<tr>
<td><span class="word">姓名：</span><b><%=usr%></b></td>
<td width="82%">留言时间<img src="images/time.gif" alt="留言时间" width="16" height="15" /><%=addtime%></td>
</tr>

</table></td>
</tr>
</table>
<%
a=a+1
rs.moveprevious
if a>rs.pagesize then exit do
loop
end if%>
<table width="75%" border="0" ali

收藏0

使用道具举报

返回列表

		自动登录	找回密码
密码			注册