admin.asp

coolboy 链接交换系统

<%
if session("logined")=false or session("uid")<>"ad" then
 resopnse.redirect(adminlogin.asp)
 end if
%>
<!--#include file="head.asp"-->
<p>
<table width=650 height=340 cellspacing=1 cellpadding=0 bgcolor=#999999 align=center>
  <tr bgcolor=#ffffff>
  <td> &nbsp;管理员窗口 ↓<td align=right><a href=out.asp>→ 退出管理模式 </a>
  </td>
 <tr bgcolor=#ffffff height=300>
  <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=#ffffff>
     <td align=center><%=isorno%>
    <tr bgcolor=#ffffff 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=#ffffff>
     <td align=center><b><%=therow+1%></b>.<%=rs("site")%>
    <tr bgcolor=#ffffff>
     <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><br>
<table border="0" align="center">
<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>
 <tr bgcolor=#ffffff>
  <td align=right colspan=2>>>>&nbsp; <a href=index.asp>推荐站点</a> &nbsp; &nbsp; >>>&nbsp; <a href=flase.asp>验证不合格站点</a> &nbsp;
  </td>
 </tr>
</table>
<p>
<!--#include file="foot.asp"-->
<p>
</body>
</html>