本文討論區(qū)：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;

把那個定義彈出對話框的高的值（紅色表明）設(shè)置的大些，因?yàn)楹竺嬉谶@個標(biāo)簽里加上“調(diào)用子類”的開關(guān)，怕顯示不下，我的設(shè)置成了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">
調(diào)用子類 <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

替換為：

'//增加幻燈新聞對子類新聞的調(diào)用參數(shù)10