如果只想除去图片自动大小,而不去除鼠标缩放是不是只要去除
'去除onclick,onload等脚本
're.Pattern = "\s[on].+?=([\""|\'])(.*?)\1"
'Content = re.Replace(Content, "")
Dim LinkStr
If TotalPage=1 Then
LinkStr="href=""$2"" target=""_blank"""
Else
LinkStr="href=""" & Url & """"
End If
这一部分就行了?