会员登陆
登录加载中...
超级搜索
栏  目  
类  别  
关键词  
 站内搜索   网络搜索
  
 当前位置:教程首页>>Pro版本>>Pro V2.X版本>>批量替换SKINS内容标签
推荐给你的朋友阅读:

批量替换SKINS内容标签

来源:飞腾设计网 发表日期: 2007-11-06 15:22:37

    

    <%
    '==================================
    '=文 件 名:Admin_RenameSkinsTags.asp
    '=适用版本:FeitecCMS AC V2.0 Pro
    '=功    能:批量替换SKINS内容标签
    '=作    者:雨城[From to FeitecStudio]专用
    '=日    期:2007-08-02 14:00
    '=版    权:http://www.feitec.com/
    '=技术讨论:1006885
    '==================================
    %>
    <!--#include file="Ft_Admin_Conn.asp"-->
    <!--#include file="../Ft_Format.asp"-->
    <!--#include file="Ft_Admin_Top.asp"-->
    <%
    AdminLogin()
    Call AdminPower(12)
    Response.Buffer = True
    Response.ExpiresAbsolute = Now() - 1
    Response.Expires = 0
    Response.CacheControl = "no-cache"
    Response.AddHeader "Pragma", "No-Cache"
    %>
    <div class="hbr"></div>
    <div align=center class="tableborder" style="text-align:left;">
    <div class="td_title" onmouseover=this.className='td_title2' onmouseout=this.className='td_title'>在线更批量更改风格数据库标签</div>
    <div class="tableborder1">
     <ul>
      <li>此功能的主要目的,就是批量替换多个风格中的模板标签,方便管理员批量处理风格模板。</li>
      <li>使用此功能,必须编辑源文件SQL语句才行。</li>
      <li><span style="color:#0000ff">注意:只能让数据库中一个字段一个字段地更换。建议先备份数据库,以防不测!</span></li>
     </ul>
    </div>
    </div>

    
    <div class="hbr"></div>
    <%
    If Request.Form("OK")="True" Then
    Dim SqlContent,OldTags,NewTags
     OldTags=Request.Form("OldTags")
     NewTags=Request.Form("NewTags")
     SqlContent=Request.Form("SqlContent")
     'Sql="Select Mb_Dj From Ft_Mb_Style"
     Sql=""&SqlContent&""
     Set Rs=Server.CreateObject("Adodb.RecordSet")
     Rs.open Sql,FtConn,1,3
     If Not ( Rs.Eof Or Rs.Bof ) Then
      Do While Not Rs.Eof
       Rs(0)=Replace(Rs(0),OldTags,NewTags)
       Rs.Update
       Rs.MoveNext
      Loop
      Response.Write"<script>alert('批量替换模板标签成功');location.href='Admin_RenameSkinsTags.asp';</script>"
     Else
      ErrorInfo("当前数据库表中数据为空")
     End If
     Rs.Close:Set Rs=Nothing
    Else
    %>
    <table cellspacing="1" cellpadding="4" class="tableborder" align="center">
     <form name="form1" method="post" action="">
     <tr>
      <td class="tableBorder1" width="17%">Sql语句:</td>
      <td class="tableBorder1" width="83%"><input type="text" name="SqlContent" style="width:80%" value="Select Mb_Other From Ft_Mb_Style"></td>
     </tr>
     <tr>
      <td class="tableBorder1">搜索标签:</td>
      <td class="tableBorder1"><input type="text" name="OldTags" style="width:20%" value=""></td>
     </tr>
     <tr>
      <td class="tableBorder1">替换标签:</td>
      <td class="tableBorder1"><input type="text" name="NewTags" style="width:20%" value=""></td>
     </tr>
     <tr>
      <td align="center" colspan="2" class="tableBorder1" height="40"><input type="submit" name="submit" value="确定" class="submit" onmouseover=this.className='submit2' onmouseout=this.className='submit'><input type="hidden" name="OK" value="True"></td>
     </tr>
    </table></form>
    <%
    End If
    %>
    <!--#include file="Ft_Admin_Bottom.asp"-->

将此内容另存为Admin_RenameSkinsTags.asp文件,并放于管理目录中,可批量更改多个风格中的同一模板标签。

0
0
[作者:雨城 关键词:FeitecCMS Pro,SKIN,标签 录入:raincity 责编:raincity 阅读次数:2247]

相关文章 相关新闻 相关软件 相关教程 公共评论 发表评论

    评论载入中...
    您的称呼  验 证 码   
    您的评论 [ 最多字数:  已用字数:剩余字数:]

     
COPYRIGHT 2003-2010 创意飞腾科技有限公司(The Feitec LTD.) ALL RIGHTS RESERVED .
官方咨询官方咨询4376161 官方咨询526743959 技术支持:FeitecCMS5366464
页面加载时间:156.01ms Powered By:FeitecCMS V4.0(Build1101)
[蜀ICP备05000881]