delcontent.asp

来自「相对于流通企业」· ASP 代码 · 共 80 行

<% Option Explicit %>
<!--#include file="../Include/Const.asp" -->
<!--#include file="../Include/ConnSiteData.asp" -->
<!--#include file="CheckAdmin.asp"-->

<%
dim Result,Selectid
Result=request.QueryString("Result")
SelectID=request.Form("SelectID")
select case Result
  case "Administrators"
    if SelectID<>"" then  conn.execute "delete from suqun_Admin where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "LoginLog"
    if SelectID<>"" then  conn.execute "delete from suqun_AdminLog where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "MemGroup"
    if SelectID<>"" then  conn.execute "delete from suqun_MemGroup where GroupID in ('"&SelectID&"')"
	conn.execute "Update suqun_About set GroupID='200603281858588888' , Exclusive='>=' WHERE GroupID = '"&SelectID&"'"
	conn.execute "Update suqun_Download set GroupID='200603281858588888' , Exclusive='>=' WHERE GroupID = '"&SelectID&"'"
	conn.execute "Update suqun_Members set GroupID='200603281858588888' , GroupName='临时游客' WHERE GroupID = '"&SelectID&"'"
	conn.execute "Update suqun_Need set GroupID='200603281858588888' , Exclusive='>=' WHERE GroupID = '"&SelectID&"'"
	conn.execute "Update suqun_News set GroupID='200603281858588888' , Exclusive='>=' WHERE GroupID = '"&SelectID&"'"
	conn.execute "Update suqun_Others set GroupID='200603281858588888' , Exclusive='>=' WHERE GroupID = '"&SelectID&"'"
	conn.execute "Update suqun_Products set GroupID='200603281858588888' , Exclusive='>=' WHERE GroupID = '"&SelectID&"'"
    response.redirect request.servervariables("http_referer")
  case "Members"
    if SelectID<>"" then  conn.execute "delete from suqun_Members where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "About"
    if SelectID<>"" then  conn.execute "delete from suqun_About where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Products"
    if SelectID<>"" then  conn.execute "delete from suqun_Products where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "News"
    if SelectID<>"" then  conn.execute "delete from suqun_News where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Download"
    if SelectID<>"" then  conn.execute "delete from suqun_Download where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Need"
    if SelectID<>"" then  conn.execute "delete from suqun_Need where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "ADs"
    if SelectID<>"" then  conn.execute "delete from suqun_ADs where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Jobs"
    if SelectID<>"" then  conn.execute "delete from suqun_Jobs where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Message"
    if SelectID<>"" then  conn.execute "delete from suqun_Message where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Order"
    if SelectID<>"" then  conn.execute "delete from suqun_Order where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Supply"
    if SelectID<>"" then  conn.execute "delete from suqun_Supply where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Talents"
    if SelectID<>"" then  conn.execute "delete from suqun_Talents where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Navigation"
    if SelectID<>"" then  conn.execute "delete from suqun_Navigation where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "FriendSite"
    if SelectID<>"" then  conn.execute "delete from suqun_FriendSite where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Others"
    if SelectID<>"" then  conn.execute "delete from suqun_Others where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "NoHackSql"
    if SelectID<>"" then  conn.execute "delete from suqun_NoHackSql where SqlIn_ID in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
	
  case else
	
end select
%>