📄 down_move.asp
字号:
<%Admin="DownAdminAll"%>
<!--#include file="check.asp"-->
<!--#include file="mdb_path_down.asp"-->
<!--#include file="zcm.asp"-->
<%
zj=Request.ServerVariables("SERVER_NAME")
zj=left(replace(zj,"www.",""),6)
zj=replace(zj,"0","a")
zj=replace(zj,"1","b")
zj=replace(zj,"2","c")
zj=replace(zj,"3","d")
zj=replace(zj,"4","e")
zj=replace(zj,"5","f")
zj=replace(zj,"6","g")
zj=replace(zj,"7","h")
zj=replace(zj,"8","i")
zj=replace(zj,"9","j")
zj=replace(zj,"a","40")
zj=replace(zj,"b","41")
zj=replace(zj,"c","52")
zj=replace(zj,"d","53")
zj=replace(zj,"e","64")
zj=replace(zj,"f","65")
zj=replace(zj,"g","76")
zj=replace(zj,"h","77")
zj=replace(zj,"i","88")
zj=replace(zj,"j","89")
zj=replace(zj,"k","20")
zj=replace(zj,"l","21")
zj=replace(zj,"m","22")
zj=replace(zj,"n","23")
zj=replace(zj,"o","24")
zj=replace(zj,"p","25")
zj=replace(zj,"q","26")
zj=replace(zj,"r","27")
zj=replace(zj,"s","28")
zj=replace(zj,"t","29")
zj=replace(zj,"u","30")
zj=replace(zj,"v","31")
zj=replace(zj,"w","32")
zj=replace(zj,"x","33")
zj=replace(zj,"y","34")
zj=replace(zj,"z","35")
zj=replace(zj,"-","36")
zj=replace(zj,".","37")
yzcv=zj*(len(zj)+len(zcn&"JyDownH"))
Do While yzcv>10000000000
yzcv=yzcv-10000000000
loop
if yzcv<>zcv then
response.write("<b><font color=""#FF0000"">错误：程序尚未注册,此功能不能使用!</font></b>")
response.end
end if
if request("JyDownMoveType")="type" then
if request("tid_old")="" then JyDownMoveMsgType=JyDownMoveMsgType & "·错误:请选择旧类目!<br>"
if request("tid_new")="" then JyDownMoveMsgType=JyDownMoveMsgType & "·错误:请选择新类目!"
if JyDownMoveMsgType="" then
conn.execute("update down set tid="&request("tid_new")&" where tid="&request("tid_old")&"")
JyDownMoveMsgType="·成功:按软件分类移动成功!"
end if
elseif request("JyDownMoveType")="id" then
if request("JyDownID")="" then JyDownMoveMsgID=JyDownMoveMsgID & "·错误:没有选择软件!<br>"
if request("tid_new") ="" then JyDownMoveMsgID=JyDownMoveMsgID & "·错误:请选择新类目!"
if JyDownMoveMsgID="" then
conn.execute("update down set tid="&request("tid_new")&" where id in("&request("JyDownID")&")")
JyDownMoveMsgID="·成功:按选定软件移动成功!"
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">
<meta copy="程序制作 [惊云,网址www.65658.com] ; 盗版必究!">
<title>批量转移</title>
<style>
td{font-size:9pt;line-height:140%}
</style>
</head>
<body topmargin="1" leftmargin="1">
<table border="0" cellspacing="1" style="border-collapse: collapse" width="100%" bgcolor="#555555">
<tr>
<td width="100%" bgcolor="#6A6A6A"><font color="#FFFFFF"><b>批量转移软件</b></font></td>
</tr>
<%if JyDownMoveMsgType<>"" then%>
<tr>
<td width="100%" bgcolor="#FFFFFF"><font color="#FF0000"><%=JyDownMoveMsgType%></font></td>
</tr>
<%end if%>
<form name=1 method="post" action="down_move.asp?JyDownMoveType=type">
<tr>
<td width="100%" bgcolor="#F4F4F4"><font color="#000080"><b>按软件分类移动</b></font></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
<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?JyDownMoveType=id">
<tr>
<td width="100%" bgcolor="#F4F4F4"><font color="#000080"><b>按选定软件移动</b></font><font color="#808080">
多ID号请用豆号","分开,如(1)或(1,21,32)</font></td>
</tr>
<%if JyDownMoveMsgID<>"" then%>
<tr>
<td width="100%" bgcolor="#FFFFFF"><font color="#FF0000"><%=JyDownMoveMsgID%></font></td>
</tr>
<%end if%>
<tr>
<td width="100%" bgcolor="#FFFFFF">
<p align="center">↓将下列编号的软件↓<br>
<input type="text" name="JyDownID" size="62" value="<%=request("JyDownID")%>" 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>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -