|
編 號 |
刊 登 主 題 |
刊 登 日 期 |
<%
If rs.eof and rs.bof then
response.write "目前沒有還有資料~~~!!!"
End if
%>
<%
row_count=1
Sub list()
%>
<%
i=0
do while not rs.eof
%>
| <%=rs("ID")%> |
.htm"><%=rs("Title")%> |
<%=rs("Time")%> |
<%if row_count mod 1 = 0 then%><%end if%>
<%
i=i+1
if i >= MaxPerpage then exit do
rs.MoveNext
row_count=row_count+1
Loop
end Sub
%>
<% call list
If Rs.recordcount > MaxPerPage then
call showpages
End if
%>
|
<%
Response.write "請選擇："
If currentpage > 1 Then
response.write "| 首頁 "
Response.write "| 上一頁 "
Else
Response.write "| 首頁 "
Response.write "| 上一頁 "
End if
If currentpage < Rs.PageCount Then
Response.write "| 下一頁 "
Response.write "| 最尾頁 |"
Else
Response.write "| 下一頁 "
Response.write "| 最尾頁 | "
End if
Response.write " 頁次:" & "" & Cstr(CurrentPage) & "" & "/" & Cstr(Rs.pagecount) & " 每頁"
Response.write "" & Cstr(MaxPerPage) & "" & " 筆資料/頁 " & "共 " & "" & Cstr(Rs.RecordCount) & "" & " 筆資料 "
%>
<%sub showpages()%>
|
<%End Sub%>
