分页展示不了
日期：2014-05-16 浏览次数：20969 次
分页显示不了
<body bgcolor="#CC9999" >
<center>
<img src="006.jpg" width="90%" height="150"/>
<h2 align="center">欢迎进入留言板系统</h2>
<hr>
<p align="center"> <font color="#00FF99"><%response.write"该网站的访问次数:"&application("counter")%></font></p>
<center>
<td><a href="writern.asp"style="text-decoration:none" ><font size="3"> 发表留言</a> </td>
<td> <a href="sou.asp"style="text-decoration:none" >搜索留言</a> </td>
<td>回复留言</td>
<%
set conn=server.createobject("adodb.connection")
conn.connectionstring="driver={sql server};server=127.0.0.1;uid=sa;pwd=sa;database=tbAddress"
conn.open
set rs1=server.createobject("adodb.recordset")
set rs1.activeconnection=conn
rs1.cursortype=3
str= "select * from admin a join content b on a.username=b.username order by createtime desc,ansertime desc"
rs1.open(str)
rs1.pagesize=2
page=clng(request.QueryString("page"))
if page<1 then
page=1
end if
if page>rs1.pagecount then
page=rs1.pagecount
end if
rs1.absolutepage=page
for i=1 to rs1.pagesize%>
<table>
<tr><td rowspan="3"><img align="left"src="images/<%=trim(rs1("picture"))%>.gif" width="100" height="100"></td>
<td width="800" align="left"><font color="#0033FF"> 主题： </font><font color="#CC6600"><%=rs1("topic")%></font></td> </tr><tr><td align="left"><font color="#0033FF"> 留言内容: </font></td> </tr>
<tr><td width="800"align="left"> <font color="#CC6600"> <%=rs1("contents")%></font></td></tr>
<tr> <td> 来自： <%=trim(rs1("username"))%></td>
<td align="left"> 发表于: <%=formatdatetime(trim(rs1("createtime")))%></td>
<td><a href=replay.asp?contid=<%=trim(rs1("contid"))%>>回复留言</a></td>
</tr><br><br>
<% rs1.movenext
if rs1.eof then exit for
next%></table>
<center>
<%
if page=1 then
response.Write("第一页 ")
else
response.Write("<a href=main.asp?page=1>第一页</a> ")
end if
if page=1 then
response.Write("上一页 ")
else
response.Write("<a href=main.asp?page="&page-1&">上一页</a> ")
end if
if page=rs1.pagecount then
&nbs
<body bgcolor="#CC9999" >
<center>
<img src="006.jpg" width="90%" height="150"/>
<h2 align="center">欢迎进入留言板系统</h2>
<hr>
<p align="center"> <font color="#00FF99"><%response.write"该网站的访问次数:"&application("counter")%></font></p>
<center>
<td><a href="writern.asp"style="text-decoration:none" ><font size="3"> 发表留言</a> </td>
<td> <a href="sou.asp"style="text-decoration:none" >搜索留言</a> </td>
<td>回复留言</td>
<%
set conn=server.createobject("adodb.connection")
conn.connectionstring="driver={sql server};server=127.0.0.1;uid=sa;pwd=sa;database=tbAddress"
conn.open
set rs1=server.createobject("adodb.recordset")
set rs1.activeconnection=conn
rs1.cursortype=3
str= "select * from admin a join content b on a.username=b.username order by createtime desc,ansertime desc"
rs1.open(str)
rs1.pagesize=2
page=clng(request.QueryString("page"))
if page<1 then
page=1
end if
if page>rs1.pagecount then
page=rs1.pagecount
end if
rs1.absolutepage=page
for i=1 to rs1.pagesize%>
<table>
<tr><td rowspan="3"><img align="left"src="images/<%=trim(rs1("picture"))%>.gif" width="100" height="100"></td>
<td width="800" align="left"><font color="#0033FF"> 主题： </font><font color="#CC6600"><%=rs1("topic")%></font></td> </tr><tr><td align="left"><font color="#0033FF"> 留言内容: </font></td> </tr>
<tr><td width="800"align="left"> <font color="#CC6600"> <%=rs1("contents")%></font></td></tr>
<tr> <td> 来自： <%=trim(rs1("username"))%></td>
<td align="left"> 发表于: <%=formatdatetime(trim(rs1("createtime")))%></td>
<td><a href=replay.asp?contid=<%=trim(rs1("contid"))%>>回复留言</a></td>
</tr><br><br>
<% rs1.movenext
if rs1.eof then exit for
next%></table>
<center>
<%
if page=1 then
response.Write("第一页 ")
else
response.Write("<a href=main.asp?page=1>第一页</a> ")
end if
if page=1 then
response.Write("上一页 ")
else
response.Write("<a href=main.asp?page="&page-1&">上一页</a> ")
end if
if page=rs1.pagecount then
&nbs
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
