新闻列表增加样式列表，调用更自由

              <%
   RsStyleObj.MoveNext
  loop
  Set RsStyleObj = Nothing
  %>
            </select>
            <input name="Submitfasd" type="button" id="Submitfasd" onClick="BrowStyle();" value=" 查 看 ">
          </div></td>
      </tr>

  <tr>
      <td height="30"><div align="left">图片宽度
          <input name="PicWidth" type="text" id="PicWidth" style="width:70%;" value="90">
        </div></td>
      <td height="30"><div align="left">图片高度
          <input name="PicHeight" type="text" id="PicHeight" style="width:70%;" value="90">
        </div></td>
    </tr>

    <tr>
      <td height="30" colspan=2><div align="left">内容字数
          <input name="ContentStr" type="text" id="ContentStr" style="width:70%;" value="300">
        </div></td>
    </tr>

然后在：var TxtNaviStr=document.all.TxtNavi.value;
后面增加：

var NewsListStyleStr=document.all.NewsListStyle.value;//增加样式列表

var PicWidthStr='';//图片宽
if (document.all.PicWidth.value=='') PicWidthStr='1';
else PicWidthStr=document.all.PicWidth.value;
var PicHeightStr='';//图片高
if (document.all.PicHeight.value=='') PicHeightStr='1';
else PicHeightStr=document.all.PicHeight.value;
var ContentStr=document.all.ContentStr.value;//字数控制

然后修改：

window.returnValue='{%=ClassNewsList("'+ClassListStr+'","'+NewsNumberStr+'","'+RowNumberStr+'","'+NaviPicStr+'","'+BGPicStr+'","'+RowHeightStr+'","'+CssFileStr+'","'+OpenModeStr+'","'+DetachPageStr+'","'+TitleNumberStr+'","'+DateRuleStr+'","'+DateRightStr+'","'+DateCSSStyleStr+'","'+TxtNaviStr+'","'+NewsListStyleStr+'","'+PicWidthStr+'","'+PicHeightStr+'","'+ContentStr+'")%}';

在window.onunload=SetReturnValue;上面增加：

function BrowStyle()
{
if (document.CNListForm.NewsListStyle.value!='') OpenWindow('Templet_NewsStyleBrowFrame.asp?FileName=Templet_NewsStyleBrow.asp&ID='+document.all.NewsListStyle.value,360,290,window);
}

四、最后修改foosun/admin/foosun/refresh/selectfunction.asp

把classnewslist的参数增加到18就OK了

存储过程提供:

Create Procedure FS_ReFunGetOneNewsList
(@StyleID bigint)
as
   begin  transaction
   Select * from FS_NewsListStyle where [ID]=@StyleID
if  @@error=0
       commit   transaction
   else
       rollback   transaction
return
GO

 

文章来源：www.foosun.net

责任编辑：老冬瓜