⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 revert.asp

📁 asp源码 图片ASP整站
💻 ASP
字号:
🔍 
<% Option Explicit %>
<!--#include file="../../../Inc/NosqlHack.asp" -->
<!--#include file="../../../Inc/Const.asp" -->
<!--#include file="../../../Inc/Cls_DB.asp" -->
<!--#include file="../../../Inc/Function.asp" -->
<!--#include file="../Inc/Cls_JS.asp" -->
<%
'==============================================================================
'软件名称：风讯网站信息管理系统
'当前版本：Foosun Content Manager System(FoosunCMS V3.2SP1)
'最新更新：2006.5
'==============================================================================
'商业注册联系：028-85098980-601,602 技术支持：028-85098980-606、607,客户支持：608
'产品咨询QQ：159410,655071,66252421
'技术支持:所有程序使用问题，请提问到bbs.foosun.net我们将及时回答您
'程序开发：风讯开发组 & 风讯插件开发组
'论坛支持：风讯在线论坛(http://bbs.foosun.net)
'官方网站：www.Foosun.net  演示站点：test.cooin.com    
'网站建设专区：www.cooin.com
'==============================================================================
'免费版本请在新闻首页保留版权信息，并做上本站LOGO友情连接
'==============================================================================
Dim DBC,Conn
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
Set DBC = Nothing
%>
<!--#include file="../../../Inc/Session.asp" -->
<!--#include file="../../../Inc/CheckPopedom.asp" -->
<%
if Not JudgePopedomTF(Session("Name"),"P070101") then Call ReturnError()
Dim TempSysRootDir
Dim a 
Set a = new JSClass
if SysRootDir = "" then
	TempSysRootDir = ""
	a.SysRootDir=""
else
	TempSysRootDir = "/" & SysRootDir
	a.SysRootDir="\" & SysRootDir
end if

Dim OperateType,ID
Dim Sql,RsTempObj,PromptInfo
OperateType = Request("OperateType")
ID = Request("ID")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>信息还原</title>
</head>
<link href="../../../CSS/ModeWindow.css" rel="stylesheet">
<body scrolling=no>
<table width="100%" border="0" cellspacing="5" cellpadding="0">
  <tr> 
    <td width="29%" height="30" align="center"><img src="../../Images/Question.gif" width="39" height="37"> 
    </td>
    <td width="71%" align="center"><div align="left">
        <%
if OperateType = "Class" then
	Sql = "Select ClassCName,ClassID,ParentID from FS_NewsClass where ClassID='" & ID & "'"
	PromptInfo = "栏目"
elseif OperateType = "News" then
	Sql = "Select Title,NewsID,ClassID from FS_News where NewsID='" & ID & "'"
	PromptInfo = "新闻"
else
	Sql = ""
end if
if Sql <> "" then
	Set RsTempObj = Conn.Execute(Sql)
	if Not RsTempObj.Eof then
		Dim ResponseStr
		if PromptInfo = "栏目" then
			if RsTempObj("ParentID") <> "0" then
				Sql = "Select ClassID,DelFlag from FS_NewsClass Where ClassID='" & RsTempObj("ParentID") & "'"
				RsTempObj.Close
				Set RsTempObj = Conn.Execute(Sql)
				if RsTempObj.Eof then
					ResponseStr = "栏目的父栏目已经被删除，请选择目的栏目<select name=""ParentID""><option value=""0"">根栏目</option>" & ClassList & "</select>"
				else
					if RsTempObj("DelFlag") = 1 then
						ResponseStr = "栏目的父栏目在回收站，请选择目的栏目<select name=""ParentID""><option value=""0"">根栏目</option>" & ClassList & "</select>"
					else
						ResponseStr = "确定要还原此栏目吗？"
					end if
				end if
			else
				ResponseStr = "确定要还原此栏目吗？"
			end if
			Response.Write(ResponseStr)
		else
			Sql = "Select ClassID,DelFlag from FS_NewsClass where ClassID='" & RsTempObj("ClassID") & "'"
			Set RsTempObj = Conn.Execute(Sql)
			if RsTempObj.Eof then
				ResponseStr = "新闻栏目已经被删除，请选择目的栏目<select name=""ParentID"">" & ClassList & "</select>"
			else
				if RsTempObj("DelFlag") = 1 then
					ResponseStr = "新闻栏目在回收站，请选择目的栏目<select name=""ParentID"">" & ClassList & "</select>"
				else
					ResponseStr = "确定要还原此新闻吗？"
				end if
			end if
			Response.Write(ResponseStr)
		end if
	else
%>
          <script language="JavaScript">
alert('此<% = PromptInfo %>已经被删除');
window.close();
        </script>
        <%
	end if
else
%>
          <script language="JavaScript">
alert('参数传递错误');
window.close();
        </script>
        <%
end if
%>
    </div></td>
  </tr>
  <tr> 
    <td height="30" colspan="2"><div align="center"> 
        <input onClick="SubmitFun();" type="button" name="Submit" value=" 确 定 ">
        <input type="button" onClick="window.close();" name="Submit2" value=" 取 消 ">
      </div></td>
  </tr>
</table>
</body>
</html>
<%
Dim Result
Result = Request("Result")
if Result = "Submit" then
	Dim ParentID
	ParentID = Request("ParentID")
	'On Error Resume Next
	if OperateType = "Class" then
		if ParentID = "" then
			Sql = "Update FS_NewsClass Set DelFlag=0 where ClassID='" & ID & "'"
		else
			Sql = "Update FS_NewsClass Set DelFlag=0,ParentID='" & ParentID & "' where ClassID='" & ID & "'"
		end if
		Conn.Execute(Sql)
		Sql = "UpDate FS_News Set DelTF=0 where ClassID='" & ID & "'"
		Conn.Execute(Sql)
		Conn.Execute("Update FS_FreeJsFile set DelFlag=0 where ClassID='"&ID&"'")
		'-----------重新生成相关自由JS文件---------------------
		Dim RevertFreeJsObj,TempClassIDStrs,FreeJsObj
		TempClassIDStrs = ""
		Set RevertFreeJsObj = Conn.Execute("Select distinct JSName from FS_FreeJsFile where ClassID='" & ID & "'")
		Do while Not RevertFreeJsObj.eof
			Set FreeJsObj = Conn.Execute("Select EName,Manner from FS_FreeJS where EName='"&RevertFreeJsObj("JSName")&"'")
		    If Not FreeJsObj.eof then
			Select case FreeJsObj("Manner")
			 case "1"   a.WCssA FreeJsObj("EName"),True
			 case "2"   a.WCssB FreeJsObj("EName"),True
			 case "3"   a.WCssC FreeJsObj("EName"),True
			 case "4"   a.WCssD FreeJsObj("EName"),True
			 case "5"   a.WCssE FreeJsObj("EName"),True
			 case "6"   a.PCssA FreeJsObj("EName"),True
			 case "7"   a.PCssB FreeJsObj("EName"),True
			 case "8"   a.PCssC FreeJsObj("EName"),True
			 case "9"   a.PCssD FreeJsObj("EName"),True
			 case "10"   a.PCssE FreeJsObj("EName"),True
			 case "11"   a.PCssF FreeJsObj("EName"),True
			 case "12"   a.PCssG FreeJsObj("EName"),True
			 case "13"   a.PCssH FreeJsObj("EName"),True
			 case "14"   a.PCssI FreeJsObj("EName"),True
			 case "15"   a.PCssJ FreeJsObj("EName"),True
			 case "16"   a.PCssK FreeJsObj("EName"),True
			 case "17"   a.PCssL FreeJsObj("EName"),True
		   End Select
		   End If
		   FreeJsObj.Close
		   Set FreeJsObj = Nothing
		
			RevertFreeJsObj.MoveNext
		Loop
		RevertFreeJsObj.Close
		Set RevertFreeJsObj = Nothing
		'------------------------------------------------------
		if Err.Number = 0 then
			Response.Write("<script>window.close();</script>")
		else
			Alert "还原失败"
		end if
	elseif OperateType = "News" then
		if ParentID = "" then
			Sql = "Update FS_News Set DelTF=0 where NewsID='" & ID & "'"
		else
			Sql = "Update FS_News Set DelTF=0,ClassID='" & ParentID & "' where NewsID='" & ID & "'"
		end if
		Conn.Execute(Sql)
		Conn.Execute("Update FS_FreeJsFile set DelFlag=0 where FileName=(Select FileName from FS_News where NewsID='" & ID & "')")
		'-------------重新生成相关自由JS文件-------------
		TempClassIDStrs = ""
		Set RevertFreeJsObj = Conn.Execute("Select distinct JSName from FS_FreeJsFile where FileName=(Select FileName from FS_News where NewsID='" & ID & "')")
		Do while Not RevertFreeJsObj.eof
			Set FreeJsObj = Conn.Execute("Select EName,Manner from FS_FreeJS where EName='"&RevertFreeJsObj("JSName")&"'")
		    If Not FreeJsObj.eof then
				Select case FreeJsObj("Manner")
				 case "1"   a.WCssA FreeJsObj("EName"),True
				 case "2"   a.WCssB FreeJsObj("EName"),True
				 case "3"   a.WCssC FreeJsObj("EName"),True
				 case "4"   a.WCssD FreeJsObj("EName"),True
				 case "5"   a.WCssE FreeJsObj("EName"),True
				 case "6"   a.PCssA FreeJsObj("EName"),True
				 case "7"   a.PCssB FreeJsObj("EName"),True
				 case "8"   a.PCssC FreeJsObj("EName"),True
				 case "9"   a.PCssD FreeJsObj("EName"),True
				 case "10"   a.PCssE FreeJsObj("EName"),True
				 case "11"   a.PCssF FreeJsObj("EName"),True
				 case "12"   a.PCssG FreeJsObj("EName"),True
				 case "13"   a.PCssH FreeJsObj("EName"),True
				 case "14"   a.PCssI FreeJsObj("EName"),True
				 case "15"   a.PCssJ FreeJsObj("EName"),True
				 case "16"   a.PCssK FreeJsObj("EName"),True
				 case "17"   a.PCssL FreeJsObj("EName"),True
			   End Select
		   End If
		   FreeJsObj.Close
		   Set FreeJsObj = Nothing
		   RevertFreeJsObj.MoveNext
		Loop
		RevertFreeJsObj.Close
		Set RevertFreeJsObj = Nothing
		'------------------------------------------------------------
		if Err.Number = 0 then
			Response.Write("<script>window.close();</script>")
			Response.End
		else
			Alert "还原失败"
		end if
	else
		Alert "参数传递错误"
	end if
end if
Set RsTempObj = Nothing
Set Conn = Nothing
%>
<script language="JavaScript">
function SubmitFun()
{
	var SelectParentID='';
	for (var i=0;i<document.all.length;i++)
	{
		if (document.all(i).name=='ParentID') SelectParentID=document.all(i).value;
	}
	window.location='?OperateType=<% = OperateType%>&ID=<% = ID %>&Result=Submit&ParentID='+SelectParentID;
}
</script>
<%
Function Alert(InfoStr)
%>
<script language="JavaScript">
alert('<% = InfoStr %>');
dialogArguments.location.reload();
window.close();
</script>
<%
End Function
Function ClassList()
	Dim ClassListObj
	Set ClassListObj = Conn.Execute("select * from FS_newsclass where DelFlag=0")
	do while Not ClassListObj.Eof
		ClassList = ClassList & "<option value="&ClassListObj("ClassID")&"" & ">" & ClassListObj("ClassCName") & "</option>" & Chr(13) & Chr(10)
		ClassListObj.MoveNext	
	loop
	ClassListObj.Close
	Set ClassListObj = Nothing
End Function
%>

⌨️ 快捷键说明

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