📄 user_infodel.asp

📁 正版创力4.1SQL商业版!!!ASP版。
💻 ASP
字号:
<!--#include file="Inc/Const.asp"-->
<%
if ChannelID=0 then Cl.ShowErr("参数错误！")
if Not Cl.TrueChannelPurview_U(3,ChannelID) then Cl.ShowErr("<br /><li>您无此操作权限！</li>")
dim InfoID,Action,sqlDel,rsDel
Dim sModuleName
InfoID=Trim(request("InfoID"))
Action=Trim(Request("Action"))
Cl.Load_ChannelSetting(ChannelID)
Select Case Clng(Cl.Channel.selectSingleNode("@moduleid").text)
Case 1 : sModuleName = "Article"
Case 2 : sModuleName = "Soft"
Case 3 : sModuleName = "Photo"
Case 4 : sModuleName = "Movie"
Case 5 : sModuleName = "Product"
Case 6 : sModuleName = "Topic"
Case Else
	Cl.ShowErr("<br /><li>参数不足！</li>")
End Select
Select Case Action
Case "Del"
	DelInfo
'Case "ConfirmDel"
'	ConfirmDel
'Case "ClearRecyclebin"
'	ClearRecyclebin
Case "Restore"
	Restore
Case "RestoreAll"
	RestoreAll
Case "DelFromSpecial"
	DelFromSpecial
Case Else
	Cl.ShowErr("<br /><li>参数不足！</li>")
End Select
Cl.SaveAdminLog
CloseAllObj
Response.Redirect ComeUrl

Sub DelInfo()
	if InfoID="" then Cl.ShowErr("<br /><li>请先选定"&Cl.Channel.selectSingleNode("@channelitemname").text&"！</li>")
	Set rsDel= Server.CreateObject("ADODB.Recordset")
	if instr(InfoID,",")>0 then
		if Not Cl.TrueChannelPurview_U(1,ChannelID) then Cl.ShowErr("<br /><li>您无此操作权限！</li>")
		InfoID=replace(InfoID," ","")
		sqlDel="Select InfoID,Deleted,Editor From Cl_"&sModuleName&" where InfoID in (" & InfoID & ")"
		OpenConn : rsDel.open sqlDel,Conn,1,3
		Do while not rsDel.eof
			rsDel("Deleted")=TrueType
			rsDel.update
			Cl.Execute_U("update " & Db.UserTable & " set " & Db.DataCount & "=" & Db.DataCount & "-1 where " & Db.UserName & "='" & rsDel("Editor") & "'")
			rsDel.movenext
		Loop
	else
		sqlDel="Select InfoID,ClassID,Deleted,Editor From Cl_"&sModuleName&" where InfoID=" & Clng(InfoID)
		OpenConn : rsDel.open sqlDel,Conn,1,3
		if Not rsDel.eof then
			if Not Cl.TrueChannelPurview_U(1,ChannelID) then
				Dim sTr,sTPurview,tClass
				sTPurview=False
				set tClass=Cl.Execute("select ClassName,RootID,ParentID,Depth,ParentPath,Child,arrChildID From Cl_Class where ChannelID="&ChannelID&" and ClassID=" & rsDel("ClassID"))
				if tClass.bof and tClass.eof then
					tClass.Close :Set tClass=Nothing
					Cl.ShowErr("<br /><li>找不到指定的栏目</li>")
				else
					sTr=Split(tClass("ParentPath") & "," & rsDel("ClassID"),",")
					sTPurview=False
					for i=1 to Ubound(sTr)
						sTPurview=Cl.TrueClassPurview_U(1,ChannelID,sTr(i))
						if sTPurview=True then Exit For
					Next
					If sTPurview=False then
						rsDel.close : Set rsDel=Nothing
						Cl.ShowErr("<br /><li>找不到指定的栏目或您无此操作权限</li>")
					end if
				end if
				tClass.Close :Set tClass=Nothing
			End if
			rsDel("Deleted")=TrueType
			rsDel.update
			Cl.Execute_U("update " & Db.UserTable & " set " & Db.DataCount & "=" & Db.DataCount & "-1 where " & Db.UserName & "='" & rsDel("Editor") & "'")
		end if
	end if
	rsDel.close : Set rsDel=Nothing
End Sub

Sub ConfirmDel()
	if InfoID="" then Cl.ShowErr("<br /><li>请先选定"&Cl.Channel.selectSingleNode("@channelitemname").text&"！</li>")
	if Not Cl.TrueChannelPurview_U(1,ChannelID) then Cl.ShowErr("<br /><li>对不起，你的权限不够！</li>")
	InfoID=replace(InfoID," ","")
	if Trim(Cl.Web_Setting(7))="Yes" then DelUploadFiles(0)
	Cl.Execute("delete from Cl_"&sModuleName&" where InfoID in (" & InfoID & ")")
	Cl.Execute("delete from Cl_Comment where ChannelID="&ChannelID&" and InfoID in (" & InfoID & ")")
end sub

sub ClearRecyclebin()
	if Not Cl.TrueChannelPurview_u(1,ChannelID) then Cl.ShowErr("<br /><li>对不起，你的权限不够！</li>")
	if Trim(Cl.Web_Setting(7))="Yes" then DelUploadFiles(1)
	Cl.Execute("delete from Cl_"&sModuleName&" where Deleted="&TrueType&" or Status=-1")
	Dim i
	InfoID=sqlDel(0,0)
	For i=1 to Ubound(sqlDel,2)
		InfoID = InfoID & "," & sqlDel(0,i)
	Next
	sqlDel = ""
	Cl.Execute("delete from Cl_Comment where ChannelID="&ChannelID&" and InfoID in (" & InfoID & ")")
end sub

sub Restore()
	if InfoID="" then Cl.ShowErr("<br /><li>请先选定"&Cl.Channel.selectSingleNode("@channelitemname").text&"！</li>")
	InfoID=replace(InfoID," ","")
	if instr(InfoID,",")>0 then
		sqlDel="select InfoID,Deleted,Editor,Status from Cl_"&sModuleName&" where InfoID in (" & InfoID & ")"
	else
		InfoID=Clng(InfoID)
		sqlDel="select InfoID,Deleted,Editor,Status From Cl_"&sModuleName&" where InfoID=" & InfoID
	end if
	Set rsDel= Server.CreateObject("ADODB.Recordset")
	OpenConn : rsDel.open sqlDel,Conn,1,3
	do while not rsDel.eof
		rsDel("Deleted")=FalseType
		rsDel("Status")=0
		rsDel.update
		Cl.Execute_U("update " & Db.UserTable & " set " & Db.DataCount & "=" & Db.DataCount & "+1 where " & Db.UserName & "='" & rsDel("Editor") & "'")
		rsDel.movenext
	loop
	rsDel.close : Set rsDel=Nothing
end sub

sub RestoreAll()
	sqlDel="select InfoID,Deleted,Editor from Cl_"&sModuleName&" where Deleted="&TrueType&""
	Set rsDel= Server.CreateObject("ADODB.Recordset")
	OpenConn : rsDel.open sqlDel,Conn,1,3
	do while not rsDel.eof
		rsDel("Deleted")=FalseType
		rsDel.update
		Cl.Execute_U("update " & Db.UserTable & " set " & Db.DataCount & "=" & Db.DataCount & "+1 where " & Db.UserName & "='" & rsDel("Editor") & "'")
		rsDel.movenext
	loop
	rsDel.close : Set rsDel=Nothing
end sub

sub DelFromSpecial()
	InfoID=replace(InfoID," ","")
	Cl.Execute("Update Cl_"&sModuleName&" set SpecialID=0 where InfoID in (" & InfoID & ")")
end sub

Sub DelUploadFiles(sType)
	Dim sTemp,sDelUrl,n,i
	Set rsDel= Server.CreateObject("ADODB.Recordset")
	Select Case Clng(Cl.Channel.selectSingleNode("@moduleid").text)
	Case 1
		if sType=0 then
			sqlDel = "Select InfoID,PicUrl,IsHTML,HTMLfileUrl From Cl_Article where InfoID in (" & InfoID & ")"
		else
			sqlDel = "Select InfoID,PicUrl,IsHTML,HTMLfileUrl From Cl_Article where Deleted="&TrueType&""
		end if
		OpenConn : rsDel.open sqlDel,Conn,1,3
		if Not rsDel.eof then
			sqlDel = rsDel.GetRows(-1)
			For i=0 to Ubound(sqlDel,2)
				if Lcase(left(sqlDel(1,i),7))<>"http://" then
					Call Cl.DelFiles(Cl.ReplaceDir(sqlDel(1,i)))
				end if
				if sqlDel(2,i)=True then
					Call Cl.DelFiles(Replace(Cl.WebDir & sqlDel(3,i),"//","/"))
				end if
			Next
		end if
		rsDel.close
	Case 2
		if sType=0 then
			sqlDel="Select InfoID,PicUrl,DownloadUrl,IsHTML,HTMLfileUrl from Cl_Soft where InfoID in (" & InfoID & ")"
		else
			sqlDel="Select InfoID,PicUrl,DownloadUrl,IsHTML,HTMLfileUrl from Cl_Soft where Deleted="&TrueType&""
		end if
		OpenConn : rsDel.open sqlDel,Conn,1,3
		if Not rsDel.eof then
			sqlDel = rsDel.GetRows(-1)
			For i=0 to Ubound(sqlDel,2)
				if Lcase(left(sqlDel(1,i),7))<>"http://" then
					Call Cl.DelFiles(Cl.ReplaceDir(sqlDel(1,i)))
				end if
				On Error Resume next
				if Instr(sqlDel(2,i),"@@@")>0 then
					sTemp=Split(sqlDel(2,i),"@@@")
					for n=0 to Ubound(sTemp)
						sDelUrl=Split(sTemp(n),"|")(1)
						if Lcase(left(sDelUrl,7))<>"http://" then
							Call Cl.DelFiles(Cl.ReplaceDir(sDelUrl))
						end if
					next
				else
					sDelUrl=Split(sqlDel(2,i),"|")(1)
					if Lcase(left(sDelUrl,7))<>"http://" then
						Call Cl.DelFiles(Cl.ReplaceDir(sDelUrl))
					end if
				end if
				On Error GoTo 0
				if sqlDel(3,i)=True then
					Call Cl.DelFiles(Replace(Cl.WebDir & sqlDel(4,i),"//","/"))
				end if
			Next
		End If
		rsDel.close
	Case 3
		if sType=0 then
			sqlDel="Select InfoID,PicUrl,PhotoUrl,IsHTML,HTMLfileUrl from Cl_Photo where InfoID in (" & InfoID & ")"
		else
			sqlDel="Select InfoID,PicUrl,PhotoUrl,IsHTML,HTMLfileUrl from Cl_Photo where Deleted="&TrueType&""
		end if
		OpenConn : rsDel.open sqlDel,Conn,1,3
		if Not rsDel.eof then
			sqlDel = rsDel.GetRows(-1)
			For i=0 to Ubound(sqlDel,2)
				if Lcase(left(sqlDel(1,i),7))<>"http://" then
					Call Cl.DelFiles(Cl.ReplaceDir(sqlDel(1,i)))
				end if
				On Error Resume next
				if Instr(sqlDel(2,i),"@@@")>0 then
					sTemp=Split(sqlDel(2,i),"@@@")
					for n=0 to Ubound(sTemp)
						sDelUrl=Split(sTemp(n),"|")(1)
						if Lcase(left(sDelUrl,7))<>"http://" then
							Call Cl.DelFiles(Cl.ReplaceDir(sDelUrl))
						end if
					next
				else
					sDelUrl=Split(sqlDel(2,i),"|")(1)
					if Lcase(left(sDelUrl,7))<>"http://" then
						Call Cl.DelFiles(Cl.ReplaceDir(sDelUrl))
					end if
				end if
				On Error GoTo 0
				if sqlDel(3,i)=True then
					Call Cl.DelFiles(Replace(Cl.WebDir & sqlDel(4,i),"//","/"))
				end if
			Next
		End If
		rsDel.close
	Case 4
		if sType=0 then
			sqlDel="Select InfoID,PicUrl,MovieUrl,IsHTML,HTMLfileUrl from Cl_Movie where InfoID in (" & InfoID & ")"
		else
			sqlDel="Select InfoID,PicUrl,MovieUrl,IsHTML,HTMLfileUrl from Cl_Movie where Deleted="&TrueType&""
		end if
		OpenConn : rsDel.open sqlDel,Conn,1,3
		if Not rsDel.eof then
			sqlDel = rsDel.GetRows(-1)
			For i=0 to Ubound(sqlDel,2)
				if Lcase(left(sqlDel(1,i),7))<>"http://" then
					Call Cl.DelFiles(Cl.ReplaceDir(sqlDel(1,i)))
				end if
				On Error Resume next
				if Instr(sqlDel(2,i),"@@@")>0 then
					sTemp=Split(sqlDel(2,i),"@@@")
					for n=0 to Ubound(sTemp)
						sDelUrl=Split(sTemp(n),"|")(1)
						if Lcase(left(sDelUrl,7))<>"http://" then
							Call Cl.DelFiles(Cl.ReplaceDir(sDelUrl))
						end if
					next
				else
					sDelUrl=Split(sqlDel(2,i),"|")(1)
					if Lcase(left(sDelUrl,7))<>"http://" then
						Call Cl.DelFiles(Cl.ReplaceDir(sDelUrl))
					end if
				end if
				On Error GoTo 0
				if sqlDel(3,i)=True then
					Call Cl.DelFiles(Replace(Cl.WebDir & sqlDel(4,i),"//","/"))
				end if
			Next
		End If
		rsDel.close
	Case 5
		if sType=0 then
			sqlDel="Select InfoID,PicUrl,ProductUrl,IsHTML,HTMLfileUrl from Cl_Product where InfoID in (" & InfoID & ")"
		else
			sqlDel="Select InfoID,PicUrl,ProductUrl,IsHTML,HTMLfileUrl from Cl_Product where Deleted="&TrueType&""
		end if
		OpenConn : rsDel.open sqlDel,Conn,1,3
		if Not rsDel.eof then
			sqlDel = rsDel.GetRows(-1)
			For i=0 to Ubound(sqlDel,2)
				if Lcase(left(sqlDel(1,i),7))<>"http://" then
					Call Cl.DelFiles(Cl.ReplaceDir(sqlDel(1,i)))
				end if
				On Error Resume next
				if Instr(sqlDel(2,i),"@@@")>0 then
					sTemp=Split(sqlDel(2,i),"@@@")
					for n=0 to Ubound(sTemp)
						sDelUrl=Split(sTemp(n),"|")(1)
						if Lcase(left(sDelUrl,7))<>"http://" then
							Call Cl.DelFiles(Cl.ReplaceDir(sDelUrl))
						end if
					next
				else
					sDelUrl=Split(sqlDel(2,i),"|")(1)
					if Lcase(left(sDelUrl,7))<>"http://" then
						Call Cl.DelFiles(Cl.ReplaceDir(sDelUrl))
					end if
				end if
				On Error GoTo 0
				if sqlDel(3,i)=True then
					Call Cl.DelFiles(Replace(Cl.WebDir & sqlDel(4,i),"//","/"))
				end if
			Next
		End If
		rsDel.close
	Case 6
	Case Else
		Cl.ShowErr("<br /><li>参数不足！</li>")
	End Select
	set rsDel=Nothing
End Sub

%>
<%
'<!--
'┌───────────────────────────────────────────────────────┐
'│														 │
'│		CreateLive CMS Version 4.0						 │
'│　　　　　　　　				Powered by Aspoo.CN	 	 │
'│　		　　　　　　　　　　						 │
'│　	邮箱: support@aspoo.cn		Info@aspoo.cn　　	 │
'│		ＱＱ: 3315263				596197794			 │
'│		网站: www.aspoo.cn			www.aspoo.com		 │
'│		论坛: bbs.aspoo.cn			bbs.aspoo.com		 │
'│														 │
'│	Copyright (C) 2005-2007 Aspoo.CN All Rights Reserved.	 │
'└───────────────────────────────────────────────────────┘
'-->
%>
💿 文件大小 3960 K
👤 上传用户 choatehou4
📂 所属分类其他
🏷️ 相关标签

#4.1 #SQL #ASP #正
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -