<% 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 Session("PROADMIN")=True Then%> <%End IF%> <% Rs.MoveNext if rs.eof then exit for next End IF Rs.Close Set Rs=Nothing Call CloseDB %>
<%=RS("date")%>
<%=Rs("content")%>
">

Page


<%IF ProgramOpen="True" and Session("PROADMIN")<>True Then%><%End IF%><%IF Session("PROADMIN")=True Then%><%End IF%>