西安网站建设ASP修正内容中图片参数

7822015-04-14

西安网站建设ASP修正内容中图片参数

Function FixImg(sString)

   Dim sReallyDo, regEx, iReallyDo

   Dim oMatches, cMatch

   Dim tStartTime, tEndTime

   If IsNull(sString) Then

       FixImg = ""

       Exit Function

   End If

   sReallyDo = sString

   On Error Resume Next

   sReallyDo = Replace(sReallyDo, vbCr, " ")

   sReallyDo = Replace(sReallyDo, vbLf, " ")

   sReallyDo = Replace(sReallyDo, vbTab, " ")

   sReallyDo = Replace(sReallyDo, "<img ", vbCrLf & "<img ", 1, -1, 1)

   sReallyDo = Replace(sReallyDo, "/>", " />", 1, -1, 1)

   sReallyDo = ReplaceAll(sReallyDo, "= ", "=", True)

   sReallyDo = ReplaceAll(sReallyDo, "> ", ">", True)

   sReallyDo = Replace(sReallyDo, "><", ">" & vbCrLf & "<")

   sReallyDo = Trim(sReallyDo)

   On Error GoTo 0

   Set regEx = New RegExp

   regEx.IgnoreCase = True

   regEx.Global = True

   '//去除onclick,onload等脚本

   regEx.Pattern = "\s[on].+?=([\""|\'])(.*?)\1"

   sReallyDo = regEx.Replace(sReallyDo, "")

   '//将SRC不带引号的图片地址加上引号

   regEx.Pattern = "<img.*?\ssrc=([^\""\'\s][^\""\'\s>]*).*?>"

   sReallyDo = regEx.Replace(sReallyDo, "<img src=""$1"" />")

   '//正则匹配图片SRC地址

   regEx.Pattern = "<img.*?\ssrc=([\""\'])([^\""\']+?)\1.*?>"

'sReallyDo = regEx.Replace(sReallyDo, "<img src=""$2"" />") 输出不带任何参数的图片

   sReallyDo = regEx.Replace(sReallyDo, "<a href=""$2""><img src=""$2"" /></a>") '在这个基础上加上自己想加的代码

   FixImg = sReallyDo

End Function

通过本文您对西安网站建设有了进一步了解,本公司温馨提醒:找西安做网站公司,请选择手续齐全、业务精、服务好的正规公司。

工商网上亮照

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1

客户服务电话:029-89640155 18991365125

公司注册地址:西安市雁塔区融鑫路丽湾蓝岛1幢3单元16层31605号

临时办公地址:西安市雁塔区朱雀大街紫郡长安F3

Sitemap 网站地图 手机版

办公电话:029-89640155

服务热线:18991365125

客服信箱:vip@dianmo.cc

846461336327

西安点墨网络科技有限公司

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1