<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="adovbs.inc"-->
<!--#include file="conn.asp"-->
<!--#include file="2.css"-->
<html>
<head>
<title>bbs
</title>
</head>
<body><DIV ID="TOP">DDD</DIV><DIV class="RR" >
<%dim rst,q
sql="select 姓名 as 你的名字,email as 你的邮箱,主题 as 标题内容,留言 as 留言信息 from guestbook order by 时间 desc"
set rec=server.createobject("adodb.recordset"
rec.open sql,conn,adopenstatic,1
'set rec=conn.execute (sql)
page=Clng(request("page"
)
rec.absolutepage=page
rec.pagesize=3
response.write "<div style=""color:#fff;font-size:13pt;text-align:left;margin-bottom:0px;"">"
for w=0 to rec.fields.count-1
response.write rec.fields(w).name
response.write " "&" "&" "
next
response.write "</div>"
response.write "<br>"
for thepage=1 to rec.pagesize
FOR q=0 TO rec.fields.count-1
response.write rec.fields(q).value
response.write " "
next
response.write "<br>"
rec.movenext
next
%>
<%
if page<>1 then
response.write("<a href=gbook.asp?page=1>第一页</a>"
response.write "   "
response.write("<a href=gbook.asp?page="&(page-1)&">上一页</a>"
end if
if page<>rec.pagecount then
response.write " "
response.write("<a href=gbook.asp?page="&(page+1)&">下一页</a>"
response.write " "
response.write("<a href=gbook.asp?page="&rec.pagecount&">最后一页</a>"
end if
%>
<center><a href="../gform.htm">返回留言记录单</a></center></DIV>
</body>
</html>
<!--#include file="close.asp"-->
