新闻列表读取内容时去掉html代码

核心提示：现在的系统调用新闻列表内容时时会把所有的html代码都调用出来，比如图、表格什么的，新闻列表读取内容时去掉html代码，但这些影响美观与速度经过修改，效果如下2006最新韩国街头秋装秀日 期： 06年11月11日 来 源： 广西都市网 收 藏： 随心所欲的搭配，件件散发着时尚的气息圆点中...阅读全文 我公司技术员修改

现在的系统调用新闻列表内容时时会把所有的html代码都调用出来，比如图、表格什么的。但这些影响美观与速度

经过修改，效果如下

2006最新韩国街头秋装秀

日 期： 06年11月11日 来 源： 广西都市网 收 藏：

随心所欲的搭配，让时尚的你尽情享受美好的休闲生活。韩版街头流行的服饰装扮给你一个全新的视野，让青春、舒适紧跟时尚的步伐，用年轻演绎五彩缤纷的激情秋日。纹衫、蓬蓬裙、彩珠项链，件件散发着时尚的气息圆点中...阅读全文
 

我公司技术员修改的，拿出来与大家共享，相信对部分人有用，修改步骤：

'读取列表新闻内容去掉图片及html代码
'第一步:修改fs_inc/function.asp 191行返回中文字符的前StrLen位字符 By Wen Yongzhong 前面加入
'内容格式化
Function filt_html_b(fString)
If Not IsNull(fString) Then
fString = Replace(fString, " ", "")
fString = Replace(fString, CHR(32), "")
fString = Replace(fString, CHR(9), "")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10), "")
filt_html_b = fString
End If
End Function

Function RemoveHTML(strHTML)
strHTML=filt_html_b(strHTML)
ON ERROR RESUME NEXT
Dim objRegExp, strOutput
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<. ?>"
strOutput = objRegExp.Replace(strHTML, "")
strOutput = Replace(strOutput, "<", "<")
strOutput = Replace(strOutput, ">", ">")
RemoveHTML = strOutput
Set objRegExp = Nothing
End Function
'格式化结速

'第二步：修改FS_InterFace/Ns_public.asp 大概if instr(s_Content,"{NS:FS_Content}")>0 then 2157行 把' s_Content = replace(s_Content,"{NS:FS_Content}",replace(replace(GetCStrLen(""&replace(""&f_obj("Content"),"