110009基金净值:在dreamweaver mx 中如何让留言板分页(加急)

在你要 循环显示的地方前粘贴
<%
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>Page:"
'输出有关页数信息,从1到总页数循环,如不是当前页就加上超链接

For I=1 To page_total
If I=page_no Then
Response.Write(I)&" "
Else
Response.Write "<a href='

当前页地址

&"&page_no="&I&"'>"&I&"</a> "
end If
Next
end if
response.Write "</td>"
response.Write "</tr>"
Response.Write"</table>"

'end if
%>
只要是你的数据库连接“rs”一样（同名）跳转地址不错，绝对可以，我是从我的网页上粘下来的！！！

要用ADO的分页属性，太麻烦，不如自己下载留言板代码，网上多的很，很漂亮.

数据库取值的时候每页只取库中的20位就可以了。

看这一段代码！

<SCRIPT LANGUAGE="JavaScript">
<!--
var xPos = 20;
var yPos = document.body.clientHeight;
var step = 1;
var delay = 30;
var height = 0;
var Hoffset = 0;
var Woffset = 0;
var yon = 0;
var xon = 0;
var pause = true;
var interval;
img.style.top = yPos;
function changePos() {
width = document.body.clientWidth;
height = document.body.clientHeight;
Hoffset = img.offsetHeight;
Woffset = img.offsetWidth;
img.style.left = xPos + document.body.scrollLeft;
img.style.top = yPos + document.body.scrollTop;
if (yon) {
yPos = yPos + step;
}
else {
yPos = yPos - step;
}
if (yPos < 0) {
yon = 1;
yPos = 0;
}
if (yPos >= (height - Hoffset)) {
yon = 0;
yPos = (height - Hoffset);
}
if (xon) {
xPos = xPos + step;
}
else {
xPos = xPos - step;
}
if (xPos < 0) {
xon = 1;
xPos = 0;
}
if (xPos >= (width - Woffset)) {
xon = 0;
xPos = (width - Woffset);
}
}
function www_helpor_net() {
img.visibility = "visible";
interval = setInterval('changePos()', delay);
}
www_helpor_net();
//For more,visit:www.helpor.net
-->
</script>

几个属性，自己查吧：

objrs.PageSize
objrs.PageCount
objrs.AbsolutePage