Access通用－－自动替换数据库中的字符串
2018-09-06 13:01
自己可以修改myreplace函数,实现复杂的替换.呵呵,好象用处不大.主要是看看如何读取access(小型网站之最爱)表和字段列表
<%
’####################################
’替换数据库内容lamking2005-8-22
’
’####################################
DimDb,Connstr,conn,rs,rs2,str1,str2,I
str1=abcd’要替换的字符串
str2=1234’替换为的字符串
Db=lamking.mdb
ConnStr=Provider=Microsoft.Jet.OLEDB.4.0;DataSource=server.mappath(Db)
Conn.OpenConnStr
Setrs=conn.OpenSchema(20)
DoWhileNotrs.eof
Ifrs(TABLE_TYPE)=TABLEThen
SetRs2=Server.Createobject(adodb.recordset)
Rs2.Openselect*from[rs(TABLE_NAME)],conn,1,3
DoWhileNotRs2.Eof
ForI=0toRs2.fields.count-1
IfRs2(i).Properties(ISAUTOINCREMENT)=FalseThen
EndIf
Next
Rs2.Movenext
Loop
Rs2.Close
SetRs2=nothing
EndIf
Rs.Movenext
Loop
Rs.close
SetRs=nothing
Conn.close
SetConn=nothing
Response.Write替换完成
Functionmyreplace(byvalTstr)
IfTstr=Orisnull(Tstr)Then
ExitFunction
Else
myReplace=replace(Tstr,str1,str2)
EndIf
EndFunction
%>