<%
IF ProgramOpen<>"True" Then
IF Session("PROADMIN")<>True Then
Response.Redirect "Login.asp"
Response.End
End IF
End IF
IF Request("del")<>"" and Session("PROADMIN")=True Then
Sql = "Delete From diary Where id="&Request("del")
Conn.Execute(Sql)
End IF
%>
<%=snow_title%>
<%
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From diary Order BY id DESC"
Rs.Open Sql,conn,1,1
IF Not Rs.Eof Then
totalrecord=rs.recordcount
IF Request("s")="" Then
ShowNum=ShowTopic
Else
ShowNum=Request("s")
End IF
rs.pagesize=ShowNum
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 ProgramOpen="True" and Session("PROADMIN")<>True Then%>
<%End IF%><%IF Session("PROADMIN")=True Then%>
<%End IF%>