asp基本分頁範例

2006-03-28

日記

<%
set rs = Server.CreateObject(“ADODB.Recordset”)
sql = “SELECT diary.diary_id, diary.diary_date, code_mood.mood, code_weather.weather, diary.diary_content, diary.voc_file ,diary.content_chi “
sql=sql&”FROM “
sql=sql&”diary INNER JOIN code_mood ON code_mood.id = diary.mood”
sql=sql&” INNER JOIN code_weather ON diary.weather = code_weather.id “

rs.Open sql,conn ,3,1

‘ 設定分頁
rs.PageSize=20
TotalPage=rs.pagecount
page = clng(request(“page”))’把page的值由文字轉型轉為數字型態(從清單物件傳來的值為字串)
if page < 1 then page = 1
if page > totalpage then page = totalpage
rs.AbsolutePage = page
‘讓資料錄的指標指向第X頁(只要設好pagesize，asp就會自動把redordcount-資料總數，除以pagesize便會得到pagecount-頁面總數，再用AbsolutPage來指向要到第幾頁

%>

<%

if rs.eof then
response.Write “沒有資料”
else
for i = 1 to rs.pagesize
%>

<%
rs.movenext
if rs.eof then exit for

next
rs.close
end if
%>

id	content	tate	mood	weather	chinese	voice
<%=rs.fields(“diary_id”)%>	<%=rs.fields(“diary_date”)%>	<%=rs.fields(“mood”)%>	<%=rs.fields(“weather”)%>	<%=rs.fields(“diary_content”)%>	<%=rs.fields(“content_chi”)%>	<%=rs.fields(“voc_file”)%>