lydisplay.asp

简易留言 可以插入access数据库 并分页浏览

<%
set conn=Server.createObject("ADODB.Connection")
conn.open("driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("lyb.mdb"))
set rs=server.createObject("ADODB.Recordset")
sql="select * from lyb order by 时间 desc"
rs.open sql,conn,3
rs.pagesize=1
if request("page")<>"" then
 ipage=Cint(Request("page"))
 if iPage<1 then ipage=1
 if ipage>rs.pagecount then ipage=rs.pagecount
else
 ipage=1
end if
 response.write("当前第"& ipage &"页,共"& rs.Pagecount &"页")
 rs.absolutepage=ipage
%>
<%
for i=0 to rs.pagesize-1
if rs.eof or rs.bof then exit for
%>
<table>
<tr>
 <td><b>姓名</td>
 <td><%=rs("姓名")%></td>
</tr>
<tr>
 <td><b>Email</td>
 <td><%=rs("email")%></td>
</tr>

<tr>
 <td><b>主题</td>
 <td><%=rs("主题")%></td>
</tr>
<tr>
 <td><b>时间</td>
 <td><%=rs("时间")%></td>
</tr>
<tr>
 <td><b>内容</td>
 <td><%=rs("内容")%></td>
</tr><hr>
</table>
<%
rs.movenext()
Next
%>
<br>
<%
If ipage<>1 then %>
<a href="lydisplay.asp?page=1">第一页</a>
<a href="lydisplay.asp?page=<%=ipage-1%>">上一页</a>
<% end if
if ipage<>rs.pagecount then %>
<a href="lydisplay.asp?page=<%=ipage+1%>">下一页</a>
<a href="lydisplay.asp?page=<%=rs.pagecount%>">最后页</a>

<% end if
 conn.close()
 %>