<% dim MaxPerPage dim sql dim rs dim gstBookID 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 %>
No message <% else rs.pagesize=8 totalPut=rs.recordcount '记录总数 totalPage=rs.pagecount MaxPerPage=rs.pagesize if currentpage<1 then currentpage=1 end if if currentpage>totalPage then currentpage=totalPage end if if currentPage=1 then showpages showContent showpages else if (currentPage-1)*MaxPerPage <% do while not (rs.eof or err) k=k-1 %>
No.<%=k%> " > <%=rs("Memo")%>
">
<%=rs("name")%>
]" href="<%=rs("homepage")%>" target="_blank">Home
]" href="mailto:<%=rs("email")%>">Emial
]" href="javascript:;" onClick="MM_popupMsg('QQ号码：[ <%=rs("oicq")%> ]')">OICQ
<% if rs("ip")<>"" then %> IP :  
<% = rs("ip") %>
<% end if %> Time : 
<% =rs("time") %>
<% if rs("anser")<>"" then%> <%end if%>
admin: " > <%=rs("anser")%>
<% i=i+1 if i>=MaxPerPage then exit do '循环时如果到尾部则先退出，如果记录达到页最大显示数，也退出 rs.movenext loop end sub sub showpages() dim n n=totalPage %>
Total Pages:
 <% If currentPage <> 1 Then Response.Write " << " End If %> <% if rs.pagecount <= 8 then for i=1 to rs.pagecount response.write "["&i&"]" next else for i=1 to 8 response.write "["&i&"]" next end if %> <% If currentPage <> rs.PageCount Then Response.Write " >> " End If %>   Pages:[><%=totalPage%>]
<% end sub %>
©2004 百应美术. All rights reserved.