www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > admin/down_move.asp
<%Admin="DownAdminAll"%> <!--#include file="check.asp"--> <!--#include file="mdb_path_down.asp"--> <!--#include file="RegNum.asp"--> <% zj=Request.ServerVariables("SERVER_NAME") zj=left(replace(zj,"www.",""),6) zj=replace(zj,"4","a") zj=replace(zj,"5","b") zj=replace(zj,"6","c") zj=replace(zj,"7","d") zj=replace(zj,"8","e") zj=replace(zj,"9","f") zj=replace(zj,"0","g") zj=replace(zj,"1","h") zj=replace(zj,"2","i") zj=replace(zj,"3","j") zj=replace(zj,"s","40") zj=replace(zj,"v","41") zj=replace(zj,"k","52") zj=replace(zj,"d","53") zj=replace(zj,"e","64") zj=replace(zj,"f","65") zj=replace(zj,"o","76") zj=replace(zj,"h","77") zj=replace(zj,"i","88") zj=replace(zj,"m","89") zj=replace(zj,"u","20") zj=replace(zj,"l","21") zj=replace(zj,"w","22") zj=replace(zj,"q","23") zj=replace(zj,"c","24") zj=replace(zj,"a","25") zj=replace(zj,"x","26") zj=replace(zj,"j","27") zj=replace(zj,"b","28") zj=replace(zj,"r","29") zj=replace(zj,"y","30") zj=replace(zj,"t","31") zj=replace(zj,"z","32") zj=replace(zj,"n","33") zj=replace(zj,"p","34") zj=replace(zj,"g","35") zj=replace(zj,"-","36") zj=replace(zj,".","37") yregnum=zj*(len(zj)+len(name&"xoYuNews")) Do While yregnum>10000000000 yregnum=yregnum-10000000000 loop 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 down 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 down 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 downtype 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") if rs("tstart")<>"" then else typelist=typelist&"<option style='COLOR:"&color&"' value='"&rs("id")&"'>"&tname&"</option>" end if 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"> <title>网站内容管理系统</title> <link rel="stylesheet" href="admin.css" type="text/css"> </head> <body topmargin="1" leftmargin="1"> <table border="0" cellspacing="1" width="100%" class="tableBorder" height="274"> <tr> <th width="100%" height="26"><font color="#FFFFFF"><b>批量转移软件</b></font></td> </tr> <%if xoYuStudioMoveMsgType<>"" then%> <tr> <td width="100%" bgcolor="#FFFFFF" height="1"><font color="#FF0000"><%=xoYuStudioMoveMsgType%></font></td> </tr> <%end if%> <form name=1 method="post" action="down_move.asp?xoYuStudioMoveType=type"> <tr> <td width="100%" bgcolor="#F4F4F4" height="15"><font color="#000080"><b>按软件分类移动</b></font></td> </tr> <tr> <td width="100%" bgcolor="#FFFFFF" height="92"> <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="down_move.asp?xoYuStudioMoveType=id"> <tr> <td width="100%" bgcolor="#F4F4F4" height="15"><font color="#000080"><b>按选定软件移动</b></font><font color="#808080"> 多ID号请用豆号","分开,如(1)或(1,21,32)</font></td> </tr> <%if xoYuStudioMoveMsgID<>"" then%> <tr> <td width="100%" bgcolor="#FFFFFF" height="1"><font color="#FF0000"><%=xoYuStudioMoveMsgID%></font></td> </tr> <%end if%> <tr> <td width="100%" bgcolor="#FFFFFF" height="107"> <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>