admin.asp

主要版块有：日记

<%
if session("logined")=false or session("uid")<>"ad" then
 resopnse.redirect(adminlogin.asp)
 end if
%>

<table width=630 cellspacing=1 cellpadding=0 bgcolor=#999999 align=center border="0">
  <tr bgcolor=#e4c59a> 
    <td> &nbsp;管理员窗口 ↓ 
    <td align=right><a href=out.asp>→ 退出管理模式　 </a> </td>
  
  <tr bgcolor=#e4c59a> 
    <td colspan=2>&nbsp; <table border=0 cellspacing=0 cellpadding=3 align=center>
        <!--#include file="conn.asp"-->
        <%
dim rs
dim sql
dim row
msg_per_page = 25
set rs=server.createobject("adodb.recordset")
sql="select * from link order by id DESC"
rs.cursorlocation = 3

rs.pagesize = msg_per_page
rs.open sql,conn,0,1 

if err.number<>0 then 
response.write "数据库操作失败：" & err.description
err.clear
else
if not (rs.eof and rs.bof) then 
totalrec = RS.RecordCount 
if rs.recordcount mod msg_per_page = 0 then 
n = rs.recordcount\msg_per_page 
else 
n = rs.recordcount\msg_per_page+1 
end if 

currentpage = request("page") 
If currentpage <> "" then
currentpage = cint(currentpage)
if currentpage < 1 then 
currentpage = 1
end if 
if err.number <> 0 then 
err.clear
currentpage = 1
end if
else
currentpage = 1
End if 
if currentpage*msg_per_page > totalrec and not((currentpage-1)*msg_per_page < totalrec)then 
currentPage=1
end if
rs.absolutepage = currentpage 
rowcount = rs.pagesize 

while not rs.eof and rowcount>0
if therow mod 5 = 0 then
response.write("<tr>")
end if
if rs("yanzheng")="ok" then isorno="已通过验证"
if rs("yanzheng")="flase" then isorno="未通过验证"
if rs("yanzheng")="ing" then isorno="正等待验证"
%>
        <td align=center width=110 height=60> <table width=100 height=60 cellspacing=1 cellpadding=0 bgcolor=#cccccc>
            <tr bgcolor=#e4c59a> 
              <td align=center><%=isorno%> 
            <tr bgcolor=#e4c59a height=40> 
              <td align=center><a href="<%=rs("url")%>" target=_blank> <img src="<%=rs("imgurl")%>" border=0 alt="<%=rs("readme")%>" width=88                        height=31> 
                </a> 
            <tr bgcolor=#e4c59a> 
              <td align=center><b><%=therow+1%></b>.<%=rs("site")%> 
            <tr bgcolor=#e4c59a> 
              <td align=center><a href=ok.asp?num=<%=rs("num")%>><b>OK</b></a> 
                | <a href=no.asp?num=<%=rs("num")%>><b>NO</b></a> | <a href=del.asp?num=<%=rs("num")%>><b>DEL</b></a> 
          </table>
          <%
 therow=therow+1
 rowcount=rowcount-1
 rs.MoveNext
 wend
 end if
 end if
 rs.close
 set rs=nothing
 conn.close
 set conn=nothing
 if therow mod 5<>0 then
 for i=1 to 5-(therow mod 5)
 response.write("<td width=110>&nbsp;")
 next
 end if
%>
      </table> <table border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td align="center" valign="middle"> 
            <%call listPages()%>
          </td>
        </tr>
      </table>
      <%
sub listPages() 

for i=0 to n\msg_per_page-1 
for j=1 to msg_per_page 
%>
      <b> <a href="<%=request.ServerVariables("script_name")%>?page=<%=i*msg_per_page+j %>">[
      <% =i*msg_per_page+j %>
      ]</a></b></font>&nbsp;&nbsp; 
      <% 
next 
next
EndPage = n mod msg_per_page 
for j=1 to EndPage 
%>
      <b> <a href="<%=request.ServerVariables("script_name")%>?page=<% =i*msg_per_page+j %>">[
      <% =i*msg_per_page+j %>
      ]</a></b> 
      <%next%>
      <font class=my3><b> 当前页:<%=currentpage%> &nbsp;&nbsp;<%=msg_per_page%>个网站/页 
      &nbsp;&nbsp;总网站数:<%=totalrec%></b></font> 
      <%end sub%>
    </td>

</table>
<!--#include file="foot.asp"-->