Public Function ClassInfo(f_Lablechar,f_type,f_Id)
'AllCode┆类型$HotNews┆调用数$10┆标题数$40┆点击数$0┆图片新闻$0┆排列数$1┆日期格式$YY02年MM月DD日┆引用样式$41┆输出格式$out_Table┆DivID$┆DivClass$┆ulid$┆ulclass$┆liid$┆liclass$
Dim LableType,Style_Id,Content_List,InfoType,i,f_More_Page_Index
Dim f_rs_obj,f_sql
InfoType = split(split(f_Lablechar,"┆")(1),"$")(1)
if f_id<>"" then
Select Case InfoType
Case "ClassName"
f_sql="select ClassName From FS_NS_NewsClass where ClassID='"& f_id &"'"
Case "Keywords"
f_sql="select ClassKeywords From FS_NS_NewsClass where ClassID='"& f_id &"'"
Case "Description"
f_sql="select ClassDescription From FS_NS_NewsClass where ClassID='"& f_id &"'"
End Select
set f_rs_obj = Conn.execute(f_sql)
if Not f_rs_obj.eof then
Content_List = f_rs_obj(0)
else
Content_List = ""
end if
f_rs_obj.close:set f_rs_obj=nothing
else
Content_List = ""
End if
ClassInfo = Content_List
End Function

想在这个里面获得终极列表的分页数，不知道怎么弄，那位搞手指引一下。
如：终极列表生成分页到第二页时，获得2；分页到第三页时，获得

这个有什么用处，可以参考生成文件的文件名生成函数，也就是分页生成**_2.html的函数，admin/publicsite下文件。