替换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数据库需要替换的列太多，这种方法就比较麻烦了。
