<% const MaxPerPage=5 '分页显示的纪录个数 dim sql dim rs dim totalPut dim CurrentPage dim TotalPages dim i,j if not isempty(request("page")) then currentPage=cint(request("page")) else currentPage=1 end if set rs=server.createobject("adodb.recordset") sql="select * from book order by id desc" rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "

还没有任何留言!

" else totalPut=rs.recordcount totalPut=rs.recordcount if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then showpages showContent showpages else if (currentPage-1)*MaxPerPage <%if rs("email")<>"" then%> <%end if%> <%if rs("rebook")<>""then%> <%end if%>

<%if rs("name")="管理员"then%> 『管理员公告』 <%else%> 用户名 <%end if%>	<%=rs("name")%>   ">删除     "> <%if rs("name")<>"管理员" then%> <%if rs("name")<>"未注册用户" then response.write "回复" end if %> <%if rs("name")="未注册用户" then response.write "没有注册为会员通过E-amil回复！" end if%> <%end if%>
标题	<%=rs("title")%>
联系电话	<%=rs("Phone")%>
E-mail	"><%=rs("email")%>
发送时间	[<%=rs("time")%>]
内 容	<%=rs("content")%>
回复内容	<%=rs("rebook")%>

<% i=i+1 if i>=MaxPerPage then exit do rs.movenext loop end sub sub showpages() dim n if (totalPut mod MaxPerPage)=0 then n= totalPut \ MaxPerPage else n= totalPut \ MaxPerPage + 1 end if if n=1 then response.write "留言簿管理界面" exit sub end if dim k response.write "

>> 留言分页 " for k=1 to n if k=currentPage then response.write "["+Cstr(k)+"] " else response.write "["+""+Cstr(k)+"] " end if next end sub %>