繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > Access通用－自动替换数据库中的字符串
- ASP
- ASP字符串大写转换成小写 ASP小写转换成大写 ucase lcase
- asp base64加解密函数代码
- Discuz!NT 论坛整合ASP程序论坛
- discuz 2.0整合asp系统,用户添加函数
- P3P 和 跨域 (cross-domain) cookie 访问(读取和设置）
- 通过asp程序来创建access数据库
- 检查access数据库中是否存在某个名字的表的asp代码
- asp #include file 与 #include virtual 的区别小结
- 一个带采集远程文章内容,保存图片,生成文件等完整的采集功能
- asp 横排显示数据
- asp base64 utf-8为了兼容asp.net的base64
- 两个非常规ASP木马(可躲过扫描)
- asp DateDiff实现文字在特定时间后消失
- ASP所有的Session变量获取实现代码
- 关于ASP eof与bof 区别分析
- asp ajax注册验证之 防止用户名输入空格
- asp sqlserver 执行存储过程返回记录集报对象关闭时不允许操作
- ASP 获取文件扩展名函数getFileExt()
- asp 简单分页代码
- asp删除mssql数据库中没有记录的图片代码
ASP 中的 Access通用－自动替换数据库中的字符串
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 75 ::
收藏到网摘: n/a
自己可以修改myreplace函数,实现复杂的替换.呵呵,好象用处不大.主要是看看如何读取access表和字段列表
<%
'####################################
'替换数据库内容 lamking 2005-8-22
'http://www.lamking.com QQ:628557
'####################################
Dim Db,Connstr,conn,rs,rs2,str1,str2,I
str1="abcd" '要替换的字符串
str2="1234" '替换为的字符串
Db="lamking.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
%>
评论 (0) All
