免费版测试通过。可以在首页、专题页调用当前专题中的图片新闻，可以选择是否居中、图片是否加边框等。只针对3.2.sp1，3.2以前的版本不可用。

一、标签图片spicnews.gif（放到\Foosun\Images\Lable目录中，名字：spicnews.gif）

二、打开\Foosun\Editer\LableEditer.asp增加：（红色部分）

<td width="1"> <div align="center" class="ToolSeparator"></div></td>
          <td width="30"><div align="center"><img src="../Images/Lable/SpicNews.gif" alt="专题图片" width="24" height="24" class="Btn" onClick="InsertScript('SpicNews')"></div></td>
  </tr>
      </table></td>
  </tr>
  <%
  End if
  %>

下面：

case 'SpicNews':
   var ReturnValue=OpenWindow('../FunPages/Frame.asp?FileName=LableSpicNews.asp&PageTitle=专题图片标签属性',336,240,window);
   break;
  default :
   return '';
 }
 if (ReturnValue!='') parent.frames["Editer"].InsertHTMLStr(ReturnValue);
}
</script>

三、Foosun\FunPages目录中，增加文件LableSpicNews.asp

点击浏览该文件

四、打开\Foosun\Admin\Refresh\cls_refresh.asp

Private Sub Analyze_Lable(f_Lable_Cont)
  Dim i
  m_Label_Para_Name_Array = Array(_
  Array("freelable","FreeLableID","QueryNum","ColSpan","RowSpan","ColNum","RowNum"),_
  Array("spicnews","SpecialListStr","NewsNumberStr","ShowTitleStr","OpenModeStr","TitleNumberStr","RowNumStr","PicWidthStr","PicHeightStr","CssFileStr","RowSpaceStr","PicModeStr","TitleModeStr","IsBkStr","BkColorStr","BgColorStr","BgImgStr"),_
 Array("selfclass","ClassEName","NewsListNumberStr","TitleNumberStr","CompatPicStr","NaviPicStr","DateRuleStr","DateRightStr","RowHeightStr","RowNumberStr","ShowClassCNNameStr","MoreLinkTypeStr","MoreLinkContentStr","CSSStyleStr","OpenTypeStr","DateCSSStyleStr","TxtNaviStr","IsIncludeChildTF"),_

下面：

'==============2006-06-07=======================================================================
   Case "spicnews" : if UBound(m_Prar_Cont_Array) = 16 then : Select_Function = SpicNews(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),m_Prar_Cont_Array(13),m_Prar_Cont_Array(14),m_Prar_Cont_Array(15),m_Prar_Cont_Array(16)) : else : Select_Function = "" : Exit Function : end if
'================================================================================================   
   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 增加两个函数：

'===================2006-06-07===============================================================================
Function GetModeStr(ModeStr)
  Select Case ModeStr
         Case "1"
      ModeStr = "align=""left"""
      Case "2"
      ModeStr = "align=""center"""
      Case "3"
      ModeStr = "align=""right"""
               Case else
      ModeStr = ""
  End Select
  GetModeStr=ModeStr
End Function       

'专题图片
Function SpicNews(SpecialListStr,NewsNumberStr,ShowTitleStr,OpenModeStr,TitleNumberStr,RowNumStr,PicWidthStr,PicHeightStr,CssFileStr,RowSpaceStr,PicModeStr,TitleModeStr,IsBkStr,BkColorStr,BgColorStr,BgImgStr)
 TitleNumberStr = GetTitleNumberStr(TitleNumberStr)
 OpenModeStr = GetOpenTypeStr(OpenModeStr)
 CssFileStr = GetCSSStyleStr(CssFileStr)
 PicModeStr = GetModeStr(PicModeStr)
 TitleModeStr = GetModeStr(TitleModeStr)
 Dim DivW,DivH,ImgT
     DivW = CInt(CInt(PicWidthStr) + CInt(RowSpaceStr))
  DivH = CInt(CInt(PicHeightStr) + CInt(RowSpaceStr))
     ImgT = CInt(CInt(RowSpaceStr)/2)
 Dim TempBk,TempBg,TempB
  If IsBkStr = "1" then
     If BkColorStr <> "" then
       TempBk = "<div STYLE=""border-style:Double;border-width:3pt; border-color: " & BkColorStr & ";width:" & DivW & "; height:" & DivH & ";text-align:center;"">"
     Else
          TempBk = "<div STYLE=""border-style:Double;border-width:3pt; border-color:#000000;width:" & DivW & "; height:" & DivH & ";text-align:center;"">"
     End If
  Else
          TempBk = ""
  End If
  If BgColorStr <> "" and BgImgStr <> "" then
     TempBg = "<div style=""background-color:" & BgColorStr & "; background-image:url(" & BgImgStr & ");width:" & DivW & "; height:" & DivH & ";text-align:center;"">"
  Elseif BgColorStr = "" and BgImgStr <> "" then
     TempBg = "<div style=""background-image:url(" & BgImgStr & ");width:" & DivW & "; height:" & DivH & ";text-align:center;"">"
  Elseif BgColorStr <> "" and BgImgStr = "" then
     TempBg = "<div style=""background-color:" & BgColorStr & ";width:" & DivW & "; height:" & DivH & ";text-align:center;"">"
  Else
     TempBg = ""
  End If
  If TempBk <> "" and TempBg <> "" then
     TempB = "</div></div>"
  Elseif TempBk = "" or TempBg = "" then
     TempB = "</div>"
  Else
     TempB = ""
  End If
  
 Dim SpicNewsSql,SpicNewsObj,i,TitleStr,TempDoMain
     If SpecialListStr = "" then
     Select Case Fun_Refresh_Type
      Case "Index"
      SpicNewsSql = "Select Top " & NewsNumberStr & " * From Fs_News Where PicNewsTF = 1 and DelTF = 0 and SpecialID Is Not Null Order By NewsID Desc"
            Case "Special"
           SpicNewsSql = "Select Top " & NewsNumberStr & " * From Fs_News Where PicNewsTF = 1 and DelTF = 0 and SpecialID like '" & Fun_Refresh_ID & "' Order By NewsID Desc"
            Case Else
              SpicNewsSql = ""
        End Select
     Else
           SpicNewsSql = "Select Top " & NewsNumberStr & " * From Fs_News Where PicNewsTF = 1 and DelTF = 0 and SpecialID like '" & SpecialListStr & "' Order By NewsID Desc"
  End If
     If SpicNewsSql <> "" then
     Set SpicNewsObj = Conn.Execute(SpicNewsSql)
         If Not SpicNewsObj.Eof then
         SpicNews = "<table cellpadding=""0"" cellspacing=""" & RowSpaceStr & """ border=""0"" width=""100%"">" & Chr(13) & Chr(10)                          
            Do While Not SpicNewsObj.Eof
         SpicNews = SpicNews & "<tr>" & Chr(13) & Chr(10)
      TitleStr = "<tr>"
      For i = 1 to RowNumStr
         If ShowTitleStr = "1" then
         TitleStr = TitleStr & "<td " & TitleModeStr & ">" & Chr(13) & Chr(10) & "<a " & OpenModeStr & CssFileStr & " href=""" & GetOneNewsLinkURL(SpicNewsObj("NewsID")) & """ title="""& SpicNewsObj("Title")&""">" & GotTopic(SpicNewsObj("Title"),TitleNumberStr) & "</a></td>" & Chr(13) & Chr(10)
      Else
         TitleStr = ""
         End If 
      If Left(SpicNewsObj("PicPath"),4)="http" then TempDoMain="" else TempDoMain=GetConfig(0)
            SpicNews = SpicNews & "<td " & PicModeStr & ">" & Chr(13) & Chr(10) & TempBk & Chr(13) & Chr(10) & TempBg & Chr(13) & Chr(10) & "<a " & OpenModeStr & CssFileStr & " href=""" & GetOneNewsLinkURL(SpicNewsObj("NewsID")) & """ title="""& SpicNewsObj("Title")&""">" & "<img border=""0"" src=""" & TempDoMain & SpicNewsObj("PicPath") & """ width=""" & PicWidthStr & """ height=""" & PicHeightStr & """ style=""margin-top: expression(" & ImgT & ");"">" & "</a>" & TempB & "</td>" & Chr(13) & Chr(10)