<!--#include file="conn.asp"-->
<table width="600" border="0" align="center">
<tr>
<td width="600" height="298" valign="top">
<div align="center">
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from bbs "
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
<p align="center">还没有此类信息！</p>
<%
else
dim maxperpage
dim sql
dim rs
dim gsetbookid
dim totalput
dim currentpage
dim totalpages
filename="message.asp"
if not isempty(request("page")) then
currentpage=cint(request("page"))
else
currentpage=1
end if
rs.pagesize=3
totalput=rs.recordcount
totalput=rs.pagecount
maxperpage=rs.pagesize
if currentpage<1 then
currentpage=1
end if
if currentpage>totalpage then
currentpage=totalpage
end if
if currentpage=1 then
showcontent
showpages1
else
if (currentpage-1)*maxperpage<totalput then
rs.move (currentpage-1)*maxperpage
dim bookmark
bookmark=rs.bookmark '行54
showcontent
showpages1
end if
end if
rs.close
end if
set rs=nothing
rs.close
set conn=nothing
%>
<%
sub showcontent
dim i,j
%>
<table width="520" border="0">
<%
i=1
do while not(rs.eof or rs.err)
%>
<tr>
<td height="34" align="center" valign="middle">
·</td>
<td align="left" valign="middle">
<a target='_blank' href="newbbs.asp?id=<%=rs("id")%>"><%=rs("bt")%></a>(<%=rs(date)%>)</td>
</tr>
<%
if i>=maxprepage then exit do
i=i+1
rs.movenext
loop
%>
<tr>
<td height="140" colspan="3" align="center">
<%
end sub
%>作者: sunnygirl 时间: 2010-1-23 19:05
楼主，你写得实在是太好了。我惟一能做的，就只有把这个帖子顶上去这件事了。