<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("guestbook.mdb")
%>
<%
exec="select * from guestbook"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
rs.PageSize=3
pagecount=rs.PageCount
page=int(request.QueryString ("page"))
if page<=0 then page=1
if request.QueryString("page")="" then page=1
rs.AbsolutePage=page
%>
<html>
<head>
<title>无标题文档</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
</script>
</head>
<body bgcolor="#000000" text="#000000">
<div align="center">
<p><font color="#FFFFFF" size="+7">留 言 显 示</font> </p>
<p> </p><tr>
<td>
</td>
</tr>
<%do while not rs.eof and i>0 i=i-1 %>
<table width="450" border="1">
<tr>
<td width="402" bgcolor="#000033">
<div align="left"><font color="#FFFFFF">昵名：<%=rs("name")%></font></div>
</td>
</tr>
</table>
<table width="450" border="1" bordercolor="#FFFFCC" bgcolor="#000033">
<tr>
<td width="392" height="14"><font color="#CCCCCC">标题：<%=rs("subject")%></font></td>
</tr>
</table>
<table width="450" border="1" bgcolor="#000033">
<tr>
<td><font color="#FFFFFF">email:<%=rs("email")%></font></td>
</tr>
</table>
<table width="450" border="1" height="27" bgcolor="#000033">
<tr>
<td width="402" height="114" valign="top" style="word-break:break-all">
<p>l<font size="+2">\<font color="#FFFFFF">留言内容</font></font><font color="#FFFFFF">
：<%=rs("message")%></font></p>
<p> </p>
</td>
</tr>
</table>
<table width="450" border="1" bgcolor="#000033">
<tr>
<td height="34"><font color="#FFFFFF">留言时间：<%=rs("time")%></font></td>
</tr>
</table>
<p> </p>
<table width="450" border="1" bgcolor="#33FFFF">
<tr>
<td height="20"><font color="#000066">欢迎光临飞飞云宅 欢迎光临飞飞云宅 欢迎光临飞飞云</font></td>
</tr><%
rs.movenext
loop
%>
</table><%for i=1 to pagecount%>
<a href="DD.asp?page=<%=i%>"><%=i%></a><%next%>
<p> </p>
<p> </p>
</div>
</body>
</html>
