类型：转载 责任编辑：asp.net 日期：2007/05/23
热门软件下载：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>留言版</title>
<script language="JavaScript">
function PageNext()
{
document.MyForm.CurrentPage.selectedIndex++;
document.MyForm.CurrentPage.onchange();
}
</script>
<LINK href="../style.css" rel="stylesheet" >
</head>
<%
VarValue=Session("value")
if Varvalue="01" then
Response.Write("<script>alert(请先登陆后再留言)</script>")
end if
%>
<body>
<%
Set conn2=Server.CreateObject("ADODB.Connection")
conn2.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath("..\DataEdu.mdb")
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from ContentTile"
rs.Open sql,conn2
%>
<%
if rs.eof then
%>
<center>
<table width="600" height="134" border="1" bordercolor="#47bf00">
<tr style="" bgcolor="#47bf00">
<td width="462" height="27" >标题：</td>
<td width="128" height="27">发言人：</td>
</tr>
<tr>
<td colspan="2" >现在还没有人发言</td>
</tr>
</table>
</center>
<%
ELSE
%>
<%
rs.Pagesize=1
for i=0 to rs.PageSize
%>
<center>
<table width="600" height="134" border="1" bordercolor="#47bf00">
<tr style="" bgcolor="#47bf00">
<td width="462" height="27" >标题：<%=rs("TitleName")%></td>
<td width="128" height="27">发言人：<%=rs("UserName")%></td>
</tr>
<tr>
<td colspan="2" ><%=rs("Content")%></td>
</tr>
</table>
</center>
<%
rs.MoveNext
if rs.EOF then exit for
next
end if
%>
<%
Response.Write("<div align=right><a href=javascript:PageNext()>下一页</a></div>")
%>
<form action="insert.asp" method="post">
<center>
<table width="650" >
<tr>
<td width="10%">标题</td>
<td width="90%"><input name="title" type="text" size="80" ></td>
</tr>
<tr>
<td width="10%">发言内容</td>
<td width="90%"><textarea name="content" cols="79" rows="10"></textarea></td>
</tr>
<tr>
<td colspan="2" align="right"><input type="submit" name="sub" value="提交留言"></td>
</tr>
</table>
</center>
</form>
</body>
</html>
这是小弟写的一个留言版，但那个下一页的功能点击了什么反应也没有，请哪个大哥帮忙看看，那个分页功能的代码那里有问题？我照网上做的，请帮忙改正一下代码
网友回答：
用javascript的，看不大习惯，找个送给你吧。
<%
Sub ShowOnePage( rs, Page )
Response.Write "<CENTER><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>" & rs.Fields(i).Value & "</TD>"
Next
Response.Write "</TR>"
rs.MoveNext
If rs.EOF Then Exit For
Next
Response.Write "</TABLE></CENTER>"
End Sub
%>
参考下.
<%
rs.Pagesize=10
PageNO=request("page")/*返回要显示的页码 当你点击第几页时或下一页上一页时.
if PageNo<>"" then
objRS.AbsolutePage = PageNo
else
objrs.AbsolutePage=1
end if
recu=objrs.recordcount
topage=objrs.pagecount
for i=0 to rs.PageSize
%>
..........
currentpage=request("page")
if isempty(currentpage) then
currentpage=1
else
currentpage=cint(currentpage)
end if
pagesize=10
rs.pagesize=pagesize
rs.absolutepage=currentpage
show=0
while not rs.eof and show<pagesize
..............
rs.movenext
wend
rs.close
set rs=nothing
估计这些就差不多了,没有调试过,不过应该没什么问题
应该说与你返回的记录集有关系，默认返回的记录集应该是不支持 absolutepage 属性的。
RS.OPEN SQL,CONN,A,B
A: ADOPENFORWARDONLY(=0) 向前指针，当前数据记录只能向下移动
ADOPENKEYSET(=1)键盘指针，当前数据记录可自由移动，当某客户修改后，其他用户都可以立刻显示
ADOPENDYNAMIC(=2)动态指针,当前数据记录可自由移动，所有修改都会立即在其他客户端显示
ADOPENSTATIC(=3) 静态指针,当前数据记录可自由移动,所有更新的数据都不会显示在其他客户端
B: ADLOCKREADONLY(=1) 默认值,用来打开只读记录
ADLOCKPESSIMISTIC(=2) 悲观锁定，只能同时被一个用户修改，修改时锁定，修改完毕释放
ADLOCKOPTIMISTIC(=3) 乐观锁定，可以同时被多个用户修改
ADLOCKBATCHOPTIMISTIC(=4) 批次乐观锁定，数据可以修改，但不锁定其他客户
你用 rs.Open sql,conn2,1,3 试一下吧！