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

    else
     StyleContent = Replace(StyleContent,"{News_Pic}","<img border=""0"" width="""&PicWidthStr&""" height="""&PicHeightStr&""" src=""/images/2/nopic.gif"">")
    end if
   else
    StyleContent = "没有下载列表显示的样式"
   end if
   Set RsNewsListObj = Nothing
  else
   StyleContent = "没有下载列表显示的样式"
  end if
else
  StyleContent = ""
  Exit Function
end if
GetOneNewsList = StyleContent
End Function

2、修改classnewslist函数（终极新闻列表函数)

查找：Function ClassNewsList(ClassListStr,NewsNumberStr,RowNumberStr,NaviPicStr,BGPicStr,RowHeightStr,CssFileStr,OpenModeStr,DetachPageStr,TitleNumberStr,DateRuleStr,DateRightStr,DateCSSStyleStr,TxtNaviStr)

替换为：

Function ClassNewsList(ClassListStr,NewsNumberStr,RowNumberStr,NaviPicStr,BGPicStr,RowHeightStr,CssFileStr,OpenModeStr,DetachPageStr,TitleNumberStr,DateRuleStr,DateRightStr,DateCSSStyleStr,TxtNaviStr,NewsListStyleStr,PicWidthStr,PicHeightStr,ContentStr)

在:for i = 1 to RowNumberStr
       TempAlreadyShow = TempAlreadyShow + 1下面增加：

'是否使用样式列表，如果不使用，按照原来的函数进行
    if NewsListStyleStr = "0" then

在：RsNewsObj.MoveNext
       if TempAlreadyShow > RsNewsObj.PageSize then Exit For上面增加：

'如果使用样式列表，则执行样式列表函数
    else
       TempClassNewsList = TempClassNewsList & "<td " & RowHeightStr & ">" & GetOneNewsList(RsNewsObj,NewsListStyleStr,"",DateRuleStr,OpenModeStr,NaviPicStr,CssFileStr,ContentStr,PicWidthStr,PicHeightStr) & "</td>" & Chr(13) & Chr(10)
       end if

在：

ClassNewsList = ClassNewsList & "<tr>" & Chr(13) & Chr(10)
     for i = 1 to RowNumberStr

下面增加：

'是否使用样式列表，如果不使用，按照原来的函数进行
    if NewsListStyleStr = "0" then

在：

RsNewsObj.MoveNext
      if RsNewsObj.Eof then Exit For
     Next

上面增加：

'如果使用样式列表，则执行样式列表函数
    else
                ClassNewsList = ClassNewsList & "<td " & RowHeightStr & ">" &  GetOneNewsList(RsNewsObj,NewsListStyleStr,"",DateRuleStr,OpenModeStr,NaviPicStr,CssFileStr,ContentStr,PicWidthStr,PicHeightStr) & "</td>" & Chr(13) & Chr(10)
       end if

三、修改foosun/funpages/lableclassnewslist.asp

在：

<tr>
        <td height="30" colspan="2"><div align="center">
            <input type="button" onClick="InsertScript();" name="Submit" value=" 确 定 ">
上面增加：

<tr>
        <td height="30" colspan="2"><div align="left">列表样式
            <select name="NewsListStyle" style="width:65%;">
   <option value="0">不使用样式列表</option>
              <%
  Dim StyleSql,RsStyleObj
  StyleSql = "Select * from FS_NewsListStyle"
  Set RsStyleObj = Conn.Execute(StyleSql)
  do while Not RsStyleObj.Eof
  %>
              <option value="<% = RsStyleObj("ID") %>">
              <% = RsStyleObj("Name") %>
              </option>

本新闻共4页,当前在第3页  1  2  3  4