<% Dim Page,Pages,AllCount,ShowCount,PastCount,classicID,bgcolor,Form_Title,Form_Context,forumName,j,title,strlength,poster,orderStr,whereStr,lastupdateuser,status,postUrl,sepLine,BoardType forumID=sqlshow(Request.QueryString("forumID")) subclassID=sqlshow(Request.QueryString("subclassID")) Page=Max(Cnum(sqlshow(Request.form("page"))),1) Page=Max(Cnum(sqlshow(Request("page"))),1) tempForum=ForumID If ForumID="" Then tempForum=DefaultPost tempClass=Application(SystemKey&"subclass"&tempForum) If instr(tempClass,"|")>0 Then subclassArray=split(tempClass,"|") Sql="select * from Board where BoardID="&forumID&" " OpenRs(Sql) BoardType=Rs("BoardType") Rs.Close If BoardType=1 Then ListPageSize=18 '图片列表分页数 Sub HtmlTltle '浏览器标题 Response.write(""&application(systemkey&forumid)&"_"&strSiteName&"") End Sub Sub HtmlKeywords '关键字 Response.write(""&application(systemkey&forumid)&","&strSiteName&"") End Sub Sub HtmlDescription '描述 Response.write strAbout End Sub Sub LieBiao '列表 '设定分类条件 If Cnum(subclassID)>0 Then whereStr="and subclass="&subclassID&"" Else whereStr="" Sql="select * from Content where parent=0 and Verify=0 and classID="&forumID&" "&whereStr&" order by SetTop Asc,PostTime desc" OpenRs(Sql) '显示页数 AllCount=Rs.RecordCount Pages=Fix(AllCount/ListPageSize) If Pages*ListPageSizePastCount Then Rs.Move PastCount ShowCount=Min(AllCount-PastCount,ListPageSize) If BoardType=1 Then Response.write("
") Rs.Close End sub %> <%Call CloseAll()%>