3.1-幻灯新闻实现调用子类(后台控制，需要修改函数)

本文讨论区：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