苗景云的博客

复制一下代码保存为Asp文件运行

<%
dim strsql,connstr
connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("Data/#EasyCrm.mdb")
set conn= server.createObject("ADODB.Connection")
conn.open connstr
strsql="select * from Hetong"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open strsql,conn,1,3

'response.write "快"
conn.execute("select * from Hetong where Purview like '%操作员%'")
do while not rs.eof
  rs("Purview")=Replace(rs("Purview"),"操作员","钱某")
  rs.update
  rs.movenext
  loop
rs.close
set rs=nothing
Conn.close
Set conn = Nothing
%>

如果在其他文件中，可以用一下方法：

set rs0=server.CreateObject("adodb.recordset")
 rs0.open "Select Purview from Hetong where Purview like '%"&OldName&"%'",conn,1,3
do while not rs0.eof
 rs0("Purview")=Replace(rs0("Purview"),""&OldName&"",""&uName&"")
 rs0.update
 rs0.movenext
 loop
    rs0.close
    set rs0=nothing