<% '============================================================ ' Copyright 2007-09 燃点真情. All Rights Reserved. ' Last Update: 2007-12-15 19:28 ' E-Mail: xivn@163.com QQ:531233814 '============================================================ %> <% dim Rs,Sql,id,Rss,Sqll ID=request.QueryString("ID") set Rs=Server.CreateObject("ADODB.Recordset") Sql="select * from [linkclass] Where CLASSID="&ID Rs.open Sql,conn,2,3 rs.delete call RsClose() sql="delete from link Where CLASSID="&ID conn.Execute(sql) %>

友链类别(包含友链)删除成功!
返回分类管理
返回友链后台
[后台管理]