delcontent.asp

来自「最好的自助建站系统！！最好的自助建站系统！！」· ASP 代码 · 共 79 行

<% 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 Csys_Admin where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "LoginLog"
    if SelectID<>"" then  conn.execute "delete from Csys_AdminLog where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "MemGroup"
    if SelectID<>"" then  conn.execute "delete from Csys_MemGroup where GroupID in ('"&SelectID&"')"
	conn.execute "Update Csys_About set GroupID='200603281858588888' , Exclusive='>=' WHERE GroupID = '"&SelectID&"'"
	conn.execute "Update Csys_Download set GroupID='200603281858588888' , Exclusive='>=' WHERE GroupID = '"&SelectID&"'"
	conn.execute "Update Csys_Members set GroupID='200603281858588888' , GroupName='临时游客' WHERE GroupID = '"&SelectID&"'"
	conn.execute "Update Csys_Need set GroupID='200603281858588888' , Exclusive='>=' WHERE GroupID = '"&SelectID&"'"
	conn.execute "Update Csys_News set GroupID='200603281858588888' , Exclusive='>=' WHERE GroupID = '"&SelectID&"'"
	conn.execute "Update Csys_Others set GroupID='200603281858588888' , Exclusive='>=' WHERE GroupID = '"&SelectID&"'"
	conn.execute "Update Csys_Products set GroupID='200603281858588888' , Exclusive='>=' WHERE GroupID = '"&SelectID&"'"
    response.redirect request.servervariables("http_referer")
  case "Members"
    if SelectID<>"" then  conn.execute "delete from Csys_Members where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "About"
    if SelectID<>"" then  conn.execute "delete from Csys_About where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Products"
    if SelectID<>"" then  conn.execute "delete from Csys_Products where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "News"
    if SelectID<>"" then  conn.execute "delete from Csys_News where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Download"
    if SelectID<>"" then  conn.execute "delete from Csys_Download where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Need"
    if SelectID<>"" then  conn.execute "delete from Csys_Need where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "ADs"
    if SelectID<>"" then  conn.execute "delete from Csys_ADs where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Jobs"
    if SelectID<>"" then  conn.execute "delete from Csys_Jobs where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Message"
    if SelectID<>"" then  conn.execute "delete from Csys_Message where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Order"
    if SelectID<>"" then  conn.execute "delete from Csys_Order where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Supply"
    if SelectID<>"" then  conn.execute "delete from Csys_Supply where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Talents"
    if SelectID<>"" then  conn.execute "delete from Csys_Talents where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Navigation"
    if SelectID<>"" then  conn.execute "delete from Csys_Navigation where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "FriendSite"
    if SelectID<>"" then  conn.execute "delete from Csys_FriendSite where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Others"
    if SelectID<>"" then  conn.execute "delete from Csys_Others where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "NoHackSql"
    if SelectID<>"" then  conn.execute "delete from Csys_NoHackSql where SqlIn_ID in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
	
  case else
	
end select
%>