page.asp

来自「在线邮件列表抓取与发送系统SQL版」· ASP 代码 · 共 25 行

<%
		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
%>