delcontent.asp

一个简单的小程序

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% Option Explicit %>
<!--#include file="../Include/Const.asp" -->
<!--#include file="../Include/ConnSiteData.asp" -->
<!--#include file="CheckAdmin.asp"-->

<%
dim Result,Selectid,idarr,i
Result=request.QueryString("Result")
SelectID=request.Form("SelectID")
select case Result
  case "Administrators"
    if SelectID<>"" then  conn.execute "delete from LiangJingCMS_Admin where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "LoginLog"
    if SelectID<>"" then  conn.execute "delete from LiangJingCMS_AdminLog where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "MemGroup"
    if SelectID<>"" then  conn.execute "delete from LiangJingCMS_MemGroup where GroupID in ('"&SelectID&"')"
	conn.execute "Update LiangJingCMS_About set GroupID='200603281858588888' , Exclusive='>=' WHERE GroupID = '"&SelectID&"'"
	conn.execute "Update LiangJingCMS_Download set GroupID='200603281858588888' , Exclusive='>=' WHERE GroupID = '"&SelectID&"'"
	conn.execute "Update LiangJingCMS_Members set GroupID='200603281858588888' , GroupName='临时游客' WHERE GroupID = '"&SelectID&"'"
	conn.execute "Update LiangJingCMS_News set GroupID='200603281858588888' , Exclusive='>=' WHERE GroupID = '"&SelectID&"'"
	conn.execute "Update LiangJingCMS_Others set GroupID='200603281858588888' , Exclusive='>=' WHERE GroupID = '"&SelectID&"'"
	conn.execute "Update LiangJingCMS_Products set GroupID='200603281858588888' , Exclusive='>=' WHERE GroupID = '"&SelectID&"'"
    response.redirect request.servervariables("http_referer")
  case "Members"
    if SelectID<>"" then  conn.execute "delete from LiangJingCMS_Members where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "About"
    if SelectID<>"" then  
		'调用删除文章中相关文件	代码开始
	if instr(SelectID,",")>0 then
		idArr=split(SelectID)
		for i = 0 to ubound(idArr)
			call DelArticlepic(clng(idarr(i)))
		next
	else
		call DelArticlepic(clng(SelectID))
	end if
	'调用删除文章中相关文件	代码结束
	conn.execute "delete from LiangJingCMS_About where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
	end if
  case "Products"
    if SelectID<>"" then 
	'删除产品大小图开始
	if DelUpFiles="Yes"  then 
	   dim rs,sql,fso,strUploadFiles,arrUploadFiles
       Set rs= Server.CreateObject("ADODB.Recordset")
       sql= "select * from LiangJingCMS_Products where id in ("&SelectID&")"
       rs.open sql,conn,1,3
	   strUploadFiles=rs("UploadFiles")
       if not rs.eof then 
         while not rs.eof 
           if rs("bigpic")<>"" then
             Set fso = CreateObject("Scripting.FileSystemObject")
               if fso.FileExists(Server.Mappath(rs("bigpic"))) then 
               fso.deletefile(Server.Mappath(rs("bigpic")))
               end if
               Set fso = nothing
           end if 
		    if rs("smallpic")<>"" then 
             Set fso = CreateObject("Scripting.FileSystemObject")
               if fso.FileExists(Server.Mappath(rs("smallpic"))) then 
               fso.deletefile(Server.Mappath(rs("smallpic")))
               end if
               Set fso = nothing
           end if 
         rs.movenext 
         wend 
        end if
	'删除产品大小图结束

	'调用删除文章中相关文件	代码开始
	   if instr(SelectID,",")>0 then
		idArr=split(SelectID)
		for i = 0 to ubound(idArr)
			call DelArticlepic(clng(idarr(i)))
		next
	  else
		call DelArticlepic(clng(SelectID))
	  end if
	end if 
	'调用删除文章中相关文件	代码结束
    conn.execute "delete from LiangJingCMS_Products where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
	end if
  case "News"
    if SelectID<>"" then  
		'调用删除文章中相关文件	代码开始
	if instr(SelectID,",")>0 then
		idArr=split(SelectID)
		for i = 0 to ubound(idArr)
			call DelArticlepic(clng(idarr(i)))
		next
	else
		call DelArticlepic(clng(SelectID))
	end if
	'调用删除文章中相关文件	代码结束
	conn.execute "delete from LiangJingCMS_News where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
	end if
  case "Download"
    if SelectID<>"" then  
		'调用删除文章中相关文件	代码开始
	if instr(SelectID,",")>0 then
		idArr=split(SelectID)
		for i = 0 to ubound(idArr)
			call DelArticlepic(clng(idarr(i)))
		next
	else
		call DelArticlepic(clng(SelectID))
	end if
	'调用删除文章中相关文件	代码结束
	conn.execute "delete from LiangJingCMS_Download where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
	end if
  case "ADs"
    if SelectID<>"" then  
		'调用删除文章中相关文件	代码开始
	if instr(SelectID,",")>0 then
		idArr=split(SelectID)
		for i = 0 to ubound(idArr)
			call DelArticlepic(clng(idarr(i)))
		next
	else
		call DelArticlepic(clng(SelectID))
	end if
	'调用删除文章中相关文件	代码结束
	conn.execute "delete from LiangJingCMS_ADs where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
	end if
  case "Jobs"
    if SelectID<>"" then  conn.execute "delete from LiangJingCMS_Jobs where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Message"
    if SelectID<>"" then  conn.execute "delete from LiangJingCMS_Message where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Order"
    if SelectID<>"" then conn.execute "delete from LiangJingCMS_Order where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Talents"
    if SelectID<>"" then  conn.execute "delete from LiangJingCMS_Talents where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Navigation"
    if SelectID<>"" then  conn.execute "delete from LiangJingCMS_Navigation where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "FriendLink"
    if SelectID<>"" then  
		'调用删除文章中相关文件	代码开始
	if instr(SelectID,",")>0 then
		idArr=split(SelectID)
		for i = 0 to ubound(idArr)
			call DelArticlepic(clng(idarr(i)))
		next
	else
		call DelArticlepic(clng(SelectID))
	end if
	'调用删除文章中相关文件	代码结束
	conn.execute "delete from LiangJingCMS_FriendLink where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
	end if
  case "Others"
    if SelectID<>"" then  
		'调用删除文章中相关文件	代码开始
	if instr(SelectID,",")>0 then
		idArr=split(SelectID)
		for i = 0 to ubound(idArr)
			call DelArticlepic(clng(idarr(i)))
		next
	else
		call DelArticlepic(clng(SelectID))
	end if
	'调用删除文章中相关文件	代码结束
	conn.execute "delete from LiangJingCMS_Others where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
	end if
  case "NoHackSql"
    if SelectID<>"" then  conn.execute "delete from LiangJingCMS_NoHackSql where SqlIn_ID in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case else
	
end select

'删除文章中相关文件执行代码
sub DelArticlepic(SelectID)
	   dim rs,sql,fso,strUploadFiles,arrUploadFiles,i
       Set rs= Server.CreateObject("ADODB.Recordset")
       sql= "select * from LiangJingCMS_"&Result&" where id in ("&SelectID&")"
       rs.open sql,conn,1,3
	   strUploadFiles=rs("UploadFiles")
			if strUploadFiles<>"" then
				Set fso = CreateObject("Scripting.FileSystemObject")
				if instr(strUploadFiles,"|")>1 then
					arrUploadFiles=split(strUploadFiles,"|")
					for i=0 to ubound(arrUploadFiles)
						if fso.FileExists(server.MapPath("" & arrUploadfiles(i))) then
							fso.DeleteFile(server.MapPath("" & arrUploadfiles(i)))
						end if
					next
				else
					if fso.FileExists(server.MapPath("" & strUploadfiles)) then
						fso.DeleteFile(server.MapPath("" & strUploadfiles))
					end if
				end if
				Set fso = nothing
			end if
end sub
'删除文章中相关文件执行代码结束
%>