<% SET RS=SERVER.CREATEOBJECT("ADODB.RECORDSET") SQL = "Select * From SETUP Order By BB DESC" RS.OPEN SQL,CONN,1,3 %> 申請名單

【討論分類區】  【回上一頁】

<% RS.PAGESIZE = 30 Page = CLng(Request("Page")) If Page < 1 Then Page = 1 If Page > rs.PageCount Then Page = rs.PageCount IF RS.EOF THEN RESPONSE.WRITE "目前無任何人申請討論版" : RESPONSE.END rs.AbsolutePage = page FOR I = 1 TO RS.PAGESIZE %> <%if not Response.Isclientconnected then response.end end if rs.MoveNext If rs.EOF Then Exit For Next%>

版主

討論版位址

討論版名稱

首頁位址

人氣值

目前排名

<%=RS("UNAME")%>

" target=_blank>專用討論版在此

<%=rs("boardname")%>

<%=rs("uurl")%>

<%IF RS("BB") > 5000 THEN%><%END IF%><%=rs("bb")%>

<%=(Page - 1) * rs.PageSize + i%>

 目前頁次:<%=PAGE%> / <%=RS.PAGECOUNT%> <%if page <> 1 then%> <%end if%>  上一頁 <%if Page <> rs.PageCount Then%> <%end if%> 下一頁

<% RS.CLOSE SET RS=NOTHING CONN.CLOSE %>