专题图片新闻调用-风讯CMS教程

免费版测试通过。可以在首页、专题页调用当前专题中的图片新闻，可以选择是否居中、图片是否加边框等。只针对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