软件下载 | 资讯教程 | 最近更新 | 下载排行 | 一键转帖 | 发布投稿
您的位置:最火下载站 > 建站程序 > CMS教程 > 超强无HTML标签修改的方法[FOOSUN系统]

超强无HTML标签修改的方法[FOOSUN系统]

使用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

告成,呵呵小小修改作用超级强悍,多使用几次大家会发现他的功能强大的地方。
本次的修改没有做调试,指对我原来修改的代码做了一次拷贝。程序可用或不可用,请大家提点意见哈。

    相关阅读
    栏目导航
    推荐软件