<% Page = Request("Page") If Page = "" Or Page = "0" Then Page = "1" End If If Page > "1" Then Response.Write "上一頁" End If Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("sale.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "Select *From gbook Order By Id DESC", conn, 1 If rs.EOF Then Else Size = 10 * Page Read = Size - rs.RecordCount PSize = Size - 10 If PSize =< rs.RecordCount Then For i = 1 to PSize rs.MoveNext Next End If If Read > 0 And Read < 10 Then For i = 1 to 10 - Read RsTogbook rs rs.MoveNext Next Else If Read > 10 Then rs.MoveFirst For i = 1 to 10 RsTogbook rs rs.MoveNext Next Else For i = 1 to 10 RsTogbook rs rs.MoveNext Next End If End If End If Sub RsTogbook( rs ) name = rs("name") number = rs("number") name1 = rs("name1") email = rs("email") tel = rs("tel") name2 = rs("name2") memo = rs("memo") MemoTime = rs("Time") End If Tab = Tab & "

---

" Tab = Tab & "

" Tab = Tab & "" Tab = Tab & " " Tab = Tab & name & " " Tab = Tab & number & " " Tab = Tab & name1 & " " Tab = Tab & email & " " Tab = Tab & tel & " " Tab = Tab & name2 & " " Tab = Tab & " " & memo & " [" & MemoTime & "] " Response.Write Tab End Sub If Page - rs.PageCount = 0 then Else Response.Write "下一頁" End If %>