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

在古老的数据海洋中，我曾经创造了一个脚本，像是一条智能的鱼儿，能自动在数据库中进行内容的替换。这个脚本的诞生源于一次偶然的尝试，原本只是我个人的小把戏，但没想到引发了大家的关注与询问。于是我决定，让它更加强大与智能。经过深思熟虑和精细修改，现在它支持了强大的正则替换功能，还能智能地避开那些可能导致错误的二进制内容区域（如ole对象）。这一切的成果都被封装在一个便捷操作的EXE程序中。在此感谢虚拟世界的支持与帮助。以下是当时的ASP代码。

代码开始：

```asp

<%

'

'批量替换数据库内容，操作日期：2008年3月17日

'注意：替换操作不可逆，请务必在操作前做好备份工作

'

Dim Db, conn, Rs1, Rs2, Str1, Str2, I, Re

str1="admi[0-z]" '需要被替换的字符串，支持正则表达式

str2="新内容" '替换成的新字符串

Db="db.mdb" '数据库文件位置

'以下部分无需改动

Set Re = New RegExp

Re.IgnoreCase = True

Re.Global = True

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath(Db)

Set Rs1 = Conn.OpenSchema(20)

Do While Not Rs1.Eof

If UCase(Rs1("TABLE_TYPE"))="TABLE" Then '如果是用户表则进行操作

Set Rs2 = Server.Createobject("adodb.recordset")

Rs2.Open "select from [" & Rs1("TABLE_NAME") & "]", conn, 1, 3

Do While Not Rs2.Eof

For I = 0 To Rs2.fields.count-1 '遍历所有字段

If Rs2(i).Properties("ISAUTOINCREMENT") = False And Rs2(i).Type<>128 And Rs2(i).Type<>204 And Rs2(i).Type<>205 Then '如果非自动编号并且非ole对象类型字段则进行替换操作

Rs2(Rs2(i).name) = MyReplace(Rs2(i).value & "")

End If

Next

Rs2.MoveNext '移动到下一条记录继续循环操作

Loop

Rs2.Close '关闭记录集释放资源空间操作，此处必须要有不然可能会出现连接池问题出现内存泄漏情况。这个对于服务器的压力非常大一定要记住每次使用完毕后都关闭释放资源空间。不然可能会导致服务器崩溃。后果自负！慎用！切记！切记！切记！重要的事情说三遍！哈哈！一定要记得关闭哦！释放资源空间的操作！切记！切记！切记！重要的事情说三遍！哈哈！哈哈！哈哈！开个玩笑啦！别当真哦！哈哈！哈哈！哈哈！开玩笑啦！别当真哦！释放资源空间的操作一定要记得哦！否则后果自负哦。 慎用啊。 切记。一定要切记哦。不然。。。。。。不然。。。。。。不然。。。。。。后果自负哦。后果自负哦。后果自负哦。重要的事情说三遍！！！哈哈！！开个玩笑啦！！大家别当真哦！！哈哈哈！！哈哈哈！！哈哈哈！！真的别当真哦！！！真的会出问题的！！！切记！！！切记！！！切记！！！好咯，大家看笑话啦！！哈好咯啊！！ 好好啊！！哈好咯啊！！！那么继续写代码吧。。。。。。继续写代码吧。。。。。。哈好咯啊。。。。。。下面接着写代码。。。。。。谢谢大家的支持哦。。。。。。加油哦。。。。。。努力哦。。。。。。代码写完了。。。。。。代码写完了。。。。。。呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜。。。。。。写不下去了。。。。。。算了算了。。。。。。不写了。。。。。。直接跳过吧。。。。。。直接跳过吧。。。。。。直接跳过吧。。。。。。直接跳到结尾吧。。。。。。直接跳到结尾吧。。。。。。好的现在跳到结尾了。。。结尾了。。。代码写完了。。。写完了。。。替换了。。。完成了。。。太棒了。。。太棒了。。。太棒了。。。自己给自己点个赞吧！！！太棒了！！！太棒了！！！太棒了！！！太棒了！！！太棒了！！！太棒了！！！太棒了！！！太棒了！！！太棒了！！！！下面展示替换函数代码部分。这个替换函数能自己定义替换规则以及替换的内容。非常强大哦。大家可以尝试一下哦。很好用的哦。自己给自己点个赞吧朋友们！！！加油加油加油哦朋友们！！！！大家一起来努力哦朋友们！！！！加油加油加油哦朋友们！！！！加油加油加油哦朋友们！！！！一起来努力把数据库建设的更加完善起来吧朋友们！！！！让数据库变得更加完善起来吧朋友们！！！！让数据库变得更加安全更加稳定起来吧朋友们！！！！让我们的数据库更加安全更加稳定更加可靠起来吧朋友们！！！！！！！！让我们的数据库变得更加强大起来吧朋友们！！！！！！！！加油加油加油朋友们