delcontent.asp

修改迅易在线评选管理系统,,功能能用,下载的迅易功能不全,

<% Option Explicit %>
<!--#include file="../Include/Const.asp" -->
<!--#include file="../Include/ConnSite.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 ameav_Admin where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
   case "LoginLog"
    if SelectID<>"" then  conn.execute "delete from Ameav_AdminLog where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "MemGroup"
    if SelectID<>"" then  conn.execute "delete from Ameav_MemGroup where GroupID in ('"&SelectID&"')"
	conn.execute "Update Ameav_About set GroupID='200603281858588888' , Exclusive='>=' WHERE GroupID = '"&SelectID&"'"
	conn.execute "Update Ameav_Download set GroupID='200603281858588888' , Exclusive='>=' WHERE GroupID = '"&SelectID&"'"
	conn.execute "Update Ameav_Members set GroupID='200603281858588888' , GroupName='临时游客' WHERE GroupID = '"&SelectID&"'"
	conn.execute "Update Ameav_Need set GroupID='200603281858588888' , Exclusive='>=' WHERE GroupID = '"&SelectID&"'"
	conn.execute "Update Ameav_News set GroupID='200603281858588888' , Exclusive='>=' WHERE GroupID = '"&SelectID&"'"
	conn.execute "Update Ameav_Others set GroupID='200603281858588888' , Exclusive='>=' WHERE GroupID = '"&SelectID&"'"
	conn.execute "Update Ameav_Products set GroupID='200603281858588888' , Exclusive='>=' WHERE GroupID = '"&SelectID&"'"
    response.redirect request.servervariables("http_referer")
  case "Members"
    if SelectID<>"" then  conn.execute "delete from Ameav_Members where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "About"
    if SelectID<>"" then  conn.execute "delete from Ameav_About where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Products"
    if SelectID<>"" then  conn.execute "delete from Ameav_Products where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")

  case "ProductsPl"
    if SelectID<>"" then  conn.execute "delete from ameav_pl where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")

  case "ProductIP"
    if SelectID<>"" then  conn.execute "delete from ameav_Voteip where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")

  case "News"
    if SelectID<>"" then  conn.execute "delete from Ameav_News where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Download"
    if SelectID<>"" then  conn.execute "delete from Ameav_Download where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Need"
    if SelectID<>"" then  conn.execute "delete from Ameav_Need where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "ADs"
    if SelectID<>"" then  conn.execute "delete from Ameav_ADs where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Jobs"
    if SelectID<>"" then  conn.execute "delete from Ameav_Jobs where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Message"
    if SelectID<>"" then  conn.execute "delete from Ameav_Message where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Order"
    if SelectID<>"" then  conn.execute "delete from Ameav_Order where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Supply"
    if SelectID<>"" then  conn.execute "delete from Ameav_Supply where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Talents"
    if SelectID<>"" then  conn.execute "delete from Ameav_Talents where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Navigation"
    if SelectID<>"" then  conn.execute "delete from Ameav_Navigation where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "FriendSite"
    if SelectID<>"" then  conn.execute "delete from Ameav_FriendSite where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Others"
    if SelectID<>"" then  conn.execute "delete from Ameav_Others where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "NoHackSql"
    if SelectID<>"" then  conn.execute "delete from Ameav_NoHackSql where SqlIn_ID in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case else
	
end select
%>