![]() |
#2
cslldu2008-11-08 23:48
|
Function BbbImg(strText)
Dim s,re
Set re=New RegExp
re.IgnoreCase = true
re.Global = true
s=strText
'去掉图片中的脚本代码
re.Pattern="<IMG.[^>]*SRC(=| )(.[^>]*)>"
s=re.replace(s,"<IMG SRC=$2 onload=""javascript:resizeimg(this,500,400)""alt=$2>")
BbbImg = ChkBadWords(s)
Set re=Nothing
End Function
这段代码把我原文<img>标签中的alt属性及其值去掉了,怎么再在这段代码中添上,谢谢了!!!


