現(xiàn)在的系統(tǒng)調(diào)用新聞列表內(nèi)容時時會把所有的html代碼都調(diào)用出來，比如圖、表格什么的。但這些影響美觀與速度

經(jīng)過修改，效果如下

2006最新韓國街頭秋裝秀

日 期： 06年11月11日 來 源： 廣西都市網(wǎng) 收 藏：

隨心所欲的搭配，讓時尚的你盡情享受美好的休閑生活。韓版街頭流行的服飾裝扮給你一個全新的視野，讓青春、舒適緊跟時尚的步伐，用年輕演繹五彩繽紛的激情秋日。紋衫、蓬蓬裙、彩珠項鏈，件件散發(fā)著時尚的氣息圓點中...閱讀全文

我公司技術(shù)員修改的，拿出來與大家共享，相信對部分人有用，修改步驟：

'讀取列表新聞內(nèi)容去掉圖片及html代碼
'第一步:修改fs_inc/function.asp 191行返回中文字符的前StrLen位字符 By Wen Yongzhong 前面加入
'內(nèi)容格式化
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
'格式化結(jié)速

'第二步：修改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"),"9 7 3 1 2 3 4 8 :

查看更多 風訊cms教程  風訊cms模板