<!--#include file="Head.asp"-->

<!--#include file="Config.asp"-->
<!--#include file="admin.asp"-->
<% dim rs,sql,id,TP,url
id=request.Querystring("id")
classs=request.Querystring("class")
TP=request.Querystring("TP")
if TP="1" then
url="Waitingdel.asp"
elseIF TP="2" then
url="links.asp"
else
url="Admin_class.asp"
end if
Set Rs=server.createobject("adodb.recordset")
Sql = "select * from [link] Where id="&id
Rs.open Sql,conn,2,3
if not (rs.bof and rs.eof) then
          rs.delete()  
               rs.update() 
                 dellink 

end if
%><%call ALLClose()%>
<%sub dellink()
call saycardd("删除友链成功")%>
删除友链成功!
<%call headsay()%><%
Response.End%><%End Sub%>
<%call ALLClose()%>
