<%? Page = clng ("page")) ??? set = server.createObject ("adoDb.recordset") ??? sql = "SELECT ID, GuestNAME, OICQ, Email, Web, IP , Update, RepLDate, Replay, Content, Pic, Validate, UserShow from Guestbook ORDER BY UPDATE DESC "??? rs.open sql, conn, 1, 1 ??? if xi e ???? response.redirect ( "GUESTBOOK.ASP? Action = WRITE") ???? response.end () ??? End if ??? rs.pageSize = 10 ??? PageCount = rs.pagecount ??? ife <= 0 THEN Page = 1 ??? if power PageCount ??? if Request.queryString ("Page" = "" "= 1 ??? rs.absolutepage = Page ??? countpicnum = 1 ??? While (NOT (Rs.eof or (CountPicnum> rs.pagesize)))))%> ...................
??? <% countpicnum = countpicnum 1 ??? rs.movenext ??? loop%>
?
Average
<% = rs.recordcount%> strip
<% = PageCount%> Page per page
<% = rs.pageSize%> strip
Homepage
Previous page
Next page
Last page
???????????????????
?????????????????????? <% for i = 1 to Page = I THEN ??????%> ??? ?????? <% = i%> <% else%> ??????? <% = I%> ??????????????? % END IF ????? next ?????%> ????????????????????
??????????????????? page
?
Function MM_JUMPMENU (TARG, SELOBJ, RESTORE) {//v3.0eval (Targ ".Location='" selobj.Options[Selobj.selectedIndex].value "'" ";if (restore) selobj.selectedIndex = 0;}