<!--#include file="../conn2.asp"-->
<!--#include file="set.asp"-->



<%Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM link  order by id desc"
rs.open sql, conn, 1, 3
%>

<head>
<LINK 
href="css.css" type=text/css rel=stylesheet>

<title></title>

</head>

<body topmargin="2" leftmargin="2">

<div align="center">
  <center>
    <br>
    <table width="90%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolordark="#FFFFFF" bgcolor="F6F6F6">
      <tr> 
        <td colspan="5" align="center" class="norightbuttonborder2"><font color="#FFFFFF">社区友情连接管理</font></td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td width="15%" align="center"><b>状态</b></td>
        <td width="30%" align="center"><b>网站名称</b></td>
        <td width="36%" align="center"><b>网址</b></td>
        <td width="9%" align="center"><b>审核</b></td>
        <td width="10%" align="center"><b>删除</b></td>
      </tr>
      <% 
shownum=10 
totalrecord=rs.recordcount 
rs.pagesize=shownum 
maxpage=rs.pagecount 
 
requestpage=clng(request.querystring("page")) 
 
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%>
      <tr bgcolor="#FFFFFF"> 
        <td width="15%"> 
          <p align="center"> 
            <%if rs("check")=true then%>
            已审核 
            <%else%>
            未审核 
            <%end if%>
        </td>
        <td width="30%"> 
          <p align="center"><%=rs("linkname")%></p></td>
        <td width="36%"> 
          <p align="center"><a href="<%=rs("url")%>" target="_blank"><%=rs("url")%></a></p></td>
        <td width="9%"> 
          <p align="center"><a href="shenghe.asp?id=<%=rs("id")%>&action=shenghe">通过</a></p></td>
        <td width="10%"> 
          <p align="center"><a href="shenghe.asp?id=<%=rs("id")%>&action=del" class="C_shenhong"><strong>删除</strong></a></p></td>
      </tr>
      <% 
rs.movenext 
if rs.eof then exit for 
next 
%>
    </table>
  </center>
</div>

<center>
<% 
if requestpage-1 mod 10=0 then 
 p=(requestpage-1) \ 10 
else 
 p=(requestpage-1) \ 10 
end if 
if requestpage=1 then 
 response.write "<font face=webdings color=""#FF0000"">9</font>" 
else 
 response.write "<a href=?name="&name&"&page=1 title=首页><font face=webdings>9</font></a>" 
end if 
if p*10>0 then response.write "<a href=?name="&name&"&page="&p*10&" title=上十页><font face=webdings>7</font></a>" 
response.write "<b>" 
for ii=p*10+1 to P*10+10 
   if ii=requestpage then 
  response.write "<font color=""#FF0000"">"&ii&"</font> " 
 else 
  response.write "<a href=?name="&name&"&page="&ii&">"&ii&"</a>   " 
 end if 
 if ii=maxpage then exit for 
next 
response.write "</b>" 
if ii<maxpage then response.write "<a href=?name="&name&"&page="&ii&" title=下十页><font face=webdings>8</font></a>" 
if requestpage=maxpage then 
 response.write "<font face=webdings color=""#FF0000"">:</font>   " 
else 
 response.write "<a href=?name="&name&"&page="&maxpage&" title=尾页><font face=webdings>:</font></a>" 
end if 
response.write"    总共有"&maxpage&"页   共"&totalrecord&"条信息"  

%> 
