当前位置:主页 > 网页教程 > 网站程序 > 风讯cms教程 > 内容欢迎大家投稿

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

时间:2009-10-17 10:29来源:未知 作者:大宝库 点击:读取中
阅读工具:字体:

现在的系统调用新闻列表内容时时会把所有的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"),"

(责任编辑:大宝库)


------分隔线----------------------------
推荐内容
赞助商链接
赞助商链接