替换mdb数据库中文字或字符串的方法（测试可用）

由于要替换博客中某些敏感词（防止博客被和谐），需要批量操作数据库：批量替换数据库中的某个关键词。但是使用access数据库打开mdb数据库，竟然发现里面的搜索功能毫无反应，难道是用的office精简版的原因？不好说……经过研究，发现网上流传的方法有些不可用，但是也有可用的。经过测试，下面一个方法非常不错，但是需要使用运行asp程序，代码如下（替换mdb数据库中文字或字符串的方法一。注：已测试，可能存在某些漏洞导致数据库某些数据出现问题，如此方法出现问题，可使用第二个方法，已测试成功无错批量替换mdb数据库中文字）：

<% 
'#################################### 
'替换mdb数据库内容或字符串 
'http://www.liu16.com
'#################################### 
Dim Db,Connstr,conn,rs,rs2,str1,str2,I 
str1="阿光" '要替换的字符串 
str2="光的传人" '替换为的字符串 
Db="data.mdb" 
Set conn=Server.CreateObject("ADODB.Connection") 
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath(Db) 
Conn.Open ConnStr 
Set rs = conn.OpenSchema(20) 
Do While Not rs.eof 
If rs("TABLE_TYPE")="TABLE" Then 
Set Rs2=Server.Createobject("adodb.recordset") 
Rs2.Open "select * from ["&rs("TABLE_NAME")&"]",conn,1,3 
Do While Not Rs2.Eof 
For I=0 to Rs2.fields.count-1 
If Rs2(i).Properties("ISAUTOINCREMENT") = False Then 
Rs2(Rs2(i).name)=Myreplace(Rs2(i).value) 
End If 
Next 
Rs2.Movenext 
Loop 
Rs2.Close 
Set Rs2=nothing 
End If 
Rs.Movenext 
Loop 
Rs.close 
Set Rs=nothing 
Conn.close 
Set Conn=nothing 
Response.Write"替换完成" 
Function myreplace(byval Tstr) 
If Tstr="" Or isnull(Tstr) Then 
Exit Function 
Else 
myReplace=replace(Tstr,str1,str2) 
End If 
End Function 
%>

以上代码成功运行后，会出现“替换完成”提示，这样就大功告成了。（经测试，数据库会受到一定损害，我的博客之前的文章出现不能编辑，生成不完整的现象，不知是何缘故。使用前请备份好数据库）

但是如果没有运行asp的条件或环境呢？可以用一个asp运行的小程序，例如：Aws.exe、Ajiu AspWebServer V1.0.exe、Ajiu AspWebServer V1.8、Baby Web Server 2.6.2.exe、黑风ASP服务器.exe、智能端口急速版v1.3.exe、Smart Server Plus v2.0.exe等等。

替换mdb数据库中文字或字符串的方法二（推荐）：

由于以上方法修改的mdb数据库出现调用问题，特此再更新一个方法，经测试批量替换完成后，数据库没有出现以上错误。这个方法就是使用“速用数据库修改器”：SuperDataBase_NewHua.exe。其界面如下：

如果不嫌麻烦，还有另外一个解决方案，替换mdb数据库中文字或字符串的方法三：

1、将需要替换的字段整列复制到excle中，然后在excle中进行批量查找替换。

2、然后再将替换好的整列复制到数据库中（注意不要错行）。

以上方法适合包含需要替换关键词的字段少的情况，如果mdb数据库需要替换的列太多，这种方法就比较麻烦了。