deleds.asp

好！由此可以引申出另一快速恢复多系统启动选单的方法：就是利用Ghost克隆工具

<%
if session("ymadminok")<>"true" then '管理员身份验证
response.redirect "error.asp?errorid=8"
end if
%>
<!--#include file="conn.asp"-->
<%
dim sql
dim rs
dim lb '是删除待审站点还是删除站务公告
dim id 
dim method
lb=request("class") '获得操作类别
if lb="ds" then '删除待审站点
 id=request.querystring("id")
 sql="delete from lm where id=" & id 
 set rs=conn.execute(sql)
 set rs=nothing
elseif lb="gg" then '删除站务公告
 id=request.querystring("id")
 sql="delete from news where id=" & id
 set rs=conn.execute(sql)
 set rs=nothing
elseif lb="manage" then '成员管理模块
 if request.form("manage")="" then 
   response.redirect "error.asp?errorid=17"
 elseif request.form("method")="" then
   response.redirect "error.asp?errorid=18"
 else
   method=request.form("method")
   id=request.form("manage")
   if method="cancel" then'取消成员联盟资格
    sql="update lm set pass=false where id=" & id 
   elseif method="dele" then'从数据库中将用户删除
    sql="delete from lm where id=" & id
   end if
   set rs=conn.execute(sql)
   set rs=nothing 
 end if
elseif lb="cool" then '酷站推荐栏目
 if request.form("cool")="" then
   response.redirect "error.asp?errorid=17"
 else
   id=request.form("cool")
   sql="update commend set commend =" & id  & " where id=1"
   set rs=conn.execute(sql)
   set rs=nothing
 end if  
end if
response.redirect "manage.asp" '跳转
%>