28,390
社区成员
发帖
与我相关
我的任务
分享
<%
If rs.recordcount > 0 Then
rs.pagesize = 5
Num = rs.recordcount
pageNum = rs.pagecount
page = Request.QueryString("page")
If page <> "" Then
page = Cint(page)
ElseIf page < 1 Then
page = 1
Else
page =1
End If
If page < 1 then
page =1
End If
If page*rs.pagesize >Num and Not ((page-1)*rs.pagesize <Num) Then
page = pagenum
End If
rs.absolutepage = page
LoopNum = rs.pagesize
%>
<% For i = 1 to LoopNum
if page=2 and i=1 then %>
<tr bgcolor="#92CAE2">
<td width="102" bgcolor="#92CAE2">用户名 <%=rs3("tiname").value%> </td>
<td width="521" >发表时间: <%=rs3("posttime").value%> </td>
</tr>
<tr>
<td width="102" bgcolor="#92CAE2"> </td>
<td colspan="2" bgcolor="#92CAE2" > <%=rs3("TitleContent").value%> <br> </td>
</tr>
<% end if
%>
<tr bgcolor="#92CAE2">
<td width="102" bgcolor="#92CAE2">用户名 <%=rs("postname").value%> </td>
<td width="521" >发表时间: <%=rs("posttime").value%> </td>
</tr>
<tr>
<td width="102" bgcolor="#92CAE2"> </td>
<td colspan="2" bgcolor="#92CAE2" > <%=rs("Content").value%> <br> </td>
</tr>
<%
rs.movenext
if rs.eof then exit for
Next %>