⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 movie_urlupdate.asp

📁 很好的企业网站管理系统!可以适应各种不同的小型企业!
💻 ASP
字号:
🔍 
<%Admin="DownAdminAll"%>
<!--#include file="check.asp"-->
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta copy="电影制作：xoyu（QQ：5964887）www.xoyu.com">
<title>晓宇听幽网站内容管理系统</title>
<link rel="stylesheet" href="admin.css" type="text/css">
</head>
<body topmargin="1" leftmargin="1">
<%
'#################################################################
'#  晓宇听幽网站内容管理系统(xoYu CMS)
'# 
'#  版权所有: 晓宇听幽工作室
'#
'#  制作人  :  xoyu(晓宇)            
'#           
'#  主页地址: http://www.xoYu.com	    晓宇听幽工作室
'#  论坛地址: http://www.xoYu.com/bbs/	晓宇听幽讨论区
'#
'#【版权声明】
'#################################################################
'# 本软体为共享软体(shareware)提供个人网站免费使用，请勿非法修改,
'# 转载，散播，或用于其他图利行为，并请勿删除版权声明。
'# 如果您的网站正式起用了这个脚本，请您通知我们，以便我们能够知晓！
'# 如果可能，请在您的网站做上我们的链接，希望能给予合作。谢谢！
'#################################################################
'# 电影名称：晓宇听幽网站内容管理系统·电影管理系统
'# 英文名称：xoYu News 2004 Professional For xoYu CMS
'# 电影创建时间：2003-7-10
'# 电影完成时间：2003-9-11
'# 最后修改时间：2003-11-15
'#################################################################
'# 请您尊重我们的劳动和版权，不要删除以上的版权声明部分，谢谢合作
'# 如有任何问题请到我们的论坛(http://www.xoyu.com/bbs/)告诉我们。 
'#################################################################
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")
zcn="xoyu"
yzcv=zj*(len(zj)+len(zcn&"xoYuNews"))
Do While yzcv>10000000000
yzcv=yzcv-10000000000
loop
if yzcv<>zcv then
response.write("<b><font color=""#FF0000"">错误：电影尚未注册,此功能不能使用!</font></b>")
response.end
end if
%>
<!--#include file="mdb_path_Movie.asp"-->
<%
i=0
Set rs= Server.CreateObject("ADODB.Recordset")
if request("t")="url" then
  if request("lx")="电影图片" then
	sql="select * from Movie 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 Moviefile 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 Movie 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 Movie 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 Movie 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 Moviefile 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 Movie 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="电影商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 + -