首页  »  网页设计教程  »  Access实用-自动替换数据库中的字符串

Access实用-自动替换数据库中的字符串

浏览数:共 51 次     评论:共 0 条     发布日期:2011-08-18     分类:asp

"####################################
"替换数据库内容 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
%>



上一篇:利用split分割多字符的字符串的方式
下一篇:关于文摘插件提交表单的开发