<% Set conn=Server.CreateObject("Adodb.Connection") DBPath=Server.MapPath("db1.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&DBPath Set rs=Server.CreateObject("Adodb.RecordSet") rs.Open "Select ID,tname,tgender,tnow,temail,thomepage,tsubject,tcontent From Table1 Order by ID desc",conn,1,1 rs.PageSize=3 count=rs.PageSize if request("CurrentPage")="" then rs.AbsolutePage=1 CurrentPage=1 else rs.AbsolutePage=request("CurrentPage") CurrentPage=Cint(request("CurrentPage")) end if PageCount=rs.PageCount Set rs2=Server.CreateObject("Adodb.RecordSet") %> <% Do while count>0 and not rs.eof %> <% Set rs2=conn.execute("Select tname,tcontent from table3 where tid="&rs("id")&" order by id desc") if not rs2.eof and not rs2.bof then do while not rs2.eof %> <% rs2.movenext loop end if %>

留言编号	<% =rs("id") %>
姓名	<% =rs("tname") %>
性别	<% =rs("tgender") %>
留言时间	<% =rs("tnow") %>
电子邮箱	<% =rs("temail") %>
主页	<% =rs("thomepage") %>
留言主题	<% =rs("tsubject") %>
留言内容	<% =rs("tcontent") %>
<% =rs2("tname") %> 回复	<% =rs2("tcontent") %>
¤tpage=<% =currentpage %>">回复留言	<--点左边写回复

<% rs.MoveNext count=count-1 Loop rs2.close rs.Close conn.Close %>

当前第 <% =CurrentPage %> 页

看第 <% for i = 1 to PageCount %> ( <% =i %> ) <% Next %> 页