ASP分页

分页：
<%
IF (cint(rs.PageCount))>1 THEN

 IF cint(cur) = 1 then
  Response.write ("<a href="&curfile&"?keyword="&keyword&"&serType="&serType&"&cur=" & (cur+1) & "> [下一页] </a>")
  Response.write ("<a href="&curfile&"?keyword="&keyword&"&serType="&serType&"&cur=" & cint(rs.PageCount) & "> [末 页] </a>")
 ELSEIF cint(cur) = cint(rs.PageCount) THEN
  Response.write ("<a href="&curfile&"?keyword="&keyword&"&serType="&serType&"&cur=1> [首 页] </a>")
  Response.write ("<a href="&curfile&"?keyword="&keyword&"&serType="&serType&"&cur=" & (cur-1) & "> [上一页] </a>")
 ELSE
  Response.write ("<a href="&curfile&"?keyword="&keyword&"&serType="&serType&"&cur=1> [首 页] </a>")
  Response.write ("<a href="&curfile&"?keyword="&keyword&"&serType="&serType&"&cur=" & (cur-1) & "> [上一页] </a>")
  Response.write ("<a href="&curfile&"?keyword="&keyword&"&serType="&serType&"&cur=" & (cur+1) & "> [下一页] </a>")
  Response.write ("<a href="&curfile&"?keyword="&keyword&"&serType="&serType&"&cur=" & cint(rs.PageCount) & "> [末 页] </a>")
 END IF

END IF

%>

分页set:
<%
 cur = Request("cur")

 IF cur = "" or cur < 1 THEN cur = 1

 rs.PageSize = perPageSize

 IF cint(cur) > cint(rs.PageCount) THEN
 cur = cint(rs.PageCount)
 END IF

 rs.AbsolutePage = cint(cur)
    
 datacount = 1
 
%>