我要留言
<%Set rs = Server.CreateObject("ADODB.Recordset")
maxannounce=8
if not isempty(request("page")) then
currentpage=cint(request("page"))
else
currentpage=1
end if
sql="select * from messages where sh=1 order by id desc"
rs.open sql,conn,1,1
if not rs.eof and not rs.bof then
totalannounce=rs.recordcount
if currentpage<>1 then
if (currentpage-1)*maxannounce暂时没有留意！")
end if
if totalAnnounce mod maxannounce=0 then
n= totalAnnounce \ maxannounce
else
n= totalAnnounce \ maxannounce+1
end if
if not (Rs.bof and Rs.eof) then
do while not rs.eof and j
<%Rs.movenext j=j+1 loop end if%>
姓名： |
<%=rs("iname")%> | 时间： |
<%=rs("itime")%> |
|
<%=rs("ly")%>
<%if rs("hf")<>"" then%>
回复：<%=rs("hf")%>
<%end if%>
|
|||
<%Rs.movenext j=j+1 loop end if%>
总共 :<%=totalAnnounce%>，页数 :<%=currentpage%>/<%=n%>
[
<%if currentpage>1 then%>
<%end if%>
首页
<%if currentpage>1 then%>
<%end if%>
] [
<%if currentpage>1 then%>
<%end if%>
上一页
<%if currentpage>1 then%>
<%end if%>
] [
<%if n-currentpage>0 then%>
<%end if%>
下一页
<%if n-currentpage>0 then%>
<%end if%>
] [
<%if n-currentpage>0 then%>
<%end if%>
尾页
<%if n-currentpage>0 then%>
<%end if%>
]