📄 delcontent.asp

📁 asp源码图片ASP整站
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#include file="../../../Inc/NosqlHack.asp" -->
<!--#include file="../../../Inc/Const.asp" -->
<!--#include file="../../../Inc/Cls_DB.asp" -->
<!--#include file="../../../Inc/Cls_Cache.asp" -->
<!--#include file="../../../Inc/Function.asp" -->
<!--#include file="../Refresh/Function.asp" -->
<!--#include file="../Inc/Cls_JS.asp" -->
<%
Dim DBC,Conn,UserConn
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
DBC.ConnStr = "DBQ=" + Server.MapPath(UserDBConnectStr) + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set UserConn = DBC.OpenConnection()
Set DBC = Nothing
%>
<!--#include file="../Inc/Cls_RefreshJs.asp" -->
<!--#include file="../../../Inc/Session.asp" -->
<!--#include file="../../../Inc/CheckPopedom.asp" -->
<%
'==============================================================================
'软件名称：风讯网站信息管理系统
'当前版本：Foosun Content Manager System(FoosunCMS V3.2SP1)
'最新更新：2006.50
'==============================================================================
'Copyright (C) 2002-2004 Foosun.Net  All rights reserved.
'商业注册联系：028-85098980-601,项目开发：028-85098980-606、609,客户支持：608
'产品咨询QQ：394226379,159410,125114015
'技术支持QQ：315485710,66252421 
'项目开发QQ：415637671，655071
'程序开发：四川风讯科技发展有限公司(Foosun Inc.)
'Email:service@Foosun.cn
'MSN：skoolls@hotmail.com
'论坛支持：风讯在线论坛(http://bbs.foosun.net)
'官方网站：www.Foosun.cn  演示站点：test.cooin.com 
'网站通系列(智能快速建站系列)：www.ewebs.cn
'==============================================================================
'免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接
'风讯公司保留此程序的法律追究权利
'如需进行2次开发，必须经过风讯公司书面允许。否则将追究法律责任
'==============================================================================

if Not ((JudgePopedomTF(Session("Name"),"P010300")) OR (JudgePopedomTF(Session("Name"),"P010505"))) then Call ReturnError()
Dim NewsID,ClassID,DownLoadID,Operation,DelTypeStr
NewsID = Request("NewsID")
ClassID = Request("ClassID")
DownLoadID = Request("DownLoadID")
Operation = Request("Operation")
Dim DelNewsSysRootDir
if SysRootDir = "" then
	DelNewsSysRootDir = ""
else
	DelNewsSysRootDir = "/" & SysRootDir
end if
if Operation = "DelClass" then
	if Not JudgePopedomTF(Session("Name"),"P010300") then Call ReturnError()
	DelTypeStr = "栏目"
else
	if Not JudgePopedomTF(Session("Name"),"P010505") then Call ReturnError()
	DelTypeStr = "内容"
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>删除栏目或者新闻</title>
</head>
<link href="../../../CSS/ModeWindow.css" rel="stylesheet">
<body>
<table width="100%" border="0" cellspacing="8" cellpadding="0">
 <form name="DelForm" method="post" action="">
  <tr> 
    <td width="21%">
<div align="center"><img src="../../Images/Question.gif" width="39" height="37"></div></td>
    <td width="79%" colspan="2">彻底删除单击删除按钮，放入回收站单击回收站按钮。
      确定要删除吗?
      <input name="OperateType" type="hidden" id="OperateType">
      <input name="Result" type="hidden" id="Result" value="Submit">
      <input name="NewsID" type="hidden" id="NewsID" value="<% = NewsID %>">
      <input name="DownLoadID" type="hidden" id="DownLoadID" value="<% = DownLoadID %>">
      <input name="ClassID" type="hidden" id="ClassID" value="<% = ClassID %>"></td>
    </tr>
  <tr> 
    <td colspan="3">
<div align="center">
          <input onClick="document.DelForm.OperateType.value='Del';" name="Submitsadf" type="submit" id="Submitsadf" value=" 删 除 ">
          <input onClick="document.DelForm.OperateType.value='Recycle';" type="submit" name="Submit2" value=" 回收站 ">
          <input type="button" onClick="window.close();" name="Submit3" value=" 取 消 ">
      </div></td>
    </tr>
 </form>
</table>
</body>
</html>
<%
Dim Result,MyFile
Set MyFile=Server.CreateObject(G_FS_FSO)
Result = Request.Form("Result")
if Result = "Submit" then
	Dim OperateType
	OperateType = Request.Form("OperateType")
	if ClassID <> "" then
		if JudgePopedomTF(Session("Name"),"P010300") then DelClass ClassID,OperateType
	end if
	if NewsID <> "" then
		if JudgePopedomTF(Session("Name"),"P010505") then DelNews NewsID,OperateType
	end if
	if DownLoadID <> "" then
		if JudgePopedomTF(Session("Name"),"P010704") then DelDownLoad DownLoadID,OperateType
	end if
	Response.Write("<script>window.close();</script>")
end if
Function DelClass(DelClassID,OpType)
	Dim DelClassIDArray,D_i,JSClassObj
	Dim ClassCache
	DelClassIDArray = Array("")
	DelClassIDArray = Split(DelClassID,"***")
	Set JSClassObj = New JSClass
	JSClassObj.SysRootDir = DelNewsSysRootDir
	For D_i = 0 to UBound(DelClassIDArray)
		if JudgePopedomTF(Session("Name"),""&DelClassIDArray(D_i)&"") then 
			Dim AllClassID,Sql
			AllClassID = "'" & DelClassIDArray(D_i) & "'" & ChildClassIDList(DelClassIDArray(D_i))
			'On Error Resume Next
			if OpType = "Del" then
			 '删除自定义字段数据开始
   Conn.Execute("delete From FS_AuxiTable Where OwnerID ='" & DelNewsIDArray(DN_i) & "'")
				Sql = "Delete from FS_News where ClassID in (" & AllClassID & ")"
				Conn.Execute(Sql)
				if Err.Number <> 0 then Alert "删除栏目下的新闻失败"
				Sql = "Delete from FS_Contribution where ClassID in (" & AllClassID & ")"
				UserConn.Execute(Sql)
				if Err.Number <> 0 then Alert "删除栏目下的投稿失败"
				Set UserConn = Nothing
				Sql = "Delete from FS_DownLoad where ClassID in (" & AllClassID & ")"
				Conn.Execute(Sql)
				if Err.Number <> 0 then Alert "删除栏目下的下载失败"
				'----------删除自由js中的相关记录及重新生成相关JS文件(FreeJsFile)----------
				Dim RsDelFreeJsObj,TempClassIDStr,FreeJsArr,FreeJsObj,Free_i
				TempClassIDStr = ""
				Set RsDelFreeJsObj = Conn.Execute("Select distinct JSName from FS_FreeJsFile where ClassID in (" & AllClassID & ") ")
				do while Not RsDelFreeJsObj.eof
					If TempClassIDStr = "" then
						TempClassIDStr = RsDelFreeJsObj("JSName")
					Else
						TempClassIDStr = TempClassIDStr &","&RsDelFreeJsObj("JSName")
					End If
					RsDelFreeJsObj.MoveNext
				Loop
				RsDelFreeJsObj.Close
				Set RsDelFreeJsObj = Nothing
				Conn.Execute("Delete from FS_FreeJsFile where ClassID in (" & AllClassID & ")")
				FreeJsArr = Array("")
				FreeJsArr = Split(TempClassIDStr,",")
				For Free_i=0 to UBound(FreeJsArr)
					Set FreeJsObj = Conn.Execute("Select EName,Manner from FS_FreeJS where EName='"&FreeJsArr(Free_i)&"'")
				  Select case FreeJsObj("Manner")
					 case "1"   JSClassObj.WCssA FreeJsObj("EName"),True
					 case "2"   JSClassObj.WCssB FreeJsObj("EName"),True
					 case "3"   JSClassObj.WCssC FreeJsObj("EName"),True
					 case "4"   JSClassObj.WCssD FreeJsObj("EName"),True
					 case "5"   JSClassObj.WCssE FreeJsObj("EName"),True
					 case "6"   JSClassObj.PCssA FreeJsObj("EName"),True
					 case "7"   JSClassObj.PCssB FreeJsObj("EName"),True
					 case "8"   JSClassObj.PCssC FreeJsObj("EName"),True
					 case "9"   JSClassObj.PCssD FreeJsObj("EName"),True
					 case "10"   JSClassObj.PCssE FreeJsObj("EName"),True
					 case "11"   JSClassObj.PCssF FreeJsObj("EName"),True
					 case "12"   JSClassObj.PCssG FreeJsObj("EName"),True
					 case "13"   JSClassObj.PCssH FreeJsObj("EName"),True
					 case "14"   JSClassObj.PCssI FreeJsObj("EName"),True
					 case "15"   JSClassObj.PCssJ FreeJsObj("EName"),True
					 case "16"   JSClassObj.PCssK FreeJsObj("EName"),True
					 case "17"   JSClassObj.PCssL FreeJsObj("EName"),True
				   End Select
				   FreeJsObj.Close
				   Set FreeJsObj = Nothing
				Next
				if Err.Number <> 0 then Alert "删除栏目下的自由JS新闻失败"
				'---------删除栏目时删除系统JS中的相关记录及文件(SysJs)---------------------
				Dim RsSysJsObj
				Set RsSysJsObj = Conn.Execute("Select FileName,FileSavePath from FS_SysJs where ClassID in ("&AllClassID&")")
				do while Not RsSysJsObj.eof
					If MyFile.FileExists(Server.Mappath(DelNewsSysRootDir&RsSysJsObj("FileSavePath"))&"/"&RsSysJsObj("FileName")&".js") then
						MyFile.DeleteFile(Server.Mappath(DelNewsSysRootDir&RsSysJsObj("FileSavePath"))&"/"&RsSysJsObj("FileName")&".js")
					End if
					RsSysJsObj.MoveNext
				loop
				RsSysJsObj.Close
				Set RsSysJsObj = Nothing
				Conn.Execute("Delete from FS_SysJs where ClassID in ("&AllClassID&")")
				if Err.Number <> 0 then Alert "删除栏目的系统JS信息失败"
				'---------------------物理文件删除-------------------------------------
				Dim DelClassFileObj
				Set DelClassFileObj = Conn.Execute("Select ClassEName,SaveFilePath from FS_NewsClass where ClassID in ("&AllClassID&")")
				'修改 栏目保存路径为/，删除时物理文件没有删除的情况
				Do while Not DelClassFileObj.eof
					If DelClassFileObj("SaveFilePath")<>"/" then
						If MyFile.FolderExists(Server.Mappath(DelNewsSysRootDir&DelClassFileObj("SaveFilePath")&"/"&DelClassFileObj("ClassEName"))) then
							MyFile.DeleteFolder(Server.Mappath(DelNewsSysRootDir&DelClassFileObj("SaveFilePath")&"/"&DelClassFileObj("ClassEName")))
						End if
					Else
						If MyFile.FolderExists(Server.Mappath(DelNewsSysRootDir&"/"&DelClassFileObj("ClassEName"))) then
							MyFile.DeleteFolder(Server.Mappath(DelNewsSysRootDir&"/"&DelClassFileObj("ClassEName")))
						End if
					End If
					DelClassFileObj.MoveNext
				Loop
				DelClassFileObj.Close
				Set DelClassFileObj = Nothing
				'----------------------------------------------------------------------
				Sql = "Delete from FS_NewsClass where ClassID in (" & AllClassID & ")"
				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
			else
				'----------将自由js中的相关记录放入回收站及重新生成相关JS文件(FreeJsFile)----------
				TempClassIDStr = ""
				Set RsDelFreeJsObj = Conn.Execute("Select distinct JSName from FS_FreeJsFile where ClassID in (" & AllClassID & ") ")
				do while Not RsDelFreeJsObj.eof
					If TempClassIDStr = "" then
						TempClassIDStr = RsDelFreeJsObj("JSName")
					Else
						TempClassIDStr = TempClassIDStr &","&RsDelFreeJsObj("JSName")
					End If
					RsDelFreeJsObj.MoveNext
				Loop
				RsDelFreeJsObj.Close
				Set RsDelFreeJsObj = Nothing
				Conn.Execute("Update FS_FreeJsFile Set DelFlag=1 where ClassID in (" & AllClassID & ")")
				FreeJsArr = Array("")
				FreeJsArr = split(TempClassIDStr,",")
				For Free_i=0 to UBound(FreeJsArr)
					Set FreeJsObj = Conn.Execute("Select EName,Manner from FS_FreeJS where EName='"&FreeJsArr(Free_i)&"'")
				  Select case FreeJsObj("Manner")
					 case "1"   JSClassObj.WCssA FreeJsObj("EName"),True
					 case "2"   JSClassObj.WCssB FreeJsObj("EName"),True
					 case "3"   JSClassObj.WCssC FreeJsObj("EName"),True
					 case "4"   JSClassObj.WCssD FreeJsObj("EName"),True
					 case "5"   JSClassObj.WCssE FreeJsObj("EName"),True
					 case "6"   JSClassObj.PCssA FreeJsObj("EName"),True
					 case "7"   JSClassObj.PCssB FreeJsObj("EName"),True
					 case "8"   JSClassObj.PCssC FreeJsObj("EName"),True
					 case "9"   JSClassObj.PCssD FreeJsObj("EName"),True
					 case "10"   JSClassObj.PCssE FreeJsObj("EName"),True
					 case "11"   JSClassObj.PCssF FreeJsObj("EName"),True
					 case "12"   JSClassObj.PCssG FreeJsObj("EName"),True
					 case "13"   JSClassObj.PCssH FreeJsObj("EName"),True
					 case "14"   JSClassObj.PCssI FreeJsObj("EName"),True
					 case "15"   JSClassObj.PCssJ FreeJsObj("EName"),True
					 case "16"   JSClassObj.PCssK FreeJsObj("EName"),True
					 case "17"   JSClassObj.PCssL FreeJsObj("EName"),True
				   End Select
				   FreeJsObj.Close
				   Set FreeJsObj = Nothing
				Next
				if Err.Number <> 0 then Alert "删除栏目下的自由JS新闻失败"
				'---------删除栏目时删除系统JS中的相关记录及文件(SysJs)--------
				Set RsSysJsObj = Conn.Execute("Select FileName,FileSavePath from FS_SysJs where ClassID in ("&AllClassID&")")
				do while Not RsSysJsObj.eof
					If MyFile.FileExists(Server.Mappath(DelNewsSysRootDir&RsSysJsObj("FileSavePath"))&"/"&RsSysJsObj("FileName")&".js") then
						MyFile.DeleteFile(Server.Mappath(DelNewsSysRootDir&RsSysJsObj("FileSavePath"))&"/"&RsSysJsObj("FileName")&".js")
					End if
					RsSysJsObj.MoveNext
				loop
				RsSysJsObj.Close
				Set RsSysJsObj = Nothing
				Conn.Execute("Delete from FS_SysJs where ClassID in ("&AllClassID&")")
				if Err.Number <> 0 then Alert "删除栏目的系统JS信息失败"
				'-----------------------------------------------------------------
				Sql = "UpDate FS_News Set DelTF=1,DelTime='"&Now()&"' where ClassID in (" & AllClassID & ")"
				Conn.Execute(Sql)
				if Err.Number <> 0 then Alert "栏目下的新闻放入回收站失败"
				Sql = "UpDate FS_NewsClass Set DelFlag=1,DelTime='"&Now()&"' where ClassID in (" & AllClassID & ")"
12 下一页
⌨️ 快捷键说明

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