相关文章
网站设计CSS提高网页的维护更新效率
网页设计微软风格的CSS横向菜单
北京网站设计CSS制作的一款非常简单的韩国风格菜单
企通互联渐飞网站管理系统模板智能调用标签 快速入门、教程和示例
网站建设弹出网页窗口全攻略(html/hta)
网站设计教程/dreamweaver/入门 Dreamweaver 4 简明教程5(让你的网页更漂亮)
网站建设Flash8滤镜与混合模式(2):近距离看滤镜效果
北京网站建设[Flash]韩国式下拉菜单
网站设计给FLASH初学者的10点制作经验
网站设计用FrontPage 2003发布您的网站
品牌理念
北京网站建设最佳合作伙伴
北京网站建设专家企通互联
竭诚为您提供网站建设服务!
友好连接
文章搜索
你的位置：首页 >> 网站制作 >> 北京网站制作新闻列表读取内容时去掉html代码
北京网站制作新闻列表读取内容时去掉html代码
现在的系统调用新闻列表内容时时会把所有的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网站建设 www.qitongnet.com
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"),"