'這里省略數(shù)據(jù)庫(kù)連接代碼 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