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.111cn.cn,"www.111cn.cn ")
    conn.execute("update [table] set content='"&temp_content&"' where content='"&content&"'")
next
response.write "完成更新工作!"
rs.close
conn.close
set rs=nothing
set conn=nothing
%>