实现Access数据库表中内容的字符快速替换

实现Access数据库表中内容的字符快速替换， 先把记录集（RecordSet）取出为数组，在数组中替换字符串，所有记录替换成功后，再批量保存到数据库中。这样的效率比较高。 如果直接用Sql语句中边替换边保存的话，程序会很卡的。 把View_Info表中的Content字段中的厦门替换为广州 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open "D:sdcmsData#6Gb1Hv8Vj4Iv.mdb"   set rs=Server.CreateObject("ADODB.recordset") rs.Open "Select ID,Title,Content,Author from View_Info", conn tmp_array=rs.GetRows '先把记录集（RecordSet）取出为数组 %> <%Dim tmpNumS,tmpNumI '输出替换前的数组 tmpNumS=Ubound(tmp_array,2)'得到数组中数据的下标 For tmpNumI=0 To tmpNumS Response.Write("ID：<br />"& tmp_array(0,tmpNumI) & " | 标题：<br />" & tmp_array(1,tmpNumI) & " | 介绍：<br />" & tmp_array(2,tmpNumI) & "<br /><br />") Next   For tmpNumI=0 To tmpNumS '数组批量替换 tmp_array(2,tmpNumI)=Replace(tmp_array(2,tmpNumI),"厦门","广州") '把View_Info表中的Content字段中的厦门替换为广州 Next   For tmpNumI=0 To tmpNumS '输出替换后的数组 Response.Write("ID：<br />"& tmp_array(0,tmpNumI) & " | 标题：<br />" & tmp_array(1,tmpNumI) & " | 介绍：<br />" & tmp_array(2,tmpNumI) & "<br /><br />") Next   For tmpNumI=0 To tmpNumS '将替换后的数组批量保存到数据表中去 sql="UPDATE View_Info SET " sql=sql & "Content='" & tmp_array(2,tmpNumI) &"'" sql=sql & " WHERE ID=" & tmp_array(0,tmpNumI) & "" on error resume next conn.Execute sql if err<>0 then response.write("No update permissions!") else response.write("Record " & tmp_array(0,tmpNumI) & " was updated!") end if Next   %>     <% rs.close conn.close set rs = Nothing set conn = Nothing %> 作者：http://www.dgtaixi.com/