www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > admin/move.asp
<%Admin="InfoAdminAll"%>
<!--#include file="check.asp"-->
<!--#include file="mdb_path_info.asp"-->
<%
'==========================================
'
' 晓宇听幽新闻文章管理系统 2004
'
' 主页地址：http://www.xoYu.com
'
'==========================================
'程序名称：晓宇听幽新闻文章管理系统
'英文名称：xoYu News 2004 Professional
'程序创建时间：2003-7-10
'程序完成时间：2003-9-11
'最后修改时间：2003-10-10
'==========================================
if request("xoYuStudioMoveType")="type" then
if request("tid_old")="" then xoYuStudioMoveMsgType=xoYuStudioMoveMsgType & "·错误:请选择旧类目!<br>"
if request("tid_new")="" then xoYuStudioMoveMsgType=xoYuStudioMoveMsgType & "·错误:请选择新类目!"
if xoYuStudioMoveMsgType="" then
conn.execute("update info set tid="&request("tid_new")&" where tid="&request("tid_old")&"")
xoYuStudioMoveMsgType="·成功:按文章分类移动成功!"
end if
elseif request("xoYuStudioMoveType")="id" then
if request("xoYuStudioID")="" then xoYuStudioMoveMsgID=xoYuStudioMoveMsgID & "·错误:没有选择软件!<br>"
if request("tid_new") ="" then xoYuStudioMoveMsgID=xoYuStudioMoveMsgID & "·错误:请选择新类目!"
if xoYuStudioMoveMsgID="" then
conn.execute("update info set tid="&request("tid_new")&" where id in("&request("xoYuStudioID")&")")
xoYuStudioMoveMsgID="·成功:按选定文章移动成功!"
end if
end if
set rs=server.CreateObject("ADODB.RecordSet")
rs.open ("select * from infotype where tj>1 order by ts"),conn,1,1
tn=""
do while not rs.eof
tname=replace(rs("tname"),"|","->")
if rs("tj")=2 and rs("tn")<>tn then
i=i+1
if i=2 then
i=0
color="#808000"
else
color="#000000"
end if
end if
tn=rs("tn")
typelist=typelist&"<option style='COLOR:"&color&"' value='"&rs("id")&"'>"&tname&"</option>"
rs.MoveNext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta copy="WWW.2KY.CN 共享世纪">
<title>批量转移</title>
<link rel="stylesheet" href="admin.css" type="text/css">
</head>
<!--#include file="top.asp"-->
<body>
<table width="95%" border="0" cellspacing="1" cellpadding="3" align=center class="tableBorder">
<tr>
<th width="100%"><b>批量转移文章</b></th>
</tr>
<%if xoYuStudioMoveMsgType<>"" then%>
<tr>
<td width="100%" class="forumrow"><font color="#FF0000"><%=xoYuStudioMoveMsgType%></font></td>
</tr>
<%end if%>
<form name=1 method="post" action="move.asp?xoYuStudioMoveType=type">
<tr>
<td width="100%" class="forumrow"><font color="#000080"><b>按文章分类移动</b></font></td>
</tr>
<tr>
<td width="100%" class="forumrow">
<p align="center">↓将所有类别/编号为↓<br>
<select size="1" name="tid_old">
<option selected value="">= = 请选择旧分类 = =</option>
<%=typelist%>
</select><br>
↓的网站全部移动到↓<br>
<select size="1" name="tid_new">
<option selected value="">= = 请选择要转到的类目 = =</option>
<%=typelist%>
</select><br>
<input name="change" class=buttonface value="确定移动" type='submit'></td>
</tr>
</form>
<form name=2 method="post" action="move.asp?xoYuStudioMoveType=id">
<tr>
<td width="100%" class="forumrow"><font color="#000080"><b>按选定文章移动</b></font><font color="#808080">
多ID号请用豆号","分开,如(1)或(1,21,32)</font></td>
</tr>
<%if xoYuStudioMoveMsgID<>"" then%>
<tr>
<td width="100%" class="forumrow"><font color="#FF0000"><%=xoYuStudioMoveMsgID%></font></td>
</tr>
<%end if%>
<tr>
<td width="100%" class="forumrow">
<p align="center">↓将下列编号的文章↓<br>
<input type="text" name="xoYuStudioID" size="62" value="<%=request("xoYuStudioID")%>" style="width:100%;"><br>
↓全部移动到↓<br>
<select size="1" name="tid_new">
<option selected value="">= = 请选择要转到的类目 = =</option>
<%=typelist%>
</select><br>
<input name="change1" class=buttonface value="确定移动" type='submit'></td>
</tr>
</form>
</table>
</body>
</html>