<% if not bNoRecords then response.write "
Page " & iPage & " of " & iTotalPages & "
" end if %>
留言内容
| 主题 | 身份 | 回复 | 发布时间 | <% if bNoRecords then response.write "没有留言内容 | " else for lCtr = lPageStart to lPageEnd response.write "" & rs("Topic") & " | " response.write "" response.write "" & rs("AuthorName") & "" response.write " | " response.write "" & rs("ReplyCount") & " | " response.write "" & rs("LastThreadPost") & " | |||
| " if iPage > 1 then sPrevQuery = "Page=" & iPage - 1 response.write "<< Previous Page" else response.write " " end if response.write " | " if bLastPage = false then sNextQuery = "Page=" & iPage + 1 response.write "Next Page >>" else response.write " " end if response.write " | " response.write " |
<% cmd.CommandText = "MESSAGETHREADS" cmd.CommandType = 4 iPageSize = 20 iPage = cint(Request.QueryString("Page")) if iPage = 0 then iPage = 1 rs.open cmd, , 1, 3 if not rs.Eof and not rs.bof then rs.MoveLast lTotalRecords = rs.RecordCount iTotalPages = int(lTotalRecords / iPageSize) if lTotalRecords MOD iPageSize <> 0 then iTotalPages = iTotalPages + 1 if lTotalRecords <= iPageSize then rs.MoveFirst bOnePage = true lPageEnd = lTotalRecords lPageStart = 1 iTotalPages = 1 else lPageStart = ((iPage - 1) * iPageSize) + 1 lPageEnd = lPageStart + (iPageSize - 1) if lPageEnd >= lTotalRecords Then lPageEnd = lTotalRecords bLastPage = true end if if iPage > 1 then rs.AbsolutePosition = ((iPage - 1) * iPageSize) + 1 else rs.MoveFirst end if end if else bNoRecords = true end if %>