<%
		iCount=rs.RecordCount '¼ÇÂ¼×ÜÊý
		iPageSize=rs.PageSize
		maxpage=rs.PageCount 
		page=request("page")
	if Not IsNumeric(page) or page="" then
		page=1
	else
		page=cint(page)
	end if
		if page<1 then
			page=1
		elseif  page>maxpage then
			page=maxpage
		end if
			rs.AbsolutePage=Page
		if page=maxpage then
			x=iCount-(maxpage-1)*iPageSize
		else
			x=iPageSize
		end if

	For ii=1 To x
%>
