📄 admin_batchlink.asp

📁 动感系统XP Access版,服务器需要安装Jmail 组件配置SendMessages.asp 最后部分的参数
💻 ASP
字号:
<!-- #include file="conn.asp" -->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/function.asp" -->
<HTML><HEAD><TITLE>后台管理 </TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="admin.css" type=text/css rel=stylesheet>
</HEAD>
<BODY leftMargin=0 topMargin=0>
<!-- #include file="admin_header.asp" -->
<table width="100%" border="0" cellspacing="2">
  <tr>
    <td width="20%" align="center" valign="top" class="tdbgleft"><!-- #include file="Admin_Left.asp" --></td> 
    <td  class="b1" valign="top"> 
      <%
if not isnull(cUserName) and cUserName<>"" then 
dim isMaster
isMaster=false
Server.ScriptTimeOut=9999999
  if chkMaster(cUserName) then
     isMaster=true
      select case Trim(Request.Form("action"))
      case "replace"
		call replacelink()
      case "search"
		call searchlink()	
      case else
	  call main()
      end select
  else
  msgtitle="软件下载地址批量管理"
  msginfo="<li>操作错误，你不是超级管理员，没有权限。</li>" 
  call Sysmsg(msgtitle,msginfo) 
  end if
else
  msgtitle="软件下载地址批量管理"
  msginfo="<li>操作错误，你没有登录系统！<li><a href=""User.Asp"">点此登录系统</a></li>" 
  call Sysmsg(msgtitle,msginfo) 
end if

sub replacelink()
oSoftLink=checkStr(Trim(Request.Form("oSoftLink")))
nSoftLink=checkStr(Trim(Request.Form("nSoftLink")))
set rs=server.createobject("adodb.recordset")
set uprs=server.createobject("adodb.recordset")
sql="select ID,Address from SoftDown_SoftLink where Address like '%"&Trim(Request.Form("oSoftLink"))&"%'"
rs.open sql,conn,1,1 
if not(rs.eof and rs.bof) then 
 i=rs.recordcount
 do while not rs.eof 
  newAddress=replace(rs(1),""&oSoftLink&"",""&nSoftLink&"")
  
  sql="select * from SoftDown_SoftLink where ID="&rs(0)
  uprs.open sql,conn,1,3
  uprs("address")=newAddress
  uprs.update
  uprs.close
  
  rs.MoveNext
  Loop
end if
rs.close
set uprs=nothing
set rs=nothing
msgtitle="软件下载地址批量管理"
  msginfo="<li>操作成功，共更新了 "&i&" 下载地址信息！</li>" 
  call Sysmsg(msgtitle,msginfo) 
end sub

sub searchlink()
 %>
      <form name="myform"  action="" method="post">
        <table cellpadding="3" cellspacing="1" border="0" width="100%" class="tableBorder" align=center>
          <tr> 
            <th height="22" class="tdbg1">软件下载地址批量替换管理 
              <input name="action" type="hidden" value="replace"></th>
          </tr>
          <tr> 
            <td height="25" align="center" class="tdbg2"> 
<%
	  set rs=server.createobject("adodb.recordset")
	  sql="select count(ID) from SoftDown_SoftLink where Address like '%"&checkStr(Trim(Request.Form("oSoftLink")))&"%'"
	  rs.open sql,conn,1,1 
	  if not(rs.eof and rs.bof) then 
	  	Response.Write("本次搜索找到了 <b>"&rs(0)&"</b> 个相关下载地址。")
	  	Response.Write("<a href=Admin_BatchLink.asp>返回重新查找</a>")
      else
	  	Response.Write("没有找到相关下载地址，<a href=Admin_BatchLink.asp>返回重新查找</a>")
	  end if
	  rs.close
	  set rs=nothing	 
	   %>
            </td>
          </tr>
          <tr> 
            <td height="25" align="center" class="tdbg2">将字符 
              <input name="oSoftLink" type="text" value="<%= Trim(Request.Form("oSoftLink")) %>" size="45" maxlength="50"> 
            </td>
          </tr>
          <tr> 
            <td height="25" align="center" class="tdbg2">替换成 
              <input name="nSoftLink" type="text" value="" size="45" maxlength="50"> 
            </td>
          </tr>
          <tr> 
            <td height="25" align="center" class="tdbg2">
<input type="submit" name="Submit2" value="马上替换 "></td>
          </tr>
        </table>
      </form>
<% end sub
sub main()
 %>
<form name="myform"  action="" method="post">
        <table cellpadding="3" cellspacing="1" border="0" width="100%" class="tableBorder" align=center>
          <tr> 
            <th height="22" class="tdbg1">软件下载地址批量替换管理</th>
          </tr>
          <tr> 
            <td height="25" align="center" class="tdbg2">下载地址中包含字符： 
              <input name="action" type="hidden" value="search"> <input name="oSoftLink" type="text" size="45" maxlength="50"> 
              <input type="submit" name="Submit" value="查找"> </td>
          </tr>
          <tr> 
            <td height="25" align="center" class="tdbg2">注意：单引号“'”将被自动过滤掉</td>
          </tr>
        </table>
      </form>
<% end sub %>
    </td>
  </tr>
</table>
<!-- #include file="admin_footer.asp" -->
</BODY></HTML>
<%CloseDatabase %>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -