3.1-幻灯新闻实现调用子类（后台控制，需要修改函数）-风讯CMS教程

本文讨论区：http://bbs.foosun.net/dispbbs.asp?boardID=22&ID=16556&page=2

修改方法：

1、先修改foosun/editer/lableediter.asp

查找

case 'Filter':
var ReturnValue=OpenWindow('../FunPages/Frame.asp?FileName=LableFilter.asp&PageTitle=幻灯片新闻属性',336,150,window);
break;

把那个定义弹出对话框的高的值（红色表明）设置的大些，因为后面要在这个标签里加上“调用子类”的开关，怕显示不下，我的设置成了200

2、修改foosun/funpages/lablefilter.asp

在<tr>
<td height=\"30\" colspan=\"2\"><div align=\"center\">
<input type=\"button\" onClick=\"InsertScript();\" name=\"Submit\" value=\" 确 定 \">
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<input type=\"button\" onClick=\"window.close();\" name=\"Submit2\" value=\" 取 消 \">
</div></td>
</tr>

之前加上：

<tr>
<td height=\"30\" colspan=\"2\">
调用子类 <select name=\"SoonClass\" id=\"select\" style=\"width:70%;\">
<option value=\"1\" selected>是</option>
<option value=\"0\">否</option>
</select></td>
</tr>

然后在：

if (document.all.RowSpace.value=='') RowSpaceStr='20';
else RowSpaceStr=document.all.RowSpace.value;

后面加上：

var SoonClassStr=document.all.SoonClass.value;

再然后修改

window.returnValue='{%=FilterNews(\"' ClassListStr '\",\"' NewsNumberStr '\",\"' TitleNumberStr '\",\"' CssFileStr '\",\"' PicWidthStr '\",\"' PicHeightStr '\",\"' OpenModeStr '\",\"' ShowTitleStr '\",\"' RowSpaceStr '\")%}';

修改为

window.returnValue='{%=FilterNews(\"' ClassListStr '\",\"' NewsNumberStr '\",\"' TitleNumberStr '\",\"' CssFileStr '\",\"' PicWidthStr '\",\"' PicHeightStr '\",\"' OpenModeStr '\",\"' ShowTitleStr '\",\"' RowSpaceStr '\",\"' SoonClassStr '\")%}';

3、修改foosun/admin/refresh/selectfunction.asp

把：
Case \"filternews\"
if UBound(ParaArray) = 9 then
GetLableContent = FilterNews(ParaArray(1),ParaArray(2),ParaArray(3),ParaArray(4),ParaArray(5),ParaArray(6),ParaArray(7),ParaArray(8),ParaArray(9))
else
GetLableContent = \"\"
Exit Function
end if

替换为：

'//增加幻灯新闻对子类新闻的调用参数10