下面代码是一个数据库数据一页循环显示全部,我想每页显示5行换页该怎么办。
<%
set conn=Server.CreateObject("ADODB.Connection") 
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open Server.MapPath("data.mdb") 
set rs=conn.Execute("Select * from cm110") 
Response.Write "<table border=1>"
While Not rs.EOF
Response.Write "<tr>"
If rs.EOf Then 
Response.Write "<td></td><td></td>"
Else
Response.Write "<td>" & rs("mingcheng") & "</td>" 
rs.MoveNext
End If
Response.Write "</tr>"
Wend 
Response.Write "</table>"
%>