<%response.expires=0 if request.cookies("loginok")="" then response.redirect "login.asp" end if %> .:: GUESTBOOK::. <% 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">Homepage
]" href="mailto:<%=rs("email")%>">Email
]" href="javascript:;" onClick="MM_popupMsg('QQ号码：[ <%=rs("oicq")%> ]')">OICQ
<%Response.Write "Reply" %>
<%Response.Write "Delete"%>
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 %>
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 %>   Total Pages:[><%=totalPage%>]
<% end sub %>
©2004 百应美术工作室. All rights reserved.