📄 class_action.asp
字号:
</table>
<%
obj_news_rs.close
set obj_news_rs =nothing
End Sub
Dim obj_unite_rs,tmp_str_list
Sub Classunite()
Set obj_unite_rs = server.CreateObject(G_FS_RS)
obj_unite_rs.Open "Select Orderid,id,ClassID,ClassName,ParentID from FS_NS_NewsClass where Parentid = '0' and ReycleTF=0 Order by Orderid desc,ID desc",Conn,1,1
%>
<form name="form1" method="post" action="Class_Action.asp">
<table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
<tr class="hback">
<td height="22" colspan="2" class="xingmu"><div align="center">源栏目</div></td>
<td height="22" colspan="2" class="xingmu"><div align="center">目标栏目</div></td>
</tr>
<tr class="hback">
<td width="45%" height="28" class="hback"> <div align="center">
<select name="SourceClassID" id="SourceClassID" style="width:80%">
<%
tmp_str_list = ""
do while Not obj_unite_rs.eof
tmp_str_list = tmp_str_list &"<option value="""& obj_unite_rs("ClassID") &","& obj_unite_rs("ParentID") &""">+"& obj_unite_rs("ClassName") &"</option>"& Chr(13) & Chr(10)
tmp_str_list = tmp_str_list &Fs_news.UniteChildNewsList(obj_unite_rs("ClassID"),"")
obj_unite_rs.movenext
Loop
obj_unite_rs.close
set obj_unite_rs = nothing
Response.Write tmp_str_list
%>
</select>
</div></td>
<td colspan="2" class="hback"> <div align="center">合并到>>> </div></td>
<td width="46%" class="hback"><select name="TargetClassID" id="SourceClassID" style="width:80%">
<%= tmp_str_list%> </select></td>
</tr>
<tr class="hback">
<td height="28" colspan="4" class="hback"><div align="center">
<input type="button" name="Submit2" value="确定合并栏目" onClick="{if(confirm('确定合并吗?\n\n合并后将不能还原!!!')){this.document.form1.submit();return true;}return false;}">
<input name="Action" type="hidden" id="Action" value="Saveunite">
</div></td>
</tr>
</table>
</form>
<%End Sub%>
<%
Sub allmove()
Set obj_unite_rs = server.CreateObject(G_FS_RS)
obj_unite_rs.Open "Select Orderid,id,ClassID,ClassName,ParentID from FS_NS_NewsClass where Parentid = '0' and ReycleTF=0 Order by Orderid desc,ID desc",Conn,1,1
%>
<form name="form1" method="post" action="Class_Action.asp">
<table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
<tr class="hback">
<td height="22" colspan="2" class="xingmu"><div align="center">源栏目</div></td>
<td height="22" colspan="2" class="xingmu"><div align="center">目标栏目</div></td>
</tr>
<tr class="hback">
<td width="45%" height="28" class="hback"> <div align="center">
<select name="SourceClassID" id="SourceClassID" style="width:80%">
<%
tmp_str_list = ""
do while Not obj_unite_rs.eof
tmp_str_list = tmp_str_list &"<option value="""& obj_unite_rs("ClassID") &","& obj_unite_rs("ParentID") &""">+"& obj_unite_rs("ClassName") &"</option>"& Chr(13) & Chr(10)
tmp_str_list = tmp_str_list &Fs_news.UniteChildNewsList(obj_unite_rs("ClassID"),"")
obj_unite_rs.movenext
Loop
obj_unite_rs.close
set obj_unite_rs = nothing
Response.Write tmp_str_list
%>
</select>
</div></td>
<td colspan="2" class="hback"> <div align="center">转移到>>></div></td>
<td width="46%" class="hback"><select name="TargetClassID" id="SourceClassID" style="width:80%">
<option value="0000000000">转移到根目录</option>
<%= tmp_str_list%> </select></td>
</tr>
<tr class="hback">
<td height="28" colspan="4" class="hback"><div align="center">
<input type="button" name="Submit2" value="确定转移栏目" onClick="{if(confirm('确定转移栏目吗?')){this.document.form1.submit();return true;}return false;}">
<input name="Action" type="hidden" id="Action" value="SaveAllmove">
</div></td>
</tr>
</table>
</form>
<%End Sub%>
</body>
</html>
<%
sub UpdateOrderID()
if not Get_SubPop_TF(NoSqlHack(Request.QueryString("ClassID")),"NS024","NS","class") then Err_Show
Dim ClassID,OrderID
ClassID = Request.Form("ClassID")
OrderID = Request.Form("OrderID")
if ClassID="" then
strShowErr = "<li>错误参数:ClassID</li>"
Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
Response.end
else
ClassID=ClassID
end if
if isnumeric(OrderID)= false then
strShowErr = "<li>错误参数:排列序号请填写正确的数字</li>"
Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
Response.end
End if
if OrderID="" then
strShowErr = "<li>错误参数:OrderID</li>"
Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
Response.end
end if
Conn.execute "update FS_NS_NewsClass set OrderID=" & OrderID & " where ClassID='" & ClassID &"'"
Response.Redirect "Class_Action.asp?Action=one"
end sub
sub UpdateOrderIDN()
if not Get_SubPop_TF(NoSqlHack(Request.QueryString("ClassID")),"NS024","NS","class") then Err_Show
Dim N_ClassID,N_OrderID
N_ClassID = Request.Form("ClassID")
N_OrderID = Request.Form("OrderID")
if N_ClassID="" then
strShowErr = "<li>错误参数:ClassID</li>"
Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
Response.end
else
N_ClassID=N_ClassID
end if
if isnumeric(N_OrderID)= false then
strShowErr = "<li>错误参数:排列序号请填写正确的数字</li>"
Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
Response.end
End if
if N_OrderID="" then
strShowErr = "<li>错误参数:OrderID</li>"
Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
Response.end
end if
Conn.execute "update FS_NS_NewsClass set OrderID=" & N_OrderID & " where ClassID='" & N_ClassID &"'"
Response.Redirect "Class_Action.asp?Action=n"
end sub
Sub delclass()
Dim Rs_ClassDel,Str_SYSPath
If G_VIRTUAL_ROOT_DIR<>"" Then
Str_SYSPath="/"&G_VIRTUAL_ROOT_DIR
Else
Str_SYSPath=""
End If
if not Get_SubPop_TF(NoSqlHack(Request.QueryString("ClassID")),"NS021","NS","class") then Err_Show
Dim str_delClassID,str_tmp_DelclassTF,Str_Tree_ClassID
str_delClassID = Request.QueryString("ClassID")
if str_delClassID="" then
strShowErr = "<li>错误参数:没有栏目ClassID</li>"
Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
Response.end
end if
Str_Tree_ClassID = GetAllChildRenClassID(str_delClassID )
if fs_news.ReycleTF = 1 then
Conn.execute("Update FS_NS_NewsClass set ReycleTF=1 Where ClassID In("&Str_Tree_ClassID&")")
Conn.execute("Update FS_NS_News set isRecyle =1 Where ClassID In("&Str_Tree_ClassID&")")
str_tmp_DelclassTF = 1
Else
Set Rs_ClassDel=Conn.Execute("Select SavePath,ClassEName,IsURL FROM FS_NS_NewsClass Where ClassID In("&Str_Tree_ClassID&")")
While Not Rs_ClassDel.Eof
If Cint(Rs_ClassDel(2)) = 0 Then
If Rs_ClassDel(0)="/" Then
fso_DeleteFolder("/"&Rs_ClassDel(1))
Else
fso_DeleteFolder(Str_SYSPath&Rs_ClassDel(0)&"/"&Rs_ClassDel(1))
End IF
End If
Rs_ClassDel.movenext
Wend
Conn.execute("Delete From FS_NS_NewsClass Where ClassID In("&Str_Tree_ClassID&")")
Conn.execute("Delete From FS_NS_News Where ClassID In("&Str_Tree_ClassID&")")
str_tmp_DelclassTF=0
End if
dim returnvalues
returnvalues = fso_DeleteFile("../../FS_InterFace/xml/NS/"&str_delClassID&".xml")
Call Makexml("0")
if returnvalues = true then:returnvalues = "同时更新了xml文件":else:returnvalues = "同时更新了xml文件。状态：更新不成功.可能是您的目录不支持写入权限":end if
If str_tmp_DelclassTF =1 then
strShowErr = "<li>栏目删除已经删除到回收站</li><li>"& returnvalues &"</li>"
Call MF_Insert_oper_Log("删除栏目","删除栏目ClassID:"& str_delClassID &"及子类栏目,同时删除了此栏目下的所有信息,删除到回收站中",now,session("admin_name"),"NS")
Else
strShowErr = "<li>栏目已经彻底删除成功</li><li>"& returnvalues &"</li>"
Call MF_Insert_oper_Log("删除栏目","删除栏目ClassID:"& str_delClassID &"及子类栏目,同时删除了此栏目下的所有信息,彻底删除",now,session("admin_name"),"NS")
End if
Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=../Class_Manage.asp")
Response.end
End Sub
Sub resetClass()
if not Get_SubPop_TF(NoSqlHack(Request.QueryString("ClassID")),"NS018","NS","class") then Err_Show
Conn.Execute("Update FS_NS_NewsClass Set ParentID ='0'")
'插入操作日志
Call MF_Insert_oper_Log("复位栏目","把所有栏目复位为一级栏目",now,session("admin_name"),"NS")
strShowErr = "<li>复位所有栏目成功</li><li>所有的栏目已经设置为一级分类</li>"
Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=../Class_Manage.asp")
Response.end
End Sub
'合并目录
Sub Saveunite()
if not Get_SubPop_TF(NoSqlHack(Request.QueryString("ClassID")),"NS019","NS","class") then
Response.Redirect("lib/error.asp?ErrCodes=缺少权限&ErrorUrl=")
Response.end
End if
Dim str_SourceClassID,str_TargetClassID
str_SourceClassID = Trim(Request.Form("SourceClassID"))
str_TargetClassID = Trim(Request.Form("TargetClassID"))
if split(str_SourceClassID,",")(0) = split(str_TargetClassID,",")(0) then
strShowErr = "<li>源目录和目标目录不能一样</li>"
Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
Response.end
End if
Dim obj_Url_rs
set obj_Url_rs = Conn.execute("select isUrl from FS_NS_NewsClass where ClassID='"& split(str_TargetClassID,",")(0) &"'")
if obj_Url_rs("isUrl") = 1 then
strShowErr = "<li>不能把栏目合并到外部栏目!</li>"
Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
Response.end
End if
Conn.execute("Update FS_NS_News set ClassID='"& split(str_TargetClassID,",")(0)&"' where ClassID ='"& split(str_SourceClassID,",")(0)&"'")
'更新其他相关数据库
'Conn.execute("Delete From FS_NS_NewsPop where ClassID ='"& split(str_SourceClassID,",")(0)&"'")
'删除源栏目表
Conn.execute("Delete From FS_NS_NewsClass where ClassID ='"& split(str_SourceClassID,",")(0)&"'")
Dim ob_Tmp_rs
set ob_Tmp_rs = Conn.execute("select ClassID,ParentID From FS_NS_NewsClass Where ParentID='"& split(str_SourceClassID,",")(0) &"' order by id desc")
if Not ob_Tmp_rs.eof then
do while Not ob_Tmp_rs.eof
Conn.execute("Update FS_NS_NewsClass Set ParentID ='"& split(str_SourceClassID,",")(1) &"' where ClassID ='"& ob_Tmp_rs("ClassID")&"'")
ob_Tmp_rs.movenext
Loop
End if
ob_Tmp_rs.close:set ob_Tmp_rs = nothing
'更新所有数据
'******************保留
Call MF_Insert_oper_Log("合并栏目","把栏目ClassID:"& split(str_SourceClassID)(0)&"合并到ClassID:"& split(str_TargetClassID)(0) &"中",now,session("admin_name"),"NS")
strShowErr = "<li>合并栏目成功</li>"
Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=../Class_Manage.asp")
Response.end
End Sub
'移动栏目
Sub allmove_save()
if not Get_SubPop_TF(NoSqlHack(Request.QueryString("ClassID")),"NS020","NS","class") then Err_Show
Dim str_SourceClassID_move,str_TargetClassID_move
str_SourceClassID_move = Trim(Request.Form("SourceClassID"))
str_TargetClassID_move = Trim(Request.Form("TargetClassID"))
if split(str_SourceClassID_move,",")(0) = split(str_TargetClassID_move,",")(0) then
strShowErr = "<li>源目录和目标目录不能一样</li>"
Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
Response.end
End if
if str_TargetClassID_move ="0000000000" then
Conn.execute("Update FS_NS_NewsClass Set ParentID ='0' where ClassID ='"& split(str_SourceClassID_move,",")(0)&"'")
Else
Dim obj_Url_rs_1
set obj_Url_rs_1 = Conn.execute("select isUrl from FS_NS_NewsClass where ClassID='"& split(str_TargetClassID_move,",")(0) &"'")
if obj_Url_rs_1("isUrl") = 1 then
strShowErr = "<li>不能把栏目转到外部栏目!</li>"
Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
Response.end
End if
Conn.execute("Update FS_NS_NewsClass Set ParentID ='"& split(str_TargetClassID_move,",")(0) &"' where ClassID ='"& split(str_SourceClassID_move,",")(0)&"'")
Dim ob_Tmp_rs_1
set ob_Tmp_rs_1 = Conn.execute("select ClassID,ParentID From FS_NS_NewsClass Where ParentID='"& split(str_SourceClassID_move,",")(0) &"' order by id desc")
if Not ob_Tmp_rs_1.eof then
do while Not ob_Tmp_rs_1.eof
Conn.execute("Update FS_NS_NewsClass Set ParentID ='"& split(str_SourceClassID_move,",")(1) &"' where ClassID ='"& ob_Tmp_rs_1("ClassID")&"'")
ob_Tmp_rs_1.movenext
Loop
End if
ob_Tmp_rs_1.close:set ob_Tmp_rs_1 = nothing
End if
'更新所有数据
'******************保留
Call MF_Insert_oper_Log("转移栏目","把栏目ClassID:"& split(str_SourceClassID_move)(0) &"转移到ClassID:"& split(str_TargetClassID_move)(0)&"中",now,session("admin_name"),"NS")
strShowErr = "<li>栏目转移成功！</li>"
Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=../Class_Manage.asp")
Response.end
End Sub
Sub clearClass()
if not Get_SubPop_TF(NoSqlHack(Request.QueryString("ClassID")),"NS021","NS","class") then Err_Show
Conn.execute("Update FS_NS_NewsClass set ReycleTF =1")
Conn.execute("Update FS_NS_News set isRecyle =1")
strShowErr = "<li>所有栏目已经放到回收站中</li><li>所有的栏目下新闻已经放到回收站中</li>"
Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=../Class_Manage.asp")
Response.end
End Sub
Sub one_clear()
if not Get_SubPop_TF(NoSqlHack(Request.QueryString("ClassID")),"NS023","NS","class") then
Response.Redirect("lib/error.asp?ErrCodes=缺少权限&ErrorUrl=")
Response.end
End if
Conn.execute("Delete From FS_NS_News where ClassID = '"& NoSqlHack(Request.QueryString("ClassID"))&"'")
Call MF_Insert_oper_Log("清除新闻","清除了Classid:"& Request.QueryString("ClassID") &"下的所有新闻",now,session("admin_name"),"NS")
strShowErr = "<li>栏目下的新闻清除成功</li>"
Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
Response.end
End Sub
set Fs_news = nothing
'----2006-12--06 by ken------
Function GetAllChildRenClassID(ClassID)
If ClassID = "" Then Exit Function
Dim GetClassIDRs,AllClassID
Set GetClassIDRs = Conn.ExeCute("Select ClassID From FS_NS_NewsClass Where ParentID = '"&ClassID&"' And ReycleTF = 0 Order By OrderID Desc,ID Desc")
If GetClassIDRs.Eof Then
AllClassID = "'" & ClassID & "'"
Else
AllClassID = ""
Do While Not GetClassIDRs.Eof
AllClassID = AllClassID & "," & GetAllChildRenClassID(GetClassIDRs(0))
GetClassIDRs.MoveNext
Loop
AllClassID = "'" & ClassID & "'" & AllClassID
End If
GetAllChildRenClassID = AllClassID
GetClassIDRs.Close
Set GetClassIDRs = Nothing
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -