替换数据库内容

<%
'####################################
'替换数据库内容 lamking 2005-8-22
'更新修正：2006-6-28
'http://www.imbbs.cn QQ:628557
'出售空间域名。网页制作。
'####################################
'以下请根据你的不同情况做修改
Const S1="admin" '要被替换的字符串
Const S2="1234" '替换为的字符串
Const Db="lamking.mdb" '数据库
Const IgnoreCase=True '忽略大小写
'以下数据无需更改
Dim oRs,oRs2,conn,I
 Set conn=Server.CreateObject("Adodb.Connection")
  conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath(Db)
 Set oRs=conn.OpenSchema(20)
  Do While not oRs.Eof
   If Ucase(oRs("TABLE_TYPE"))="TABLE" Then '如果是用户表
     '循环替换该表的每一个字段
      Set oRs2=Server.CreateObject("Adodb.RecordSet")
       oRs2.Open "select * from ["&ors("TABLE_NAME")&"]",conn,1,3
        Do While Not oRs2.Eof
         For I=0 To oRs2.Fields.Count-1
          '如果是OLE对象或者自动编号字段，则不替换
           If oRs2(I).Properties("ISAUTOINCREMENT")=False And ors2(I).type<>205 Then
            oRs2(oRs2(I).Name)=MyReplace(oRs2(I).value)
           End If

Next
         oRs2.update
        oRs2.MoveNext
        Loop
     oRs2.close
     set oRs2=Nothing
    End If
 oRs.Movenext
 Loop
 oRs.close
 Set oRs=nothing
Conn.close
Set Conn=nothing
Response.Write"替换完成"

Function myreplace(byval Tstr)
Dim RegEx
If Tstr="" Or isnull(Tstr) Then  Exit Function
 Set RegEx=New RegExp
  RegEx.Global = True
  RegEx.IgnoreCase = IgnoreCase
  RegEx.MultiLine = True
  RegEx.Pattern=S1
  myReplace=RegEx.Replace(TStr,S2)
 Set RegEx=Nothing
End Function
%>

赞 (0)

相关推荐

  • 替换数据库内容

    <%'####################################'替换数据库内容 lamking 2005-8-22'更新修正:2006-6-28'http://www.imbbs.cn QQ:628557'出售空间域名.网页制作.'####################################'以下请根据你的不同情况做修改Const S1="admin" '要被替换的字符串Const S2="1234" '替换为的字符串Const D

  • Access中批量替换数据库内容的两种方法

    今天遇到一个问题,一Access数据库中存放着N条文章记录,现在想替换掉这些文章中的部分内容,我们首先想到的是到网站后台去一条一条修改文章,那如果有1000篇文章,那就在网站后台改1000次,难以想象这是什么样的工作量.其实在Access数据库中可以利用SQL语句来批量替换内容,只需一句话就能解决问题,下面通过两种方法来解决此问题. 方法一:通过Access数据库中的查询分析器来修改(这里我使用的是Access 2003) 1.打开需要修改的Access数据库 2.在数据库"对象"中点

  • asp+Access通用的自动替换数据库中的字符串

    当初只是为了玩玩写的,没想到写了之后不断有人询问,所以改写了一下代码,完善了一下,支持了正则替换,避开了会导致出错的二进制(ole对象),并且做了一个EXE的程序.感谢虚拟帮忙. 附asp代码: 复制代码 代码如下: <%     '####################################     '批量替换数据库内容2008-3-17     '替换是不可逆的,所以操作前做好能备份     '####################################     Di

  • Discuz批量替换帖子内容的方法（使用SQL更新数据库）

    今天一个朋友的Discuz X2论坛需要批量替换帖子的内容,帖子数量上万,一开始是通过设置词语过滤,发现无效果,只能通过数据库批量替换了,具体方法请接着往下看. Discuz X2论坛后台提供数据库SQL语句操作的功能,但是默认情况下出于安全考虑,该功能是被关闭的,所以得先修改下配置文件,方法如下: 找到论坛程序文件config/config_global.php,用记事本打开该文件,然后查找$_config['security']['querysafe']['status']将其设置为0,继续

  • php+mysqli实现批量替换数据库表前缀的方法

    php+mysqli实现批量替换数据库表前缀的方法

    本文实例讲述了php+mysqli实现批量替换数据库表前缀的方法.分享给大家供大家参考.具体分析如下: 在php中有时我们要替换数据库中表前缀但是又不苦于一个个表去修改前缀,这里我自己写了一个mysqli批量替换数据库表前缀的php程序,感兴趣的朋友可以参考一下,代码如下: <?php header ( 'http-equiv="Content-Type" content="text/html; charset=utf-8"' ); $DB_host = &q

  • php实现批量删除挂马文件及批量替换页面内容完整实例

    本文实例讲述了php实现批量删除挂马文件及批量替换页面内容的方法.分享给大家供大家参考,具体如下: <?php # functionality: 本程序可以扫描指定目录的所有文件,进行内容替换.可用于被批量挂马的删除以及批量更新页面某些内容. # 本程序适用于对UTF-8的页面进行修改. set_time_limit(3600); //脚本运行时间 ?> <?php if($_POST['Submit']=='开始执行操作'){ $dir = $_POST['searchpath'];

  • 如何利用数据库内容建立一个下拉式列表？

    如何利用数据库内容建立一个下拉式列表?<% myDSN="DSN=xur;uid=xur;pwd=xur"mySQL="select * from authors where AU_ID<100"set conntemp=server.createobject("adodb.connection")conntemp.open myDSNset rstemp=conntemp.execute(mySQL)if rstemp.eof th

  • 用指定字符串替换指定内容

    复制代码 代码如下: @echo off setlocal enabledelayedexpansion set file= set /p file= 请输入要操作的文件名称(包括扩展名): set "file=%file:"=%" for %%i in ("%file%") do set file=%%~fi echo. set replaced= set /p replaced= 请输入即将被替换的内容: echo. set all= set /p a

  • Ajax+Asp源代码]读取数据库内容的表格(没有用框架)第1/2页

    功能: 读取数据库内容的表格.读取数据方式为ajax,分页也是.代码写得不好.呵呵.供一些学习ajax的朋友参考参考.如有不妥请大家跟贴纠正.我会根据大家的提议不断修正代码. 目前还有一个小问题,如果有朋友有兴趣帮我解决一下在下不胜感激 你翻到最后一页的时候如果只有一行会出现空白和undefined.这个问题我试了很多方法一直没有很妥当的解决. 注:下面一些地方出现笑脸表情的是 大写的d 其实很多地方都可以根据asp文件中输出的字符来控制.目前还没有往那方面完善.比如说一列显示多少行等. Asp

  • Jquery动态替换div内容及动态展示的方法

    本文实例讲述了Jquery动态替换div内容及动态展示的方法.分享给大家供大家参考.具体分析如下: 一.问题: 项目中需要在后台拼接html然后在前台通过ajax展示到div中: 复制代码 代码如下: sys_ajaxGet("/dynamic/default.do?method=show", {guid:guid},function(json){        //这里可以正确的展示html内容           alert(json.htmlContent);          

随机推荐