www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > admin/down_urlupdate.asp
<%Admin="DownAdminAll"%> <!--#include file="check.asp"--> <!--#include file="RegNum.asp"--> <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"> <% if request("type")="save" then 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") name="xoyu" yregnum=zj*(len(zj)+len(name&"xoYuNews")) Do While yregnum>10000000000 yregnum=yregnum-10000000000 loop %> <!--#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")="下载点名称" then sql="select * from downfile where filename like '"&request("oldurl")&"%'" rs.open sql,conn,1,3 do while not rs.EOF rs("filename")=replace(rs("filename"),""&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")="软件关键字" then sql="select * from down where keyword like '%"&request("oldurl")&"%'" rs.open sql,conn,1,3 do while not rs.EOF rs("keyword")=replace(rs("keyword"),""&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="#555555"> <tr> <th width="100%" bgcolor="#6A6A6A"><font color="#FFFFFF"><b>批量修改</b></font></th> </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="#FF0000"><%=request("oldurl")%>***</font>的"<%=request("lx")%>"字符<br>全部转换为<font color="#FF0000"><%=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="下载地址">下载地址</option> <option value="软件商URL">软件商URL</option> <option value="软件商EMail">软件商EMail</option> <option value="软件注册URL">软件注册URL</option> <option value="下载点名称">下载点名称</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>