📄 down_urlupdate.asp
字号:
<%Admin="DownAdminAll"%>
<!--#include file="check.asp"-->
<!--#include file="zcm.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta copy="作品展示 [MyFlash中国区,网址MyFlash.ShanKe.cn] ; www.MyFlash.NET!">
<title></title>
<style>
td{font-size:9pt;line-height:140%}
</style>
</head>
<body topmargin="1" leftmargin="1">
<%if request("type")="save" then
%>
<!--#include file="mdb_path_down.asp"-->
<%
i=0
Set rs= Server.CreateObject("ADODB.Recordset")
if request("t")="url" then
if request("lx")="作 品图片" then
sql="select * from down where pic like '"&request("oldurl")&"%'"
rs.open sql,conn,1,3
do while not rs.EOF
rs("pic")=replace(rs("pic"),""&request("oldurl")&"",""&request("newurl")&"")
rs.update
i=i+1
rs.MoveNext
loop
rs.close
elseif request("lx")="连接地址" then
sql="select * from downfile where file like '"&request("oldurl")&"%'"
rs.open sql,conn,1,3
do while not rs.EOF
rs("file")=replace(rs("file"),""&request("oldurl")&"",""&request("newurl")&"")
rs.update
i=i+1
rs.MoveNext
loop
rs.close
elseif request("lx")="作品商URL" then
sql="select * from down where lu like '%"&request("oldurl")&"%'"
rs.open sql,conn,1,3
do while not rs.EOF
rs("body")=replace(rs("lu"),""&request("oldurl")&"",""&request("newurl")&"")
rs.update
i=i+1
rs.MoveNext
loop
rs.close
elseif request("lx")="作品商EMail" then
sql="select * from down where ln like '%"&request("oldurl")&"%'"
rs.open sql,conn,1,3
do while not rs.EOF
rs("body")=replace(rs("ln"),""&request("oldurl")&"",""&request("newurl")&"")
rs.update
i=i+1
rs.MoveNext
loop
rs.close
elseif request("lx")="作品注册URL" then
sql="select * from down where reg like '%"&request("oldurl")&"%'"
rs.open sql,conn,1,3
do while not rs.EOF
rs("body")=replace(rs("reg"),""&request("oldurl")&"",""&request("newurl")&"")
rs.update
i=i+1
rs.MoveNext
loop
rs.close
end if
elseif request("t")="error" then
sql="select * from downfile where file like '"&request("errorurl")&"%' order by downid"
rs.open sql,conn,1,1
if not rs.EOF then
do while not rs.EOF
if rs("downid")<>oldid then
sqqq=sqqq&""&rs("downid")&", "
end if
oldid=rs("downid")
rs.MoveNext
loop
end if
rs.close
if sqqq<>"" then
conn.Execute("update down set error="&request("error")&" where id in ("&sqqq&")")
end if
end if
set rs=nothing
conn.close
set conn=nothing
end if%>
<table border="0" cellspacing="1" style="border-collapse: collapse" width="100%" bgcolor="#cococo">
<tr>
<td width="100%" bgcolor="#4D9CC8"><font color="#FFFFFF"><b>批量修改</b></font></td>
</tr>
<tr>
<td width="100%" bgcolor="#F4F4F4">
<font color="#000080">
<b>URL转换</b></font><font color="#808080"> 连接从第一个字符起计</font></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
<div align="right">
<table border="0" cellspacing="0" style="border-collapse: collapse" width="90%">
<form name=pwd method="post" action="down_urlupdate.asp?type=save&t=url">
<%if request("type")="save" and request("t")="url" then%>
<tr>
<td width="100%">成功:将<B><%=i%></B>个<Br>有关<font color="#4D9CC8"><%=request("oldurl")%>***</font>的"<%=request("lx")%>"网址<br>全部转换为<font color="#4D9CC8"><%=request("newurl")%>***</font></td>
</tr>
<%end if%>
<tr>
<td width="100%">请选择要转换的类型：<select size="1" name="lx">
<option value="" selected></option>
<option value="作品图片">作品图片</option>
<option value="连接地址">连接地址</option>
<option value="作品商URL">作品商URL</option>
<option value="作品商EMail">作品商EMail</option>
<option value="作品注册URL">作品注册URL</option>
</select></td>
</tr>
<tr>
<td width="100%">将全部现有网址部份：<input type="text" size=57 name="oldurl" value="<%=request("oldurl")%>"></td>
</tr>
<tr>
<td width="100%">
<p align="center">↓</td>
</tr>
<tr>
<td width="100%"> 转换为：<input size=57 name="newurl" value="<%=request("newurl")%>"></td>
</tr>
<tr>
<td width="100%">
<p align="center">
<input name="change" value="确认转换" type="submit"></td>
</tr>
</form>
</table>
</div>
</td>
</tr>
<tr>
<td width="100%" bgcolor="#F4F4F4"><font color="#000080"><b>错误报数 </b></font>
<font color="#808080">
连接从第一个字符起计</font></td>
</tr>
<form name=pd method="post" action="down_urlupdate.asp?type=save&t=error">
<tr>
<td width="100%" bgcolor="#FFFFFF">
<div align="right">
<table border="0" cellspacing="0" style="border-collapse: collapse" width="90%">
<%if request("type")="save" and request("t")="error" then%>
<tr>
<td width="100%">成功:错误数修改修改成功!</td>
</tr>
<%end if%>
<tr>
<td width="100%">将含有网址部份<input size=36 name="errorurl" value="<%=request("errorurl")%>">的作 品错误数设为<input size=4 name="error" value="<%=request("error")%>">
<input name="change" class=buttonface value="确定" type='submit'></td>
</tr>
</table>
</div>
</td>
</tr>
</form>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -