|
| 过滤HTML代码的函数包括过滤CSS和JS |
| 龙脉科技 [发布时间：2011-6-4] 已被阅读：次 |
|
|
过滤HTML代码的函数包括过滤CSS和JS
Function RemoveHTML(strHTML) '过滤HTML代码的函数包括过滤CSS和JS
StrHtml = Replace(StrHtml,vbCrLf,"")
StrHtml = Replace(StrHtml,Chr(13)&Chr(10),"")
StrHtml = Replace(StrHtml,Chr(13),"")
StrHtml = Replace(StrHtml,Chr(10),"")
StrHtml = Replace(StrHtml," ","")
StrHtml = Replace(StrHtml," ","")
StrHtml = Replace(StrHtml, "&", "&")
StrHtml = Replace(StrHtml, ">", ">")
StrHtml = Replace(StrHtml, "<", "<")
StrHtml = Replace(StrHtml, " ", " ")
StrHtml = Replace(StrHtml, """, """")
StrHtml = Replace(StrHtml, "<P></P>","")
Dim objRegExp, Match, Matches
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
'取闭合的<>
objRegExp.Pattern = ""
'进行匹配
Set Matches = objRegExp.Execute(strHTML)
' 遍历匹配集合，并替换掉匹配的项目
For Each Match in Matches
strHtml=Replace(strHTML,Match.Value,"")
Next
'取闭合的<>
objRegExp.Pattern = ""
'进行匹配
Set Matches = objRegExp.Execute(strHTML)
' 遍历匹配集合，并替换掉匹配的项目
For Each Match in Matches
strHtml=Replace(strHTML,Match.Value,"")
Next
'取闭合的<>
objRegExp.Pattern = "<.+?>"
'进行匹配
Set Matches = objRegExp.Execute(strHTML)
' 遍历匹配集合，并替换掉匹配的项目
For Each Match in Matches
strHtml=Replace(strHTML,Match.Value,"")
Next
RemoveHTML=strHTML
Set objRegExp = Nothing
End Function |
|
| |
|
| >> 网站套餐 |
|
标准简洁型网站建设套餐
3800元
随着网络媒体的迅速普及，在您的卡片上印上个网址和企业邮箱已经是不可不做的工作 |
|
外贸企业网站套餐
6800元
外贸企业专页解决方案，专业技术，专业代码，服务百余客户，给您的国外客户一个快速、友好的网站界面 |
|
|
