Set HF = New RegExp   ' 建立正则表达式。

HF.Pattern = "《img[^>]*>"  '设置模式、《请替换成英文的左尖括号。

HF.IgnoreCase = True   ' 设置是否区分字符大小写。
HF.Global = True   ' 设置全局可用性。

Set conn = Server.CreateObject("ADODB.connection")
conn.connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("/data/数据库名.mdb")
conn.Open()
Set rs = Server.CreateObject("ADODB.Recordset")

sql="select * from 表名"
rs.open sql,conn,1,1
do while not rs.eof
content = HF.replace(rs("content"),"")
sql = "update 表名 set content='"&content&"' where cid = "&rs("cid")
conn.execute(sql)
rs.movenext
loop
rs.Close
set rs=Nothing