<%
dim exec, exec1, rs, page, recordcount
dim rs1, pagecount, strpageList
dim topNum, sqlCol, ids
dim arr
rem strpagelist是分页显示的字符串
set rs=server.createobject("adodb.recordset")
exec="select top 1 topicNum-privateNum from GBconst"
rs.open exec,conn,1,1
RecordCount=rs(0)
rs.close
page=encodestr(Request.querystring("page"))
pageCount=getPageCount(pagecount,recordCount,rcPerPage)
page=getPage(page,pageCount)
%>
<%=sitetitle%>
