本修改3.2.sp1免费测试通过。其他的版本没测试，大家注意，愿意修改的，请注意做好备份
一、打开\Foosun\Editer\LableEditer.asp 修改两个地方
（1）
<td width="1"> <div align="center" class="ToolSeparator"></div></td>
<td width="30"><div align="center"><img onClick="InsertScript('RSS');" class="Btn" alt="RSS标签" src="../Images/Lable/rss.gif" width="24" height="24"></div></td>
<td width="1"> <div align="center" class="ToolSeparator"></div></td>
<td width="30"><div align="center"><img onClick="InsertScript('MarqueePic');" class="Btn" alt="滚动图片" src="../Images/Lable/Mpueepic.gif" width="24" height="24"></div></td>
</tr>
</table></td>
</tr>
<tr>
<td><table height="30" border="0" cellpadding="0" cellspacing="0" class="ToolSet">
（2）
case 'Mall_TopProducts':
var ReturnValue=OpenWindow('../FunPages/Frame.asp?FileName=Mall/Mall_TopProducts.asp&PageTitle=商品排行调用',460,260,window);
break;
case 'MarqueePic':
var ReturnValue=OpenWindow('../FunPages/Frame.asp?FileName=LableMqueePic.asp&PageTitle=滚动图片标签属性',336,195,window);
break;
case 'Mall_Products':
var ReturnValue=OpenWindow('../FunPages/Frame.asp?FileName=Mall/Mall_Products.asp&PageTitle=商品页面',260,105,window);
break;
case 'Mall_PayStyle':
var ReturnValue='{%=Mall_PayStyle()%}';
break;
case 'RSS':
ReturnValue='{%=RSS()%}';
break;
二、下载压缩包中的两个文件：Mpueepic.gif和LableMqueePic.asp
Mpueepic.gif 放到\Foosun\Images\Lable目录
LableMqueePic.asp放到\Foosun\FunPages目录
[upload=gif]UploadFile/2006-6/200661520115658435.gif[/upload]
[upload=rar]viewFile.asp?ID=4452[/upload]
三、打开\Foosun\Admin\Refresh\cls_refresh.asp文件，修改两个地方：（红色部分）
（1）
Array("UnRuleNews","NewsNumber","ClassEName","IsIncludeChildTF","OpenType"),_
Array("marqueepic","ClassEName","SoonClassStr","PicNumberStr","LoopSpeedStr","MarqueeWidthStr","MarqueeHeightStr","PicWidthStr","PicHeightStr","PicCssStr","PicFgStr","OpenTypeStr","MarqueeTypeStr"),_
Array("RSS"),_
Array("mall_paystyle"))
f_Lable_Cont = Replace(f_Lable_Cont,Chr(13) & Chr(10),"")
f_Lable_Cont = Replace(f_Lable_Cont,"{%=","")
f_Lable_Cont = Replace(f_Lable_Cont,"%}","")
（2）
Case "mall_help" : if UBound(m_Prar_Cont_Array) = 9 then : Select_Function = Mall_Help(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7),m_Prar_Cont_Array(8),m_Prar_Cont_Array(9)) : else : Select_Function = "" : Exit Function : end if
'====================2006-06-14====================================================================
Case "marqueepic" : If UBound(m_Prar_Cont_Array) = 12 then : Select_Function = marqueepic(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7),m_Prar_Cont_Array(8),m_Prar_Cont_Array(9),m_Prar_Cont_Array(10),m_Prar_Cont_Array(11),m_Prar_Cont_Array(12)) : Else : Select_Function = "" : Exit Function : End If
'=========================================end================================================================
Case "mall_paystyle" : Select_Function = Mall_PayStyle
Case "unrulenews"
if UBound(m_Prar_Cont_Array) = 3 then ReDim Preserve m_Prar_Cont_Array(4) : m_Prar_Cont_Array(4) = "0"
if UBound(m_Prar_Cont_Array) = 4 then : Select_Function = Get_No_Rule_NewsList_Content(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4)) : else : Select_Function = "" : Exit Function : end if
Case "rss" : Select_Function = RSS : Exit Function
Case Else : Select_Function = "" : Exit Function
End Select
End Function
四、打开\Foosun\Admin\Refresh\RefreshFunction.asp增加一个函数
函数代码在2楼提供，上面的压缩包里也有。
后台效果：
[upload=gif]UploadFile/2006-6/200661520175079499.gif[/upload]
