刚开始的时候，我只是想玩和写。我从来没有想过写作后，人们一直在问的问题，所以我重写了代码，完善它，支持正则替换，避免了二进制（对象）会导致错误，并做了一个EXE程序。谢谢你的虚拟服务。
附在asp代码上：
复制代码代码如下所示：
<
####################################
批量替换数据库内容2008-3-17
替换是不可逆的，所以在手术前做好备份。
####################################
昏暗的DB、Conn、RS1、RS2，str1、str2，我重新
str1 =管理0-z } {替换字符串，支持正则
str2 =1234替换字符串
数据库地址
没有必要改变以下内容
创建常规对象
集重=新的正则表达式
re.ignorecase =真
重复全局=真的
设置conn = server.createobject（数据连接）
康涅狄格州开商=微软。飞机。OLEDB数据源。4；=server.mappath（dB）
集RS1 = conn.openschema（20）
而不是EOF RS1。
如果ucase（RS1（table_type ））=表然后，如果它是一个用户表，然后做作业
集RS2 = server.createobject（ADODB。记录集）
RS2。打开选择*从{RS1（table_name }）
而不是EOF RS2。
我= 0 rs2.fields.count-1的遍历所有的领域
如果是因为（我）。特性（isautoincrement ）=假和RS2（我）。型<> 128和，如果它不是自动编号，而不是对象。
RS2（RS2（我）。名字）= myReplace（RS2（我）的价值。）
最后如果
下一个
MoveNext RS2。
环
近2。
集RS2 =没有
最后如果
rs1.movenext
环
近1。
集RS1 =没有
conn.close
设置conn =没有
设置否
响应。写替换完成

自定义替换函数
功能myReplace（ByVal Tstr）
如果通= 或空（通）然后
退出功能
其他的
模式= str1重新。
myReplace = re.replace（通，str2）
最后如果
端功能
%>