ASP記錄

連接數據庫代碼

<%
sfdb=server.mappath("surfer.mdb")
%>

<% set conn = server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq=" & sfdb
Set rs = Server.CreateObject("ADODB.Recordset")

sql="select * from gbook Order By time desc"

rs.pagesize=10

rs.open sql,conn,1,1
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''1，1是讀取和查詢時用，1，3是修改，寫入和刪除不用rs.open

page=cint(Request.QueryString("page")) '控制分頁
if page<1 then
 page=1
 elseif page>rs.pagecount then
 page=rs.pagecount
end if
rs.AbsolutePage=page
%> 

<%
if rs.bof then response.Write("<font color=red size=2>目前沒有留言 </font><br>")
for i=1 to rs.pagesize
if rs.eof then exit for
%>

<%=rs("user_message") %>'顯示數據庫內容

<%
rs.movenext
next
%>for循環開始工作了

 <% if page>1 then %>
                    <a href="index.asp?page=<%=page-1%>">上一頁</a>
                    <% else %>
                    頁頭
                    <% end if %>
                    </font><font color="#999999" size="2">
                    <% if page < rs.pagecount then %>
                    <a href="index.asp?page=<%=page+1%>">下一頁</a>
                    <% else %>
                    頁尾
                    <% end if %>
                    </font><% if page < rs.pagecount then %><a href="index.asp?page=<%=rs.pagecount%>">最後一頁<% end if %>
                    </a><font color="#999999" size="2">頁數: </font><font color="#FF0000" size="2"><%= page %></font><strong><font color="#999999" size="2">/</font></strong><font color="#999999" size="2"><%= rs.pagecount %> 頁 &nbsp;&nbsp;共<font color="#FF0000"><%= rs.recordcount %></font>條留言</font>
               <% for i=1 to rs.pagecount %>
                    <a href=index.asp?page=<%=i%>>[<%= i %>]</a>
<% next %>

'分頁結束

<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

控制管理員的原理

用session("isadmin")=yes"這個組件來判斷，，用if語句就行了