<%
dim strFileName
const MaxPerPage=15
dim totalPut,CurrentPage,TotalPages
dim i,j
dim ArticleID
dim Title
dim sql,rs
dim BigClassName,SmallClassName,SpecialName
dim PurviewChecked
dim strAdmin,arrAdmin
PurviewChecked=false
strFileName=Request.ServerVariables("admin/SCRIPT_NAME")&"?"
if request("page")<>"" then
currentPage=cint(request("page"))
else
currentPage=1
end if
bigid=request("bigid")
if request("Action")="passed" then
if bigid<>"" then
if request("act")="clock" then
sql="Update [message] set passed=true where id=" & CLng(bigid)
else
sql="Update [message] set passed=false where id=" & CLng(bigid)
end if
conn.Execute sql
call CloseConn()
end if
response.redirect "?page="¤tPage
end if
if request("Action")="Del" then
sql="delete from message where id=" &bigid& ""
conn.Execute sql
end if
sql="select * from message where kind='2'"
sql=sql & " order by id desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
%>
管 理
<%
if currentPage=1 then
showContent
showpage strFileName,totalput,MaxPerPage,true,false,"个 "
else
if (currentPage-1)*MaxPerPage
<%
sub showContent
dim i
i=0
%>