<%
set rs=server.createobject("adodb.recordset")
page=request.querystring("page")
sql="select top 5000 * from book order by up desc,id desc"
rs.open sql,conn,1,1
on error resume next
maxjilu=rs.recordcount
perpage=20 '每页显示记录数
t=page*perpage
rs.absoluteposition=t+1
f=t+perpage
ww=0
for i=t+1 to f
ww=ww+1
%>
bgcolor="#F8F8FA"<%end if%> >
| ≡ <%=txt(rs("zz"))%>〖<%=txt(rs("zt"))%>〗<%=rs("sj")%>
|
|
<%if rs("up")=1 then%>
顶置
<%end if%>
<%if rs("yes")=0 then%>
<%=rs("guestbook_type")%>:
<%=txt(rs("nr"))%>
<%else%>
此留言不公开
<%end if%> |
<%if session("admin")<>"" then%>
| " onClick="window.open(this.href,'','left=100,top=200,width=666,height=333,scrollbars=no,resizable=no');return false;">回复 " onClick="window.open(this.href,'','left=100,top=200,width=666,height=333,scrollbars=no,resizable=no');return false;">修改 " onClick='javascript: return confirm("警告！！！删除???不建议删除") '>删除 |
<%end if%>
<%if rs("re")<>"" then%>
| 管理员回复：<%=txt(rs("re"))%> 回复时间：<%=rs("resj")%> |
<%end if%>
|
<%
rs.movenext
if rs.eof then
exit for
rs.close
set rs=nothing
end if
next
tt=page*perpage
if page<0 then
page=0
end if
if tt>=maxjilu then
ttt=page-1
end if
if maxjilu-tt
|
