|
|
 打开Kesion.CommonCls.asp找到大概1195行（标红色的）- Dim objRegExp, Match, Matches
- Set objRegExp = New Regexp
- objRegExp.IgnoreCase = True
- objRegExp.Global = True
- objRegExp.Pattern = "<.+?>"
- Set Matches = objRegExp.Execute(ContentStr)
- For Each Match in Matches
- ContentStr=Replace(ContentStr,Match.Value,"")
- Next
- objRegExp.Pattern = "\[.+?\]"
- Set Matches = objRegExp.Execute(ContentStr)
- For Each Match in Matches
- ContentStr=Replace(ContentStr,Match.Value,"")
- Next
- LoseHtml=ContentStr
- Set objRegExp = Nothing
- Dim objRegExp, Match, Matches
- Set objRegExp = New Regexp
- objRegExp.IgnoreCase = True
- objRegExp.Global = True
- objRegExp.Pattern = "<.+?>"
- Set Matches = objRegExp.Execute(ContentStr)
- For Each Match in Matches
- ContentStr=Replace(ContentStr,Match.Value,"")
- Next
- objRegExp.Pattern = "<\/*[^<>]*>"
- Set Matches = objRegExp.Execute(ContentStr)
- For Each Match in Matches
- ContentStr=Replace(ContentStr,Match.Value,"")
- Next
- LoseHtml=ContentStr
- Set objRegExp = Nothing
|
当前位置：
支持(1) | 
反对(1)
顶端 
底部
