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
