onepage.asp

大家好

<%
sub showonepage(rs,page)
	
	response.write "<table border=1>"
	response.write "<tr bgcolor=#00FFFF>"
	response.write "<td>编号</td>"
	
	for i=0 to rs.fields.count-1
		
		response.write "<td>"&rs.fields(i).name&"</td>"
		
	next
	
	response.write "</tr>"
	rs.AbsolutePage=page
	for ipage=1 to rs.pagesize
		
		response.write "<tr>"
		recno=(page-1)*rs.pagesize+ipage
		response.write "<td>"&recno&"</td>"
		for i=0 to rs.fields.count-1
			response.write "<td width=400>"&rs.fields(i).value&"</td>"
		next
		
		response.write "</tr>"
		rs.movenext
		if rs.eof then exit for
	next
	
	response.write "</table>"
end sub
%>