asp+Access通用的自动替换数据库中的字符串
2023-06-13 09:14:01 时间
当初只是为了玩玩写的,没想到写了之后不断有人询问,所以改写了一下代码,完善了一下,支持了正则替换,避开了会导致出错的二进制(ole对象),并且做了一个EXE的程序。感谢虚拟帮忙。
附asp代码:
<%
"####################################
"批量替换数据库内容2008-3-17
"替换是不可逆的,所以操作前做好能备份
"####################################
Dim Db,conn,Rs1,Rs2,Str1,Str2,I,Re
str1="admi[0-z]" "要替换的字符串,支持正则
str2="1234" "替换为的字符串
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
Set Rs2=nothing
End If
Rs1.MoveNext
Loop
Rs1.Close
Set Rs1=Nothing
Conn.close
Set Conn=Nothing
Set Re=Nothing
Response.Write "替换完成"
"自定义的替换函数
Function myreplace(byval Tstr)
If Tstr="" Or isnull(Tstr) Then
Exit Function
Else
Re.Pattern=Str1
myReplace =Re.Replace(Tstr,Str2)
End If
End Function
%>
相关文章
- 数据ASP 实现MySQL数据库更新(asp更新mysql)
- ASP操作MySQL数据库的实现(asp读取mysql)
- 应用ASP应用深度运用MSSQL语句(mssql 语句 asp)
- 使用ASP连接MySQL实现数据库应用(asp连接空间mysql)
- ASP实现与MySQL数据库的连接(asp连接mysql源码)
- ASP无法连接MySQL数据库解决方案(asp连不上mysql)
- 使用ASP连接MySQL数据库,轻松实现功能扩展(asp连mysql数据库)
- ASP转换MySQL掌握数据库迁移技术(asp转换为mysql)
- ASP读取MySQL数据库操作变慢的原因分析(asp+读取mysql慢)
- ASP编程存取MySQL数据库出现乱码问题(asp读mysql乱码)
- 基于ASP技术连接MySQL数据库(asp支持mysql)
- 数据如何使用ASP操作MySQL数据库(asp怎么存取mysql)
- 数据库ASP如何调用MySQL数据库(asp如何调用mysql)
- ASP连接MySQL,开发数据库应用变得更容易(asp可以连mysql)
- 利用ASP技术进行MySQL数据库开发(asp可以使用mysql)
- ASP无法连接MySQL数据库问题解决方案(asp不能连接mysql)
- asp语言驱动MySQL50数据库开发新时代(asp mysql5.0)
- ASP驱动的Oracle数据库连接源码解析(asp连oracle源码)
- ASP程序从Oracle数据库精挖宝贵资源(asp取oracle数据)
- ASP写入Oracle数据库性能瓶颈问题(asp写入Oracle慢)
- 使用asp技术连接Oracle数据库(asp与oracle连接)
- ASP程序开发与Oracle数据库结合实现(asp与oracle)
- 在asp中通过getrows实现数据库记录分页的一段代码
- 在Win200364位下ASP无法连接Access数据库
- asp.net根据汉字的拼音首字母搜索数据库(附LINQ调用方法)
- ASP下使用Access数据库需要注意的18条安全法则
- asp.net中将数据库绑定到DataList控件的实现方法与实例代码
- ASP.NET连接MySql数据库的2个方法及示例