📄 user_infomove.asp
字号:
<!--#include file="Inc/Const.asp"-->
<%
if ChannelID=0 then Cl.ShowErr("<br /><li>参数不足，请指定频道ID！</li>")
if Not Cl.TrueChannelPurview_U(1,ChannelID) then Cl.ShowErr("<br /><li>您无此操作权限！</li>")
Cl.Get_ChannelSetting(ChannelID)
dim InfoID,ClassID,TClassID,SpecialID,TSpecialID
dim Action,ToChannelID
if Trim(request("ComeUrl"))="" then
ComeUrl=Request.ServerVariables("HTTP_REFERER")
else
ComeUrl=Trim(request("ComeUrl"))
end if
InfoID = Replace(Trim(request("InfoID"))," ","")
Action = Trim(Request("Action"))
ToChannelID = Cl.GetClng(Request("ToChannelID"))
If ToChannelID = 0 then ToChannelID = ChannelID
Header
Select Case Action
Case "MoveMore"
MoveMore
Case "SaveMoveMore"
SaveMoveMore
Case "MoveToSpecial"
SaveMoveToSpecial
Case "SaveMove"
SaveMoveInfo
Case Else
Main
End Select
Footer
Sub Main()
InfoID=Cl.GetClng(InfoID)
if InfoID=0 then Cl.ShowErr("<br /><li>请选择要移动的文章！</li>")
dim sqlInfo,rsInfo
dim Title,ClassName,ParentPath,Depth
Select Case Clng(Cl.Channel.selectSingleNode("@moduleid").text)
Case 1
sqlInfo = "select A.ClassID,A.Title,C.ClassName,C.ParentPath,C.Depth,A.SpecialID from Cl_Article A"
sqlInfo = sqlInfo & " inner join Cl_Class C on A.ClassID=C.ClassID where C.ChannelID="&ChannelID&" and A.InfoID=" & InfoID
Case 2
sqlInfo = "select A.ClassID,A.SoftName,C.ClassName,C.ParentPath,C.Depth,A.SpecialID from Cl_Soft A"
sqlInfo = sqlInfo & " inner join Cl_Class C on A.ClassID=C.ClassID where C.ChannelID="&ChannelID&" and A.InfoID=" & InfoID
Case 3
sqlInfo = "select A.ClassID,A.PhotoName,C.ClassName,C.ParentPath,C.Depth,A.SpecialID from Cl_Photo A"
sqlInfo = sqlInfo & " inner join Cl_Class C on A.ClassID=C.ClassID where C.ChannelID="&ChannelID&" and A.InfoID=" & InfoID
Case 4
sqlInfo = "select A.ClassID,A.MovieName,C.ClassName,C.ParentPath,C.Depth,A.SpecialID from Cl_Movie A"
sqlInfo = sqlInfo & " inner join Cl_Class C on A.ClassID=C.ClassID where C.ChannelID="&ChannelID&" and A.InfoID=" & InfoID
Case 5
sqlInfo = "select A.ClassID,A.ProductName,C.ClassName,C.ParentPath,C.Depth,A.SpecialID from Cl_Product A"
sqlInfo = sqlInfo & " inner join Cl_Class C on A.ClassID=C.ClassID where C.ChannelID="&ChannelID&" and A.InfoID=" & InfoID
Case 6
sqlInfo = "select A.ClassID,A.Title,C.ClassName,C.ParentPath,C.Depth,A.SpecialID from Cl_Supply A"
sqlInfo = sqlInfo & " inner join Cl_Class C on A.ClassID=C.ClassID where C.ChannelID="&ChannelID&" and A.InfoID=" & InfoID
Case Else
Cl.ShowErr("<br /><li>参数错误！</li>")
End Select
set rsInfo=Cl.Execute(sqlInfo)
if rsInfo.bof and rsInfo.eof then
rsInfo.close : Set rsInfo=Nothing
Cl.ShowErr("<br /><li>找不到要移到的"&Cl.ChannelItemName&"</li>")
else
ClassID =rsInfo(0) : Title = rsInfo(1)
ClassName =rsInfo(2) : ParentPath = rsInfo(3)
Depth =rsInfo(4) : SpecialID = rsInfo(5)
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<form action="User_InfoMove.asp" method="get" name="myform2" id="myform2">
<tr class="title">
<td height="22" align="center" width="80%"><strong><%=Cl.ChannelItemName%>移动</strong></td>
<td align="right" width="20%">频道：
<select name="ToChannelID" onchange="javascript:myform2.submit();">
<%
Dim Node
For Each Node In Application(Cl.CacheName & "_channellist").DocumentElement.selectNodes("channel[@moduleid="&Clng(Cl.Channel.selectSingleNode("@moduleid").text)&"]")
Response.write "<option value=""" & Node.selectSingleNode("@channelid").text & """"
if CLng(Node.selectSingleNode("@channelid").text)=ToChannelID Then Response.write " selected"
Response.write ">" & Node.selectSingleNode("@channelname").text& "</option>"
Next
Set Node = Nothing%>
</select>
<input name="InfoID" type="hidden" id="InfoID" value="<%=InfoID%>" />
<input name="ComeUrl" type="hidden" id="ComeUrl" value="<%=ComeUrl%>" />
<input name="ChannelID" type="hidden" id="ChannelID" value="<%=ChannelID%>" />
</td>
</tr>
</form>
<form action="User_InfoMove.asp" method="post" name="form1" id="form1">
<tr>
<td colspan="2"><table width="100%" border="0" cellspacing="1" cellpadding="2">
<tr class="tdbg">
<td width="200"><strong>所属栏目：</strong></td>
<td><%=ShowManageClassPath(ChannelID,ClassName,ParentPath,Depth)%></td>
</tr>
<tr class="tdbg">
<td width="200"><strong>所属专题：</strong></td>
<td>
<select name="SpecialID" id="SpecialID">
<%=ShowSpecial_Option(ChannelID,SpecialID,1)%>
</select></td>
</tr>
<tr class="tdbg">
<td width="200"><strong><%=Cl.ChannelItemName%>标题：</strong></td>
<td><%=Title%> <input name="InfoID" type="hidden" id="InfoID" value="<%=InfoID%>" /></td>
</tr>
<tr class="tdbg">
<td width="200"><strong>移动到专题：</strong><br />
不能指定为外部栏目 </td>
<td><select name="TSpecialID" size="2" style="height:100px;width:400px;">
<%=ShowSpecial_Option(ToChannelID,0,1)%>
</select> </td>
</tr>
<tr class="tdbg">
<td width="200"><strong>移动到栏目：</strong><br />
不能指定为外部栏目 </td>
<td><select name="TClassID" size="2" style="height:300px;width:400px;">
<%=ShowClass_Option(ToChannelID,0,0,1)%>
</select> </td>
</tr>
</table></td>
</tr>
<tr class="tdbg">
<td align="center" colspan="2">
<input name="ComeUrl" type="hidden" id="ComeUrl" value="<%=ComeUrl%>" />
<input name="Action" type="hidden" id="Action" value="SaveMove" />
<input name="ChannelID" type="hidden" id="ChannelID" value="<%=ChannelID%>" />
<input type="submit" name="Submit" value=" 确 定 " />
<input name="Cancel" type="button" id="Cancel" value=" 取 消 " onClick="window.location.href='<%=ComeUrl%>'" style="cursor:hand;" /></td>
</tr>
</form>
</table>
<%
end if
rsInfo.close : Set rsInfo=Nothing
End Sub
Sub MoveMore()
%>
<script language="JavaScript" type="text/javascript">
function SelectAll(){
for(var i=0;i<document.myform.ClassID.length;i++){
document.myform.ClassID.options[i].selected=true;}
}
function UnSelectAll(){
for(var i=0;i<document.myform.ClassID.length;i++){
document.myform.ClassID.options[i].selected=false;}
}
</script>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<form name="myform2" method="get" action="User_InfoMove.asp">
<tr class="title">
<td height="22" colspan="2" align="center"><strong><%=Cl.ChannelItemName%>批量移动</strong></td>
<td align="right">频道：<select name="ToChannelID" onchange="javascript:myform2.submit();">
<%
Dim Node
For Each Node In Application(Cl.CacheName & "_channellist").DocumentElement.selectNodes("channel[@moduleid="&Clng(Cl.Channel.selectSingleNode("@moduleid").text)&"]")
Response.write "<option value=""" & Node.selectSingleNode("@channelid").text & """"
if CLng(Node.selectSingleNode("@channelid").text)=ToChannelID Then Response.write " selected"
Response.write ">" & Node.selectSingleNode("@channelname").text& "</option>"
Next
Set Node = Nothing%>
</select>
<input name="InfoID" type="hidden" id="InfoID" value="<%=InfoID%>">
<input name="ComeUrl" type="hidden" id="ComeUrl" value="<%=ComeUrl%>">
<input name="ChannelID" type="hidden" id="ChannelID" value="<%=ChannelID%>">
<input name="Action" type="hidden" id="Action" value="MoveMore">
</td>
</tr>
</form>
<form name="myform" method="post" action="User_InfoMove.asp">
<tr class="tdbg">
<td valign="top" colspan=3><input type="radio" name="MoreType" value="0" <%if InfoID<>"" then Response.write "checked"%>>指定<%=Cl.ChannelItemName%>ID：<textarea name="InfoID" cols="80" rows=5><%=InfoID%></textarea>
</td>
</tr>
<tr class="tdbg">
<td width="50%" colspan=2><input type="radio" name="MoreType" value="1" <%if InfoID="" then Response.write "checked"%>>指定 栏 目：</td>
<td width="50%"> 移动到栏目：不能指定为外部栏目</td>
</tr>
<tr class="tdbg">
<td width="20%" align=right><input type="button" name="Submit" value="选定所有" onclick="SelectAll()"><br /><input type="button" name="Submit" value="取消所有" onclick="UnSelectAll()"></td>
<td width="30%" valign="top">
<select name="ClassID" size="2" multiple style="height:350px;width:200px;">
<%=ShowClass_Option(ChannelID,ClassID,0,2)%>
</select></td>
<td width="50%" valign="top">
<select name="TClassID" size="2" style="height:350px;width:200px;">
<%=ShowClass_Option(ToChannelID,0,0,3)%>
</select>
</td>
</tr>
<tr class="tdbg">
<td height="40" colspan="3" align="center">
<input name="ComeUrl" type="hidden" id="ComeUrl" value="<%=ComeUrl%>">
<input name="ChannelID" type="hidden" id="ChannelID" value="<%=ChannelID%>">
<input name="ToChannelID" type="hidden" id="ToChannelID" value="<%=ToChannelID%>">
<input name="Action" type="hidden" id="Action" value="SaveMoveMore">
<input name="Submit" type="submit" value=" 执行批处理 ">
<input name="Cancel" type="button" id="Cancel" value=" 取 消 " onClick="window.location.href='<%=ComeUrl%>'"></td>
</tr>
</form>
</table>
<%
End Sub
Sub SaveMoveInfo()
dim tClass, sModuleName
TClassID = Cl.GetClng(request("TClassID"))
TSpecialID = Cl.GetClng(request("TSpecialID"))
InfoID = Cl.GetClng(InfoID)
if InfoID=0 then Cl.ShowErr("<br /><li>请选择要移动的"&Cl.ChannelItemName&"！</li>")
if TClassID=0 then Cl.ShowErr("<br /><li>请指定目标栏目！</li>")
set tClass=Cl.Execute("select Child from Cl_Class where ChannelID="&ToChannelID&" and ClassID=" & TClassID)
if tClass.bof and tClass.eof then
tClass.close : Set tClass = Nothing
Cl.ShowErr("<br /><li>找不到指定的目标栏目！</li>")
end if
tClass.close : Set tClass = Nothing
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 = "Supply"
Case Else : Cl.ShowErr("<br /><li>参数错误！</li>")
End Select
Cl.Execute("Update Cl_"&sModuleName&" Set ChannelID="&ToChannelID&",ClassID=" & TClassID & ",SpecialID=" & TSpecialID & " where InfoID="&InfoID&"")
Cl.Execute("Update Cl_Comment set ChannelID="&ToChannelID&",ClassID=" & TClassID & " where ChannelID="&ChannelID&" and InfoID=" & InfoID & "")
Cl.SaveAdminLog
Response.Redirect ComeUrl
End Sub
Sub SaveMoveMore()
dim tClass, MoreType, sModuleName
ClassID = Trim(request("ClassID"))
TClassID = Cl.GetClng(request("TClassID"))
MoreType = Cl.GetClng(request("MoreType"))
if TClassID=0 then Cl.ShowErr("<br /><li>请指定目标栏目！</li>")
set tClass=Cl.Execute("select Child from Cl_Class where ChannelID="&ToChannelID&" and ClassID=" & TClassID)
if tClass.bof and tClass.eof then
tClass.close : Set tClass = Nothing
Cl.ShowErr("<br /><li>找不到指定的目标栏目！</li>")
end if
tClass.close : Set tClass = Nothing
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 = "Supply"
Case Else : Cl.ShowErr("<br /><li>参数错误！</li>")
End Select
If MoreType = 0 then
if InfoID="" then Cl.ShowErr("<br /><li>请选择要移动的"&Cl.ChannelItemName&"！</li>")
Cl.Execute("Update Cl_"&sModuleName&" Set ChannelID="&ToChannelID&",ClassID=" & TClassID & " where InfoID In ("&InfoID&")")
Cl.Execute("Update Cl_Comment set ChannelID="&ToChannelID&",ClassID=" & TClassID & " where ChannelID="&ChannelID&" and InfoID in (" & InfoID & ")")
Else
if ClassID="" then Cl.ShowErr("<br /><li>请选择要移动的栏目！</li>")
Cl.Execute("Update Cl_"&sModuleName&" set ChannelID="&ToChannelID&",ClassID=" & TClassID & " where ClassID in (" & ClassID & ")")
Cl.Execute("Update Cl_Comment set ChannelID="&ToChannelID&",ClassID=" & TClassID & " where ClassID in (" & ClassID & ")")
End if
Cl.SaveAdminLog
Call Cl.OutMsg(0,"恭喜您，批量移动成功，点确定返回！",ComeUrl)
End Sub
Sub SaveMoveToSpecial()
Dim sModuleName
SpecialID=Cl.GetClng(SpecialID)
if SpecialID=0 then Cl.ShowErr("<br /><li>请指定目标专题！</li>")
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 = "Supply"
Case Else : Cl.ShowErr("<br /><li>参数错误！</li>")
End Select
Cl.Execute("Update Cl_"&sModuleName&" set SpecialID=" & SpecialID & " where InfoID in (" & InfoID & ")")
Cl.SaveAdminLog
Response.Redirect ComeUrl
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. │
'└───────────────────────────────────────────────────────┘
'-->
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -