asp内容更新程序实例教程

asp内容更新程序实例教程

'建立连接
set conn = server.createobject("adodb.connection")
conn.open = "provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath("data.mdb")
dim rs,arr_getrows,i,temp_content,content
set rs=conn.execute("select content from [table]")
arr_getrows=rs.getrows
for i=0 to ubound(arr_getrows,2)
'假定content是第1个字段
content=arr_getrows(0,i)
temp_content=replace(content,,"www.111com.net ")
conn.execute("update [table] set content='"&temp_content&"' where content='"&content&"'")
next
response.write "完成更新工作!"
rs.close
conn.close
set rs=nothing
set conn=nothing
%>