cool8413m - 2007-4-25 18:01:00
使用FOOSUN一段時間了，總喜歡拿別人一些比較酷炫的FLASH幻燈效果萊玩，可FOOSUN每個標簽都要生成部分HTML代碼，讓我很不是爽快。老引起FLASH幻燈代碼的錯誤。所以今天就研究了一下把他自動生成的HTML代碼去掉。修改如下：（查找內容均不包含雙引號）
第一步：Admin\Label\News_Label.asp
查找，“<option value="out_DIV">DIV+CSS格式</option>“
在其底部添加如下代碼：
<option value="NONE_TEXT">無格式</option>
第二步：FS_InterFace\NS_Public.asp
查找：
case "classinfo"
if ubound(f_array)<>1 then:get_LableChar="标签错误,by Foosun.cn":else:get_LableChar=ClassInfo(f_Lablechar,"ClassInfo",f_Id):end if
end select
end if
在其下面加上如下代碼：
IF instr(f_Lablechar,"NONE_TEXT")>0 THEN
get_LableChar=ClearHtml(get_LableChar,True)
END IF
get_LableChar=ClearHtml(get_LableChar,"")
第三部：
查找：
else
m_Err_Info = "NS警告:找不到此新闻"
m_Err_No="NS:nodata"
s_C
end if
在低下添加如下代碼：
getlist_news = ClearHtml(s_Content,False)
最后一步，在文件最底部的”End Class%>“前添加如下代碼：
Private Function ClearHtml(sContent,Act)
Dim Ex,Reg,Matches,Match
Set Ex=new RegExp
if Act="" then
Ex.Pattern = "[##.+?##]"
else
Ex.Pattern = "<.+?>"
end if
Ex.IgnoreCase = True
Ex.Global = True
Set Matches = Ex.Execute(sContent)
For each Match in Matches
if Act=True then
sContent=Replace(sContent,Match,"")
elseif Act=False then
sContent=Replace(sContent,Match,Replace(Replace(Match,"<","[##"),">","##]"))
else
sContent=Replace(Replace(sContent,"[##","<"),"##]",">")
end if
Next
ClearHtml=sContent
End Function
大工告成，呵呵小小修改作用超級強悍，多使用幾次大家會發現他的功能強大的地方。
本次的修改沒有做調試，指對我原來修改的代碼做了一次拷貝。程序可用或不可用，請大家提點意見哈。
cool8413m - 2007-4-26 13:14:00
:) 恭喜嘛萬億？呵呵。
dengmi99 - 2007-5-10 17:37:00
按你这么说，是否每个cool的flash效果都可以集成在风讯吗
sicend - 2007-5-11 13:08:00
辛苦了！
Fly颖 - 2007-5-11 21:30:00
哇哈哈哈。多谢楼主，此法完全解决了发布时由标签生成的div/ul/li的问题
多谢多谢
官方一定要收录！
cool8413m - 2007-5-22 12:14:00
:) 哈哈。大家表客气。
dengmi99 - 2007-6-1 17:17:00
不好意思，没看明白，有什么功效;P
cool8413m - 2007-6-5 18:52:00
:( 定义样式更自由....这个最简单,最明显的拉....