<% 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><%for i=1 to pagecount%> <a href="guestbook.asp?page=<%=i%>"><%=i%></a><%next%>
</td> </tr>
<%do while not rs.eof and n<pagecount n=n+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><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="451" border="1" bgcolor="#33FFFF"> <tr> <td height="20"> <div align="center"><font color="#000066"> 欢迎光临飞飞云宅 欢迎光临飞飞云宅 欢迎光临飞飞云宅</font></div> </td> </tr><% rs.movenext loop %> </table> <p>
</p><p> </p> <p> </p> </div> </body> </html>
