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

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

文章作者：网友投稿　发布时间：2009-10-11 17:15:07　来源：网络

使用FOOSUN一段时间了，总喜欢拿别人一些比较酷炫的FLASH幻灯效果莱玩，可FOOSUN每个标签都要生成部分HTML代码，让我很不是爽快。老引起FLASH幻灯代码的错误。所以今天就研究了一下把他自动生成的HTML代码去掉。修改如下：(查找内容均不包含双引号) 第一步：Admin\Label\N

使用FOOSUN一段时间了，总喜欢拿别人一些比较酷炫的FLASH幻灯效果莱玩，可FOOSUN每个标签都要生成部分HTML代码，让我很不是爽快。老引起FLASH幻灯代码的错误。所以今天就研究了一下把他自动生成的HTML代码去掉。修改如下：(查找内容均不包含双引号)

第一步：Admin\Label\News_Label.asp

查找，“DIV+CSS格式“

在其底部添加如下代码：

无格式

第二步：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

告成，呵呵小小修改作用超级强悍，多使用几次大家会发现他的功能强大的地方。

本次的修改没有做调试，指对我原来修改的代码做了一次拷贝。程序可用或不可用，请大家提点意见哈。