求SP4的此文件NS_Public.asp的对于生成多出<table>的补丁：
  我的系统在生成的时候总是会多出一套<table><tr><td>,或<DIV><UL><LI>这样就把整个样式打乱了，请问谁有啊，给哥们发一个吧，谢谢了，急啊！！！SP2的哪个和现在的差距太大了，不知道需要修改那里

这个问题确实比较烦人，特别是那个xx%。。

那个也可以的,只是行数变了,仔细看下

变化太大了，不会代码搞不懂

哪位老大能给发一个啊，先谢谢了！！！

在此先感谢cool8413m朋友。。。
做标签的时候选择“无格式”

修改如下：（查找內容均不包含雙引號）
第一步：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

谢谢！！！！！！！！！！！