分页：
<%
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
%>