原文：http://www.foosun.net/dispbbs.asp?boardID=22&ID=21411&page=1
准备把所有的列表增加上样式列表控制，主要应用在终极列表，算是给自由标签不能分页的补充吧！
演示：不使用样式列表：
http://www.chinawts.com/list/budnews2/index.htm
使用样式列表:
http://www.chinawts.com/list/guangdong/index.htm
修改方式其实不像大家想象中那么复杂，先看看如何对终极列表进行手术吧！
一、首先创建文章样式列表后台：
1、建立数据库：FS_NewsListStyle
字段：ID bigint 8
name nvarchar 50
Content ntext 16
2、上传附件中的文件到：foosun/admin/Templet/
点击浏览该文件
3、修改foosun/admin/menu_forders.asp
在：
<tr>
<td colspan="2"> <table border="0" cellpadding="0" cellspacing="0">
<tr>
<td><img src="../Images/Folder/Node.gif" width="16" height="22"><img src="../Images/Folder/folderclosed.gif" width="18" height="18"></td>
<td><span class="TempletItem" onclick="ClickBtn(this,'DownLoadStyle');" Type="DownListStyle">下载列表样式</span></td>
</tr>
</table></td>
</tr>
上面增加：
<tr>
<td colspan="2"> <table border="0" cellpadding="0" cellspacing="0">
<tr>
<td><img src="../Images/Folder/Node.gif" width="16" height="22"><img src="../Images/Folder/folderclosed.gif" width="18" height="18"></td>
<td><span class="TempletItem" onclick="ClickBtn(this,'NewsLoadStyle');" Type="DownListStyle">新闻列表样式</span></td>
</tr>
</table></td>
</tr>
然后在case 'DownLoadStyle':上面增加：
//增加新闻样式列表
case 'NewsLoadStyle':
LocationStr='Templet/Templet_NewsStyleList.asp';
break;
二、修改foosun/admin/refresh/refreshfunction.asp
1、在文件最后%>的前面加上以下函数（是根据下载样式列表客隆过来的，呵呵)
'__________________________________________________________
'按照新闻样式列表
Function GetOneNewsList(RsNewsObj,NewsListStyleStr,ClassCNName,DateRuleStr,OpenModeStr,NaviPicStr,CSSFileStr,ContentStr,PicWidthStr,PicHeightStr)'增加三个参数ContentStr,PicWidthStr,PicHeightStr: 内容显示字数，图片宽，图片高
Dim NewsListSql,RsNewsListObj,StyleContent,CSSStyleStr,ContentLimitStr
CSSStyleStr = CSSFileStr
ContentLimitStr = int(ContentStr)
Dim TempStr
if Not RsNewsObj.Eof then
if NewsListStyleStr <> "" or NewsListStyleStr <> "0" then
'Set RsNewsListObj = Conn.Execute("Select * from FS_NewsListStyle where ID='" & NewsListStyleStr & "'") '免费版
