【www.gdgbn.com--今天更新】
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.net,"www.111cn.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
%>