<!--#include file="Head.asp"-->
<!--#include file="Config.asp"-->
<!--#include file="admin.asp"-->
<% dim Rs,Sql,id,act
act=request.QueryString("act")
ID=cint(request.QueryString("ID"))
if act=1 then
set Rs=Server.CreateObject("ADODB.Recordset")
Sql="select [active] from [link] Where ID="&ID
Rs.open Sql,conn,1,3
if not (rs.eof and rs.bof) then
Rs("active")=0
Rs.update()
call rsClose
call saycardd("友链审核成功")
%>友链审核成功!
<%else
call saycardd("待审网站")
%>找不到该网站,可能被删除了!<br/>
<%end if%><%response.write"<br/>"
call headsay()%>
<%elseif act=2 then%>
<%
conn.execute("update link Set active = 0")
call cardz("全部友链审核成功","Admin_link.asp?sid="&sid&"&amp;saytk="&saytk&"")
%>友链审核成功!
<%response.write""
call headsay()%>
<%end if
call connClose%>
