鹿茸片泡酒有什么作用:请问这个分页哪里错了呢?

来源:百度文库 编辑:杭州交通信息网 时间:2024/03/29 05:18:46
<%
dim conn,rs
set conn = server.createobject("adodb.connection")
conn.open = "provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath("db1.mdb")
set rs=server.createobject("adodb.recordset")
sql="select * from 成绩"
rs.open sql,conn,1,3
dim pagenum
rs.pagesize=5
pagecount1=rs.pagecount
if request.QueryString("pagenum")=0 or request.QueryString("pagenum")="" then
pagenum=1
else
rs.absolutepage=trim(request.QueryString("pagenum"))
end if
%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>

<body>

<p><font color="#CCCCCC" size="+6">电子商务一班成绩栏
</font></p>

查找
[<a href=index.asp?pagenum=1>首页</a>
<%If pagenum > 1 Then%>
<a href=index.asp?pagenum=<%=(pagenum-1)%>>上一页</a>
<%Else%>
上一页
<%pagenum=1%>
<%End If%>

<%If pagenum < Trim(pagecount1) Then%>
<a href=index.asp?pagenum=<%=(pagenum+1)%>>下一页</a>
<%Else%>
下一页
<%pagenum=pagecount1%>
<%End If%>
<a href=index.asp?pagenum=<%=pagecount1%>>尾页</a>]

设置

<table width="600" border="0" cellspacing="0" cellpadding="0">
<tr>
<th bgcolor="#99FFCC" scope="row"><div align="left">学号</div></th>
<td bgcolor="#99FFCC">姓名</td>
<td bgcolor="#99FFCC">英语</td>
<td bgcolor="#99FFCC">管理信息系统</td>
<td bgcolor="#99FFCC">国际贸易</td>
<td bgcolor="#99FFCC">网页设计</td>
<td bgcolor="#99FFCC">物流</td>
<td bgcolor="#99FFCC">法律基础</td>
<td bgcolor="#99FFCC">国际结算</td>
</tr>

<% do while not rs.eof and i<rs.pagesize %>
<tr>
<td><%=rs("学号")%></td>
<td><%=rs("姓名")%></td>
<td><%=rs("英语")%></td>
<td><%=rs("管理信息系统")%></td>
<td><%=rs("国际贸易")%></td>
<td><%=rs("网页设计")%></td>
<td><%=rs("物流")%></td>
<td><%=rs("法律基础")%></td>
<td><%=rs("国际结算")%></td>
</tr>
<%
i=i+1
rs.movenext
loop

%>
<tr>
<th bgcolor="#99FFCC" scope="row"><div align="left">学号</div></th>
<td bgcolor="#99FFCC">姓名</td>
<td bgcolor="#99FFCC">英语</td>
<td bgcolor="#99FFCC">管理信息系统</td>
<td bgcolor="#99FFCC">国际贸易</td>
<td bgcolor="#99FFCC">网页设计</td>
<td bgcolor="#99FFCC">物流</td>
<td bgcolor="#99FFCC">法律基础</td>
<td bgcolor="#99FFCC">国际结算</td>
</tr>
</table>
<p> </p>
<p> </p>
<p align="left"> </p>
</body>
</html>

第六行rs.open sql,conn,1,3
改为:rs.open sql,conn,1,1