<% '=== 索引分頁系統=========================== int_PageNo=Request.QueryString("int_PageNo") if int_PageNo="" then int_PageNo=1 else int_PageNo=Cint(int_PageNo) end if '============================================ set bbsRS=Server.CreateObject("ADODB.Recordset") strSQL="select * from bbs where ref=0" bbsRS.Open strSQL,objDBConn,3 '=== 索引分頁系統========== IF bbsRS.Recordcount<>0 then bbsRS.Pagesize=20 bbsRS.AbsolutePage=int_PageNo int_PageCnt=bbsRS.PageCount End IF '========================== %> Untitled Document
<% If bbsRS.recordcount=0 then %> <% Else %> <% i=1 Do while Not bbsRS.EOF and i <= bbsRS.PageSize if i mod 2 = 0 then showbg="#CCCCCC" else showbg="#FFFFFF" end if %> <% i=i+1 bbsRS.MoveNext Loop %> <% End IF %>
發 表 主 題
目前無內容
序號 標　　　題 發　言　人 日　　期 回應篇數
<%= i %> " class="link" onFocus="if(this.blur)this.blur()"><%=bbsRS("subject")%> <%=bbsRS("nickname")%> <%=bbsRS("postdate")%> <%=bbsRS("responsecnt")%>
<%if int_PageNo-1>0 then%> 上一頁 <%end if%> <% for j=1 to bbsRS.PageCount if j<>int_PageNo then Response.Write (" | " & j & "") else Response.Write (" | " & j & "") end if next %> | <%if int_PageNo+1<=bbsRS.PageCount then%> 下一頁 <%end if%>
 
首 頁│關於當代│關於品牌│當代產品│展示中心│會員中心│新聞中心│討論區│檔案下載│聯絡我們