<!--#include file="Conn.asp"-->
<!--#include file ="Check_Manager.asp"-->
<%
If Request.QueryString("action")="pass" Then
Dim cid
cid = Request.QueryString("id")
Conn.ExeCute("Update [Link] Set Show=1 Where id="&cid&"")
JaSys("管理员" & session("ManagerUser") & "<font color=red>通过ID为"&cid&"的连接审核</font>")
 Response.write "<script language='javascript'>" & chr(13)
		Response.write "alert('通过审核成功!');" & Chr(13)
		Response.write "window.document.location.href='Link.asp';"&Chr(13)
		Response.write "</script>" & Chr(13)
    Response.End
End If
If Request.QueryString("action")="close" Then
cid = Request.QueryString("id")
Conn.ExeCute("Update [Link] Set Show=0 Where id="&cid&"")
JaSys("管理员" & session("ManagerUser") & "<font color=red>取消ID为"&cid&"的连接审核</font>")
 Response.write "<script language='javascript'>" & chr(13)
		Response.write "alert('取消审核成功!');" & Chr(13)
		Response.write "window.document.location.href='Link.asp';"&Chr(13)
		Response.write "</script>" & Chr(13)
    Response.End
End If
%>
<html>
<head>
<titel></titel>
<LINK href="admin/admin.css" type=text/css rel=stylesheet>
</head>
<body>
<table width="100%" height="60%" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td align="center" valign="top"><br><br>
<table width="550" border="0" cellspacing="0" cellpadding="2" class=tableBorder>
          <tr> 
            <td height="25" colspan="2" background="admin/admin_bg_1.gif"> <div align="center"><strong><font color="#FFFFFF">友情链接申请管理</font></strong></div></td>
          </tr>
     <%
     Dim Rs
     Set Rs = Conn.ExeCute("Select * From [Link] Where Show=0")
     Do While Not Rs.Eof
     %>
        
          <tr> 
            <td width="121"> 网站名称<br> </td>
            <td width="427"><a href="<%=Rs("Link")%>" target="_blank"><%=Rs("Name")%></a></td>
          </tr>
          <tr> 
            <td>网站说明</td>
            <td><%=Rs("Note")%></td>
          </tr>
          <tr> 
            <td>连接地址</td>
            <td><a href="<%=Rs("Link")%>" target="_blank"><%=Rs("Link")%></a></td>
          </tr>
          <tr> 
            <td colspan="2"> <div align="center"> 
              </div></td>
          </tr>
            <tr> 
            <td>审核</td>
            <td> <%If int(Rs("Show"))=1 Then%><a href="?action=close&id=<%=rs("ID")%>">取消审核</a><%Else%><a href="?action=pass&id=<%=rs("ID")%>">通过审核</a><%End If%></td>
          </tr>
          <tr> 
            <td colspan="2"> <div align="center"> 
              </div></td>
          </tr>
        
<%
Rs.MoveNext
Loop
Rs.Close
Set Rs= Nothing
%>  </table>
</body>
</html>
