delcontent.asp

asp源码 图片ASP整站

				Conn.Execute(Sql)
				'更新缓存
				Set ClassCache = New Cls_FsCache
				ClassCache.Name="ClassCache"
				ClassCache.ReLoadCache("")
				Set ClassCache=Nothing

				if Err.Number = 0 then
					Alert ""
				else
					Alert "放入回收站失败"
				end if
			end if
		End If
	Next
	Set JSClassObj = Nothing
End Function
Function DelNews(DelNewsID,OpType)
	Dim Sql,RikerClassIDObj,TempRikerID,RikerFileName,RikerFreeJsFileObj,RikerCreaFreeJsEName,RikerCreaFreeJsManner,JSClassObj
	'On Error Resume Next
	Dim DelNewsIDArray,DN_i
	Dim Inti,TempContentStr,IntStrNum,IntDelPagesNum,AppendStr
	DelNewsIDArray = Array("")
	DelNewsIDArray = Split(DelNewsID,"***")
	Set JSClassObj = New JSClass
	JSClassObj.SysRootDir = DelNewsSysRootDir

	For DN_i = 0 to UBound(DelNewsIDArray)
		if OpType = "Del" then
			Sql = "Delete from FS_News where NewsID='" & DelNewsIDArray(DN_i) & "'"
			'------------------------删除新闻物理文件-------------------
			Dim DelNewsClassFileObj,DelNewsFileObj,TempDelPath

			Set DelNewsFileObj = Conn.Execute("Select Content,Path,FileName,FileExtName,ClassID from FS_News where NewsID='"&DelNewsIDArray(DN_i)&"'")
			If Not DelNewsFileObj.eof then
				Set DelNewsClassFileObj = Conn.execute("Select ClassEName,SaveFilePath from FS_NewsClass where ClassID='"&DelNewsFileObj("ClassID")&"'")
				If Not DelNewsFileObj.eof then
				'========================
				'计算此新闻一共分了多少页
				TempContentStr=DelNewsFileObj("Content")
				Inti=0
				IntStrNum=0
				do while instr(Inti+1,TempContentStr,"[Page]")<>0
					Inti=instr(Inti+1,TempContentStr,"[Page]")
					IntStrNum=IntStrNum+1
				Loop
				'=======================
				'///////////////////////l
					Dim TempSaveFilePath
					If DelNewsClassFileObj("SaveFilePath")="/" then
						TempSaveFilePath=""
					Else
						TempSaveFilePath=DelNewsClassFileObj("SaveFilePath")
					End If
					'新闻有多页时，删除的时候同时删除其他页新闻
					For IntDelPagesNum = 1 to IntStrNum+1
						If IntDelPagesNum=1 then
							AppendStr=""
						Else
							AppendStr="_"&Trim(Cstr(IntDelPagesNum))
						End If
						if Application(LoginCacheNameStr)(21)="1" then
							TempDelPath=DelNewsSysRootDir&TempSaveFilePath&"/"&DelNewsClassFileObj("ClassEName") & DelNewsFileObj("Path") & "/"&DelNewsFileObj("FileName")&AppendStr&"."&DelNewsFileObj("FileExtName")
						else
							TempDelPath=DelNewsSysRootDir&TempSaveFilePath&"/"&DelNewsClassFileObj("ClassEName")&"/"&DelNewsFileObj("FileName")&AppendStr&"."&DelNewsFileObj("FileExtName")
						end if
						If MyFile.FileExists(Server.Mappath(TempDelPath)) then
							MyFile.DeleteFile(Server.Mappath(TempDelPath))
						End if
					Next
				'///////////////
				End If
			End If
			'------------自由JS相关删除及重新生成----------------
			Set RikerClassIDObj = Conn.Execute("Select ClassID,FileName from FS_News where NewsID='"&DelNewsIDArray(DN_i)&"'")
			If Not RikerClassIDObj.eof then
				TempRikerID = RikerClassIDObj("ClassID")
				RikerFileName = RikerClassIDObj("FileName")
			End If
			RikerClassIDObj.Close
			Set RikerClassIDObj = Nothing
			
			Conn.Execute(Sql) '删除新闻

			Set RikerFreeJsFileObj = Conn.Execute("Select EName,Manner from FS_FreeJS where EName in (Select JSName from FS_FreeJsFile where FileName='"&RikerFileName&"')")
			RikerCreaFreeJsEName = ""
			RikerCreaFreeJsManner = ""
			do while Not RikerFreeJsFileObj.eof
				If RikerCreaFreeJsEName = "" then
					RikerCreaFreeJsEName = RikerFreeJsFileObj("EName")
					RikerCreaFreeJsManner = RikerFreeJsFileObj("Manner")
				Else
					RikerCreaFreeJsEName = RikerCreaFreeJsEName &","& RikerFreeJsFileObj("EName")
					RikerCreaFreeJsManner = RikerCreaFreeJsManner &","& RikerFreeJsFileObj("Manner")
				End If
					RikerFreeJsFileObj.MoveNext
			loop
			RikerFreeJsFileObj.Close
			Set RikerFreeJsFileObj = Nothing
			Conn.execute("Delete from FS_FreeJsFile where FileName='"&RikerFileName&"'")
			Dim RikerENameArr,RikerMannerArr,Riker_i
			RikerENameArr = Array("")
			RikerMannerArr = Array("")
			RikerENameArr = split(RikerCreaFreeJsEName,",")
			RikerMannerArr = split(RikerCreaFreeJsManner,",")
			For Riker_i=0 to UBound(RikerMannerArr)
				Select case RikerMannerArr(Riker_i)
					case "1"   JSClassObj.WCssA RikerENameArr(Riker_i),True
					case "2"   JSClassObj.WCssB RikerENameArr(Riker_i),True
					case "3"   JSClassObj.WCssC RikerENameArr(Riker_i),True
					case "4"   JSClassObj.WCssD RikerENameArr(Riker_i),True
					case "5"   JSClassObj.WCssE RikerENameArr(Riker_i),True
					case "6"   JSClassObj.PCssA RikerENameArr(Riker_i),True
					case "7"   JSClassObj.PCssB RikerENameArr(Riker_i),True
					case "8"  JSClassObj.PCssC RikerENameArr(Riker_i),True
					case "9"   JSClassObj.PCssD RikerENameArr(Riker_i),True
					case "10"   JSClassObj.PCssE RikerENameArr(Riker_i),True
					case "11"   JSClassObj.PCssF RikerENameArr(Riker_i),True
					case "12"   JSClassObj.PCssG RikerENameArr(Riker_i),True
					case "13"   JSClassObj.PCssH RikerENameArr(Riker_i),True
					case "14"   JSClassObj.PCssI RikerENameArr(Riker_i),True
					case "15"   JSClassObj.PCssJ RikerENameArr(Riker_i),True
					case "16"   JSClassObj.PCssK RikerENameArr(Riker_i),True
					case "17"   JSClassObj.PCssL RikerENameArr(Riker_i),True
				End Select
			Next
			'-----------------------------------------------------------
		else
			Sql = "Update FS_News Set DelTF=1,DelTime='"&Now()&"' where NewsID='" & DelNewsIDArray(DN_i) & "'"
			Conn.Execute(Sql)
			'------------自由JS相关删除及重新生成----------------
			Set RikerClassIDObj = Conn.Execute("Select ClassID,FileName from FS_News where NewsID='"&DelNewsIDArray(DN_i)&"'")
			If Not RikerClassIDObj.eof then
				TempRikerID = RikerClassIDObj("ClassID")
				RikerFileName = RikerClassIDObj("FileName")
				Conn.execute("Update FS_FreeJsFile set DelFlag=1 where FileName='"&RikerFileName&"'")
				'------------------重新生成相关系统栏目JS------------
				Dim RikerSysObj
				Set RikerSysObj = Conn.Execute("Select FileName from FS_SysJs where ClassID='"&TempRikerID&"'")
				If Not RikerSysObj.eof then
					CreateSysJS RikerSysObj("FileName")
				End If
				'------------------系统总JS相关------------
				'考虑中......
				'------------------自由JS------------------
				Set RikerFreeJsFileObj = Conn.Execute("Select EName,Manner from FS_FreeJS where EName in (Select JSName from FS_FreeJsFile where FileName='"&RikerFileName&"')")
				Do while Not RikerFreeJsFileObj.eof
					RikerCreaFreeJsEName = RikerFreeJsFileObj("EName")
					RikerCreaFreeJsManner = RikerFreeJsFileObj("Manner")
					Select case RikerCreaFreeJsManner
						case "1"   JSClassObj.WCssA RikerCreaFreeJsEName,True
						case "2"   JSClassObj.WCssB RikerCreaFreeJsEName,True
						case "3"   JSClassObj.WCssC RikerCreaFreeJsEName,True
						case "4"   JSClassObj.WCssD RikerCreaFreeJsEName,True
						case "5"   JSClassObj.WCssE RikerCreaFreeJsEName,True
						case "6"   JSClassObj.PCssA RikerCreaFreeJsEName,True
						case "7"   JSClassObj.PCssB RikerCreaFreeJsEName,True
						case "8"   JSClassObj.PCssC RikerCreaFreeJsEName,True
						case "9"   JSClassObj.PCssD RikerCreaFreeJsEName,True
						case "10"   JSClassObj.PCssE RikerCreaFreeJsEName,True
						case "11"   JSClassObj.PCssF RikerCreaFreeJsEName,True
						case "12"   JSClassObj.PCssG RikerCreaFreeJsEName,True
						case "13"   JSClassObj.PCssH RikerCreaFreeJsEName,True
						case "14"   JSClassObj.PCssI RikerCreaFreeJsEName,True
						case "15"   JSClassObj.PCssJ RikerCreaFreeJsEName,True
						case "16"   JSClassObj.PCssK RikerCreaFreeJsEName,True
						case "17"   JSClassObj.PCssL RikerCreaFreeJsEName,True
					End Select
					RikerFreeJsFileObj.MoveNext
				Loop
				RikerFreeJsFileObj.Close
				Set RikerFreeJsFileObj = Nothing
			End If
			RikerClassIDObj.Close
			Set RikerClassIDObj = Nothing
		end if
	Next
	Set JSClassObj = Nothing
	'------------------------------------------
	if Err.Number = 0 then
		Response.Write("<script>window.close();</script>")
		Response.End
	else
		Response.Write("<script>alert(""删除发生错误"");window.close();</script>")
		Response.End
	end if
End Function
Function DelDownLoad(DelDownLoadID,OpType)
  	Dim DelDownloadObj,DelDownClassObj,DDArray,DD_i
	DDArray = Array("")
	DDArray = Split(DelDownLoadID,"***")
	For DD_i = 0 to UBound(DDArray)
		Set DelDownloadObj = Conn.Execute("Select ClassID,FileName,FileExtName from FS_DownLoad where DownLoadID='"&DDArray(DD_i)&"'")
		If Not DelDownloadObj.eof then
			Set DelDownClassObj = Conn.Execute("Select ClassEName,SaveFilePath from FS_NewsClass where ClassID='"&DelDownloadObj("ClassID")&"'")
			If Not DelDownClassObj.eof then
				Dim TempSaveFilePath
				If DelDownClassObj("SaveFilePath")="/" then
					TempSaveFilePath=""
				Else
					TempSaveFilePath=DelDownClassObj("SaveFilePath")
				End If
				if MyFile.FileExists(Server.MapPath(DelNewsSysRootDir & TempSaveFilePath & "/"& DelDownClassObj("ClassEName")) & "/" & DelDownloadObj("FileName") & "." & DelDownloadObj("FileExtName")) then
					MyFile.DeleteFile (Server.MapPath(DelNewsSysRootDir & TempSaveFilePath & "/"& DelDownClassObj("ClassEName")) & "/" & DelDownloadObj("FileName") & "." & DelDownloadObj("FileExtName"))
				end if 
			End If
			DelDownClassObj.Close
			Set DelDownClassObj = Nothing
			Conn.Execute("Delete from FS_DownLoad where DownLoadID='" & DDArray(DD_i) & "'")
			Conn.Execute("Delete from FS_DownLoadAddress where DownLoadID='" & DDArray(DD_i) & "'")
		End If
		DelDownloadObj.Close
		Set DelDownloadObj = Nothing
	Next
End Function
Function ChildClassIDList(ClassID)
	Dim TempRs,TempStr
	Set TempRs = Conn.Execute("Select ClassID from FS_NewsClass where ParentID = '" & ClassID & "'")
	do while Not TempRs.Eof
		ChildClassIDList = ChildClassIDList & ",'" & TempRs("ClassID") & "'"
		ChildClassIDList = ChildClassIDList & ChildClassIDList(TempRs("ClassID"))
		TempRs.MoveNext
	loop
	TempRs.Close
	Set TempRs = Nothing
End Function
Function Alert(InfoStr)
	%>
	<script language="JavaScript">
	<% if InfoStr <> "" then %>
		alert('<% = InfoStr %>');
	<% end if %>
	var LocationStr=dialogArguments.location.href;
	<% if Operation = "DelClass" then %>
		LocationStr=AddLocationStr(LocationStr,'<% = ParentClassIDList(ClassID) %>','OpenClassIDList');
		dialogArguments.location=LocationStr;
	<% else %>
		dialogArguments.location.reload();
	<% end if %>
	window.close();
	function AddLocationStr(LocationStr,Value,SearchStr)
	{
		var SearchLocation=LocationStr.lastIndexOf(SearchStr);
		if (SearchLocation!=-1)
		{
			var TempSearchLocation=LocationStr.indexOf('&',SearchLocation);
			if (TempSearchLocation!=-1)
			{
				var TempLocationStr=LocationStr.slice(TempSearchLocation)
				LocationStr=LocationStr.slice(0,SearchLocation)+SearchStr+'='+Value+TempLocationStr;
			}
			else LocationStr=LocationStr.slice(0,SearchLocation)+SearchStr+'='+Value;
		}
		else
		{
			if (LocationStr.lastIndexOf('?')!=-1) LocationStr=LocationStr+'&'+SearchStr+'='+Value;
			else  LocationStr=LocationStr+'?'+SearchStr+'='+Value;
		}
		return LocationStr;
	}
	</script>
	<%
End Function
Function ParentClassIDList(ClassID)
	Dim TempRs,TempStr
	Set TempRs = Conn.Execute("Select ParentID from FS_NewsClass where ClassID = '" & ClassID & "'")
	Exit Function
	if Not TempRs.Eof then
		if TempRs("ParentID") <> "0" then
			ParentClassIDList =  TempRs("ParentID") & "," & ParentClassIDList
			ParentClassIDList = ParentClassIDList & ParentClassIDList(TempRs("ParentID"))
		end if
	end if
	TempRs.Close
	Set TempRs = Nothing
End Function
Set MyFile=nothing
Set Conn = Nothing
%>