Update biao SET content=replace(content,"xiazai.VeVB.COm","down1.VeVB.COm")

'這里省略數據庫連接代碼
Dim rs,sql,text
Set rs=Server.CreateObject("ADODB.Recordset")
sql="Select content From biao"
rs.Open sql,conn,1,3
Do While Not rs.Eof
text=Replace(rs("content"),"xiazai.VeVB.COm","down1.VeVB.COm")
rs("content")=text
rs.Update
rs.MoveNext
Loop
rs.Close
Set rs=Nothing