在使用字符串截取时，只过滤掉了<>，内容并没过滤掉。
例如：
1 |
{ $StrCut(|cutStr_s|{$List.ViewContent$}|cutStr_e|,100)$} |
出来是pstrong关键词位置、密度、处理/strong/pol liURL中出现关键词（英文）/li li网页标题中出现关键词（1-3个）/li li关键词标签中出现关键词（1-3个）/li
此bug修复方法如下：
打开文件 class/Cls_Template.asp
将1565-1582行代码
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
Private Function t_RemoveHTML(strHTML) 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 t_RemoveHTML=strHTML Set objRegExp = Nothing End Function |
替换为以下代码
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
Private Function t_RemoveHTML(strHTML) 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 t_RemoveHTML=strHTML Set objRegExp = Nothing End Function |
保存文件，修复完成。
