asp如何對access資料庫的資料進行分頁

<%

mytype = request("newstype")
'response.write mytype
exec = "select * from newscenter where newstype='" & mytype & "'order by newstime desc"
'response.write exec
set rs = server.createobject("adodb.recordset")
rs.open exec,conn,1,1
infonum = rs.recordcount
pagesize = 10
rs.pagesize = pagesize
pagecount = rs.pagecount
page = int(request.querystring("page"))
'response.write pagecount
'response.write page
if page <= 0 then page = 1
if page > pagecount then page = pagecount
if request.querystring("page") = "" then page = 1
'response.write page
'response.end
rs.absolutepage = page
count = 1 
%>

<%

for i=1 to pagesize
if not rs.eof and count <= rs.pagesize then
%>
<%=rs("newstitle")%>
<%=formatdatetime(rs("newstime"),vbshortdate)%>
<%
count = count + 1
rs.movenext
end if
next
rs.close
set rs = nothing
%>

分頁文章內容

<%if pagecount = 1 then%>

<< 起始頁
>> 最終頁
<%end if%>
<%if pagecount > 1 and page = 1  then%>
<< 起始頁
&page=<%=pagecount%>">>> 最終頁
<%end if%>
<%if pagecount > 1 and page>1 and page < pagecount then%>
&page=1"><< 起始頁
&page=<%=pagecount%>">>> 最終頁
<%end if%>
<%if pagecount > 1 and page = pagecount then%>
&page=1" target="_self"><< 起始頁
>> 最終頁
<%end if%>

顯示上下頁

asp連線sql資料庫,access資料庫字串

asp連線sqlserver資料庫字串 set connsql server.createobject adodb.connection strsql provider sqloledb.1 password y ht1986 persist security info true user id s...

asp連線access資料庫例項

asp是微軟的伺服器端動態指令碼語言，使用它可以輕鬆處理與access資料庫的連線。使用asp來連線access，需要用到微軟的ado元件，不熟悉的可以去網上搜尋一下。下面使用乙個例項來演示連線過程 set conn server.createobject adodb.connection 建立乙個...

asp鏈結access資料庫筆記

自己學習asp.net已經有一年半的時間了，但是看到現在還是有很多 用的是asp，於是不得不回到看看asp的 問同事那邊要了乙個asp的 1是為了自己更好的學習asp 而是學習黑客技術，學習如果攻，哈哈你一定想錯了，因為你會攻了才會防，防才是我真正的目的。1 2 連線資料庫開始 3dim conn,...