WEB源码(ASP,PHP,...)

开发平台：
ASP/ASPX

DelContent.asp：源码内容
							﻿<!--#include file="../skweb/Const.asp" -->
<!--#include file="../skweb/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 sk_Admin where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "LoginLog"
    if SelectID<>"" then  conn.execute "delete from sk_AdminLog where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "MemGroup"
    if SelectID<>"" then  conn.execute "delete from sk_MemGroup where GroupID in ('"&SelectID&"')"
	conn.execute "Update sk_About set GroupID='20080808080808888' , Exclusive='>=' WHERE GroupID = '"&SelectID&"'"
	conn.execute "Update sk_Download set GroupID='20080808080808888' , Exclusive='>=' WHERE GroupID = '"&SelectID&"'"
	conn.execute "Update sk_Members set GroupID='20080808080808888' , GroupName='企业会员' WHERE GroupID = '"&SelectID&"'"
	conn.execute "Update sk_News set GroupID='20080808080808888' , Exclusive='>=' WHERE GroupID = '"&SelectID&"'"
	conn.execute "Update sk_Products set GroupID='20080808080808888' , Exclusive='>=' WHERE GroupID = '"&SelectID&"'"
    response.redirect request.servervariables("http_referer")
  case "Members"
    if SelectID<>"" then  conn.execute "delete from sk_Members where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "About"
    if SelectID<>"" then  conn.execute "delete from sk_About where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Products"
    if SelectID<>"" then  conn.execute "delete from sk_Products where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "News"
    if SelectID<>"" then  conn.execute "delete from sk_News where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Download"
    if SelectID<>"" then  conn.execute "delete from sk_Download where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "ADs"
    if SelectID<>"" then  conn.execute "delete from sk_ADs where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Jobs"
    if SelectID<>"" then  conn.execute "delete from sk_Jobs where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Message"
    if SelectID<>"" then  conn.execute "delete from sk_Message where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Order"
    if SelectID<>"" then  conn.execute "delete from sk_Order where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Supply"
    if SelectID<>"" then  conn.execute "delete from sk_Supply where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Talents"
    if SelectID<>"" then  conn.execute "delete from sk_Talents where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Navigation"
    if SelectID<>"" then  conn.execute "delete from sk_Navigation where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "FriendSite"
    if SelectID<>"" then  conn.execute "delete from sk_FriendSite where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "NoHackSql"
    if SelectID<>"" then  conn.execute "delete from sk_NoHackSql where SqlIn_ID in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Vote"
    if Cint(Request("VoteID"))<>"" then  conn.execute "delete from sk_Vote where ID="&Cint(Request("VoteID"))
    response.redirect request.servervariables("http_referer")
	
  case else
	
end select
%>

						