***********下面是这个文件的所有代码************
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="connect/conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from message order by id desc"
rs.open sql,conn,3,1
rs.pagesize=5
if request("page")<>"" then
epage=cint(request("page"))
if epage<1 then epage=1
if epage>rs.pagecount then epage=pagecount
else
epage=1
end if
rs.absolutepage=epage
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>index</title>
<style type="text/css">
<!--
body {
margin-top: 0px;
margin-bottom: 0px;
background-color: #FFFFFF;
background-image: url(images/pic/bg.gif);
}
body,td,th {
font-size: 12px;
color: #000000;
word-break:break-all
}
.table1 {
background-color: #0066FF;
}
.tr1 {
background-color: #FFFFFF;
}
a {
font-size: 12px;
color: #000000;
}
a:link {
text-decoration: none;
}
a:visited {
text-decoration: none;
color: #000000;
}
a:hover {
text-decoration: underline;
color: #FF0000;
}
a:active {
text-decoration: none;
color: #000000;
}
-->
</style>
</head>
<body>
<div align="center">
<table width="780" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<!--DWLayoutTable-->
<!--主版块-->
<tr>
<td width="10" height="135"></td>
<td width="760" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--头部版块-->
<tr>
<td width="760" height="135" valign="top"><!--#include file="top.asp"--><!--LOGO与BANNER与菜单--></td>
</tr>
</table></td>
<td width="10"></td>
</tr>
<tr>
<td height="7"></td>
<td></td>
<td></td>
</tr>
<tr>
<td height="291"></td>
<td valign="top">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="table1">
<!--阅览留言版块-->
<tr class="tr1">
<td height="25" colspan="2" valign="top" background="images/pic/bg-title.gif"><!--统计信息--></td>
</tr>
<%
for i=0 to rs.pagesize-1
if rs.bof or rs.eof then exit for
%> <tr class="tr1">
<td width="199" rowspan="2" align="center" valign="middle"><!--作者资料-->
<div><img src
="<%=rs(7).value%>" width="60" height="60"></div><br>
<div>姓名:<%=rs(1).value%></div>
<div>性别:<%=rs(2).value%></div>
<div>年龄:<%=rs(3).value%></div>
<div>IP:<%=rs(6).value%></div></td>
<td width="558" height="20" valign="middle" align="left"> 标题
:<%=rs(8).value%><!--留言标题--></td>
</tr>
<tr class="tr1">
<td height="165" valign="top" align="left"><br>  
;<%=rs(9).value%><!--留言内容--></td>
</tr>
<tr class="tr1">
<td height="25" valign="middle" align="center"><!--作者IP
--><%=rs(10).value%> 发表</td>
<td valign="middle" align="right"><!--联系方式及其它相关-->EMAIL
:<%=rs(4).value%>WEBSITE:<%=rs(5).value%> </td>
</tr>
<%
rs.movenext
next
%> <tr class="tr1">
<td height="25" colspan="2" valign="middle" align="center"><!--分页显示连接-->
<% if epage<>1 then %>
<a href="">首页</a>
<a href="index.asp?page=<%=epage-1%>">前一页</a>
<% end if %>
<% if epage<>rs.pagecount then %>
<a href="index.asp?page=<%=epage+1%>">后一页</a>
<a href="index.asp?page=<%=rs.pagecount%>">末页</a>
<% end if
%> </td>
</tr>
<%
if rs.bof and rs.eof then
%>
<tr>
<td height="25" colspan="2" valign="middle" align="center" class="tr1"><!--提示信息-->
***目前没有任何留言***
</td>
</tr>
<%
end if
conn.close()
%> </table>
</td>
<td></td>
</tr>
<tr>
<td height="6"></td>
<td></td>
<td></td>
</tr>
<tr>
<td height="152"></td>
<td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--底部版块-->
<tr>
<td width="760" height="152" valign="top"><!--#include file="bottom.asp"--><!--版权信息--></td>
</tr>
</table></td>
<td></td>
</tr>
</table>
</div>
</body>
</html>
*********************************************
请大家看看,到底出了十么错!谢谢了
!(另外,涉及ASP代码的我已经用红色标识)
[此贴子已经被作者于2006-9-22 12:23:18编辑过]
