<% response.expires="-1000" 'response.write "test" intPage = Request("intPage") ' 接收所要瀏覽的頁次 If intPage = "" then intPage = 1 End If sqlDiscussList="select disID,disSubject,disUpdateDate from Discuss where disMode=0 order by disUpdateDate desc " set objRS= server.createobject("ADODB.recordset") objRS.CursorLocation = 3 objRS.open sqlDiscussList,objConn,3,1 objRS.PageSize = 10 ' 設定每頁筆數 If Not objRS.eof Then ' 有資料才執行 objRS.AbsolutePage = intPage ' 將資料錄移至 intPage 頁 End if %>

注意！ 為讓喜愛x-mode的朋友能熱烈交流與討論，請勿在此： 1.張貼廣告 2.發表低俗、不實或攻擊他人之文章 3.販賣商品我們有權刪除任何不適當之文章！   <% Dim intRecount,intCount,strBackground intRecount =1 if not objRS.eof then for intCount=1 to objRS.PageSize intDisID=objRS("disID") sqlGetReplyNum="select Count(*) AS ReplyNumCount from Discuss where disMode="&intDisID set rsGetReplyNum=objconn.Execute(sqlGetReplyNum) %> <% objRS.movenext intRecount =intRecount +1 'loop If objRs.eof Then Exit For rsGetReplyNum.close set rsGetReplyNum=nothing next response.write " " response.write "" response.write "" 'response.write "" else %> <% end if objRs.close set objRs=nothing %>   <%=objRS("disSubject")%> <%=rsGetReplyNum("ReplyNumCount")%> <%=objRS("disUpdateDate")%>                                         " WhichPage() response.write "  資料庫查無資料！

 

<% Sub WhichPage() '分頁 Dim intPageCount,intCount1 intPageCount = int(intPage/5) intPage = cint(intPage) If intPage mod 5 = 0 Then intPageCount = intPageCount - 1 End If 'response.write "
" '最始頁 If intPage > 1 Then Response.Write "  【第一頁】  " else Response.Write "  【第一頁】  " End If '-5 If intPage > 5 Then Response.Write " | -5 | " End If '上一頁鏈結 'intPrePage=intPage-1 'if intPrePage>0 then ' Response.Write "  上一頁  " 'else ' Response.Write "  上一頁  " 'end if '顯示頁數 For intCount1 = 1 to 5 If (intPageCount*5+intCount1) <= objRs.PageCount Then If intPage <> intPageCount*5+intCount1 Then Response.Write "  [" & intPageCount*5+intCount1 & "]  " Else Response.Write "  " & intPageCount*5+intCount1 & "  " End If End If Next '下一頁鏈結 'intNextPage=intPage+1 'if intNextPage<=objRs.PageCount then ' Response.Write "  下一頁  " 'else ' Response.Write "  下一頁  " 'end if '+5 If objRs.PageCount >= (intPageCount+1)*5+5 Then Response.Write " | +5 | " Elseif objRs.PageCount >= (intPageCount+1)*5+1 Then Response.Write " | +"&objRs.PageCount-(intPageCount+1)*5&" | " End If '最終頁 If intPage <> objRs.PageCount Then Response.Write " 【最末頁】" else Response.Write " 【最末頁】" End If '顯示(目前頁數 / 總頁數) response.write "
共有 "&objRs.RecordCount&" 筆資料，"&intPage&" / "&objRs.PageCount&" 頁" End Sub 'objRS.close 'set objRS=nothing %>