|
|
|
<%
dim rs,sql
set rs = Server.CreateObject("adodb.recordset")
sql = "select * from message order by id desc"
rs.open sql,conn,1,1
if rs.recordcount<=0 then
response.write(" ")
rs.close
else
rs.pagesize=2
if request.QueryString("form")=1 then
intpage=request("mypage")
else
if clng(request.QueryString("page"))="" or clng(request.QueryString("page"))=0then
intpage=1
end if
if clng(request.QueryString("page"))<=1 then
intpage=1
end if
if clng(request.QueryString("page")) >=2 and clng(request.QueryString("page"))<=rs.pagecount then
intpage=clng(request.QueryString("page"))
end if
if clng(request.QueryString("page"))>rs.pagecount then
intpage=rs.pagecount
end if
end if
totalpages=rs.pagecount
rs.absolutepage=intpage
%>
<%
for i = 1 to 2
if rs.eof then exit for
%>
姓 名: <%=rs("name")%> |
性别: <%=rs("sex")%> |
来自:<%=rs("address")%> |
E-mail: <%=rs("mail")%> |
电话:<%=rs("tel")%> |
发表时间: <%=rs("time")%> |
留言内容: <%=rs("content")%> |
|
|
|
|
|
<%
rs.movenext
next
%>
共〖<%=rs.recordcount%>〗条记录! 页次: 〖<%=intpage%>/<%=rs.pagecount%>页〗
<%
if intpage<2 then
response.write " "
response.write "首页 | 上一页 | "
else
response.write "| "
response.write "首页 | "
response.write " 上一页| "
end if
if totalpages -intpage<1 then
response.write "下一页| 尾页"
response.write " "
else
response.write ""
response.write "下一页"
response.write " |"
response.write " "
response.write " 尾页"
response.write " "
end if
%>
|
<%
end if
rs.close
set rs=nothing
%>
|
|
|
|
|
|