<%
Set conn=Server.CreateObject("ADODB.Connection")
'conn.ConnectionString="driver={SQL Server};server=127.0.0.1;uid=ms;pwd=123;database=AS_message"
conn.open"DSN=aspdbs;UID=sm;PWD=123;Database=AS_message"
Set rs=Server.CreateObject("ADODB.Recordset")
Set rs.ActiveConnection=conn
rs.CursorType=3
rs.open"select * from message"
rs.pagesize=3
page=Clng(Request.QueryString("page"))
if page<1 then
page=1
end if
if page>rs.pagecount then
page=rs.pagecount
end if
rs.AbsolutePage=page
%>
<table width="642" border="1" align="center" cellpadding="0" cellspacing="0"  bordercolorlight="#666666" bordercolordark="#CCCCCC" bgcolor="#FFFFFF">
  <tr>
    <td colspan="2"><div align="center" class="style5">ASP留言板</div></td>
  </tr>
  <%for i=1 to rs.pagesize
   'varNO=(page-1)*rs.pagesize+i
   
  'do while rs.eof=false
  %>
  <tr>
    <td width="126" height="33"><div align="right" class="style6">标&nbsp;&nbsp;&nbsp; 题：</div></td>
    <td width="510" class="style6"><div align="left">
         &nbsp;
         &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
         <span class="style9">
         <%response.Write(rs("ms_title"))%>
         </span> </div></td>
  </tr>
  <tr>
    <td><table width="72%" height="136" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td height="105" colspan="2"><div align="center"><img src="<%response.Write(rs("ms_toux"))%>" width="120" height="113"></div></td>
        </tr>
      <tr class="style6">
        <td width="30%" height="15"><div align="left">昵称：</div></td>
        <td width="70%" class="style7"><%response.Write(rs("ms_name"))%>&nbsp;</td>
      </tr>
      <tr class="style6">
        <td height="15"><div align="left">OICQ：</div></td>
        <td class="style7"><%response.Write(rs("ms_qq"))%>&nbsp;</td>
      </tr>
    </table>
    <div align="center"></div></td>
    <td align="center" class="dhk"><table width="496" height="134" border="0" cellspacing="0">
      <tr class="style6">
        <td width="40" height="14">&nbsp;</td>
        <td width="435">&nbsp;</td>
        <td width="15">&nbsp;</td>
      </tr>
      <tr class="style6">
        <td height="102">&nbsp;</td>
        <td align="left" valign="top"><span class="style7">
          <%response.Write(rs("ms_content"))%>
          </span></td>
        <td>&nbsp;</td>
      </tr>
      <tr class="style6">
        <td height="17">&nbsp;</td>
        <td><div align="right" class="style8"><%response.Write(rs("ms_time"))%></div></td>
        <td>&nbsp;</td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td colspan="2">&nbsp;</td>
  </tr>
  <%
 rs.movenext
 'loop
  if rs.eof then exit for
  next
  %>
</table>

<br>
<table width="642" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td class="style6"><div align="right">
        <%
            if page=1 then
            Response.Write("首"&"&nbsp;"&"&nbsp;"&"页"&"&nbsp;"&"&nbsp;")
            else Response.Write("<a href=message.asp?page=1>首"&"&nbsp;"&"&nbsp;"&"页</a>"&"&nbsp;"&"&nbsp;")
            end if
            if page=1 then
            Response.Write("上一页"&"&nbsp;"&"&nbsp;")
            else Response.Write("<a href=message.asp?page="&page-1&">上一页</a>"&"&nbsp;"&"&nbsp;")
            end if
            if page=rs.pagecount then
            Response.Write("下一页"&"&nbsp;"&"&nbsp;")
            else Response.Write("<a href=message.asp?page="&page+1&">下一页</a>"&"&nbsp;"&"&nbsp;")
            end if
            if page=rs.pagecount then
            Response.Write("最后一页")
            else Response.Write("<a href=message.asp?page="&rs.pagecount&">最后一页</a>")
            end if
    %>
    &nbsp;</div></td>
  </tr>
</table>

自己改下连接方式我用的数据源，记得评分哈哈

楼上的应该不是楼主要的代码，
LZ是不是要一个可以指定查询条件，然后对查询出的结果进行分页~
额~~思路和楼上的代码差不多，就是把指定的查询条件通过查询字符串带进去处理

在SQL语句中加入where条件不就好了

主要是想学习下几个关键的词的用法

[quote]楼上的应该不是楼主要的代码，
LZ是不是要一个可以指定查询条件，然后对查询出的结果进行分页~
额~~思路和楼上的代码差不多，就是把指定的查询条件通过查询字符串带进去处理[/quote]
深知我意啊~~~~~~~~~~~~~~~~~