|
本文讨论区：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=" 确 定 ">
<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
Case "filternews"
if UBound(ParaArray) = | 
