<% //開啟內容資料庫 DATAS = server.mappath("sql/dismdb.mdb") set conn = server.createobject("adodb.connection") conn.open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & DATAS & ";" set rs = server.CreateObject("ADODB.RecordSet") rs.open "Select * from title order by lasttime desc",conn,1,3 if rs.BOF then //無主題移至訊息1 response.redirect "msg.asp?msg=1" //如果沒有主題則停止解析ASP response.end end if //取得現在所在頁數 page=request.querystring("page") //如果沒有資料則是在第一頁 if page<1 then page=1 else end if //取得總主題數 howpages = rs.recordcount //計算總主題數除以顯示數的餘數 howmod = howpages mod pagesize //如果餘數不等於零則相除取整數加一 if howmod <> 0 then howpage = howpages\pagesize howpage = howpage+1 //或者相除取整數 elseif howmod = 0 then howpage = howpages\pagesize else end if //判定是否有此頁 num = page-howpage if num > 0 then //沒有此頁移至訊息2 response.redirect "msg.asp?msg=2" //如果沒有此頁則停止解析ASP response.end else end if //內容輸出 %> <%=(titlename)%>

<%=(titlename)%>

<%=(titletext)%>

新主題 管理 說明 

<% //移動資料指標到相對位置 page=page-1 rs.move page*pagesize //迴圈顯示資料 for n=1 to pagesize id=rs("id") %> <% rs.movenext if rs.EOF then exit for end if next %>
主題 人氣篇幅最後回應時間
<%=rs("title")%> <%if session("access")="ok" then%> ...【刪除主題】 <%end if%> <%=rs("rp")%><%=rs("wp")%><%=rs("lasttime")%>
第<%=page+1%>頁 共<%=howpage%>頁 共<%=howpages%>筆 

<%=(copyleft)%>