<% 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 %>

友链审核成功!正在返回... <%else%>

找不到该网站,可能被删除了!
<%end if%>

<%elseif act=2 then%> <% conn.execute("update link Set active = 0") %>

友链审核成功!正在返回...

<%end if call connClose%>