在dreamweaver mx 中如何让留言板分页(加急)

来源:百度知道 编辑:UC知道 时间:2024/05/02 10:03:16

在你要 循环显示的地方前粘贴
<%
else

Dim page_size '定义每页多少条记录变量
Dim page_no '定义当前是第几页变量
Dim page_total '定义总的页数变量
page_size=5
'如果第一次打开则page_no为1,否则由传回参数决定
If Request.QueryString("page_no")=""Then
page_no=1
Else
page_no=Cint(Request.QueryString("page_no"))
End If
rs.PageSize=page_size '设置每页多少条记录
page_total=rs.PageCount '返回总页数
rs.AbsolutePage=page_no '设置当前显示第几页

'下面一段利用表格显示当前页的所有记录
'response.Write(page_no)
dim I
I=page_size
Do while Not rs.Eof And I>0
I=I-1

%>

你循环的内容 !!!
<%
rs.movenext
loop

response.Write "<table width='760'><tr>"
response.Write "<td align='right' width='100%' bgcolor='#cccccc' >"
Response.Write"<p>