<%
IF Request("del")<>"" and Session("PRO"&LogPWD&"ADMIN")=True Then
Sql = "Delete From gb Where id="&Request("del")
Conn.Execute(Sql)
End IF
%>
<%
if notice<>"" then
%>
【版主通告】
<%response.write notice%>
<%end if%>
<%
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From gb Order BY top DESC"
Rs.Open Sql,conn,1,1
IF Not Rs.Eof Then
totalrecord=rs.recordcount
IF Request("s")="" Then
ShowNum=Showlynum
Else
ShowNum=Request("s")
End IF
rs.pagesize=Showlynum
maxpage=rs.pagecount
requestpage=clng(request("p"))
if requestpage="" or requestpage=0 then
requestpage=1
end if
if resquestpage>maxpage then
resquestpage=maxpage
end if
if not requestpage=1 then
rs.move (requestpage-1)*rs.pagesize
end if
for i=1 to rs.pagesize and not rs.bof
%>
<%
if Rs("type")="close" then
IF Session("PRO"&LogPWD&"ADMIN")<>True Then%>
这是给版主的悄悄话......
<%ELSE%>
<%=Rs("content")%>
<%end if%>
<%else%>
<%=Rs("content")%>
<%end if%>
<%
if rs("reply")<>"" then
%>
[版主回复] <%=Rs("reply")%>
回复时间：<%=Rs("bj")%>
<%end if%>
留言NO:<%
dim j
if requestpage=1 then
j=i
response.write j
else
j=((requestpage-1)*Showlynum+i)
response.write j
end if %>
<% IF rs("from")<>"" Then %><%=rs("from")%>
<% else %>不告诉你<%end if%>
<% IF Session("PRO"&LogPWD&"ADMIN")=True Then %>IP:<%=rs("ip")%>
<% else %>IP：已记录<%end if%>
<%=rs("date")%>
<%
Rs.MoveNext
if rs.eof then exit for
next
End IF
Rs.Close
Set Rs=Nothing
%>
共<%=maxpage%>页 [
<%
For i=1 to maxpage
Response.Write ""&i&" "
Next
%>
]
<%end if%>
<%=Rs("title")%>
管理
删除
主页![](images/face/<%=rs("head")%>.gif)
<% IF rs("from")<>"" Then %><%=rs("from")%>
<% else %>不告诉你<%end if%>
<% IF Session("PRO"&LogPWD&"ADMIN")=True Then %>IP:<%=rs("ip")%>
<% else %>IP：已记录<%end if%>
<%=rs("date")%>