| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 412 人关注过本帖
标题:asp中的分頁問題
只看楼主 加入收藏
david0620
Rank: 1
等 级:新手上路
帖 子:97
专家分:0
注 册:2007-3-13
收藏
 问题点数:0 回复次数:3 
asp中的分頁問題

我在數據庫中做了一個叫做TEST1的表,
我想實現這個表中的內容能分頁顯示,以下是代碼:
pop.asp代碼:
<!--#include file="adovbs.inc"-->
<!--#include file="show.asp"-->
<%
IF NOT IsObject(Session("TEST_cn")) THEN
Set cn=Server.CreateObject("ADODB.Connection")
cn.Provider="sqloledb"
ProvStr="Server=DAVID;Database=TEST;UID=test;PWD=test;"
cn.Open ProvStr
Set Session("TEST_cn")=cn
ELSE
Set cn=Session("TEST_cn")
END IF
IF NOT IsObject(Session("TEST1_rs")) THEN
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open "Select * from test1",cn,adOpenStatic
Set Session("TEST1_rs")
ELSE
Set rs=Session("TEST1_rs")
END IF
%>
<HTML><head><title>信息瀏覽</title></head>
<body>
<%
rs.PageSize=5
Page=CLng(Request("PageText"))
IF Page<1 THEN Page=1
IF page>rs.PageCount THEN Page=rs.PageCount
ShowPage rs,Page
%>
<div align=center><form action="pop.asp" method="get">
<%
IF Page<>1 THEN
Response.Write"<a href=pop.asp?PageText=1 target=pa>第一頁</a>"
Response.Write"<a href=pop.asp?PageText="&(Page-1)&"target=pa>上一頁</a>"
END IF
IF Page<>rs.PageCount THEN
Response.Write"<a href=pop.asp?PageText="&(Page+1)&"target=pa></a>"
Response.Write"<a href=pop.asp?PageText="&rs.PageCount&"target=pa>最後一頁</a>"
END IF
%>
<P>輸入頁號:<input type=text name="PageText" size=3>
總頁數:<font color="RED"><%=Page%>/<%rs.PageCount%></font></p>
</form></div></body></html>
show.asp代碼:
<%
Sub ShowPage(rs,Page)
Response.Write"<center><table border=1>"
Response.Write"<tr bgcolor=#ddeeff>"
FOR i=0 TO rs.Fields.Count-1
Response.Write"<td>"&rs.Fields(i).Name&"</td>"
NEXT
Response.Write"</tr>"
Response.Write Page
rs.AbsolutePage=Page
FOR i=1 TO rs.PageSize
Response.Write"<tr>"
FOR j=0 TO rs.Fields.Count-1
Response.Write"<td>"&rs.Fields(j).Value&"</td>"
NEXT
Response.Write"</tr>"
rs.MoveNext
IF rs.EOF THEN Exit FOR
END IF
Response.Write"</table></center>"
End Sub
%>
現在出現如下錯誤:
錯 誤 碼:0x800A0400
錯誤代碼:END IF
錯誤描述:必須提供陳述式
檔案名稱:d:\web\4\show.asp
所在行號:19

請問是什麼問題.......

搜索更多相关主题的帖子: asp 
2007-07-02 17:07
shdyh977
Rank: 1
等 级:新手上路
威 望:1
帖 子:109
专家分:0
注 册:2007-5-22
收藏
得分:0 
IF NOT IsObject(Session("TEST_cn")) THEN
没写完整啊
一般是IF NOT IsObject(Session("TEST_cn"))=true THEN
2007-07-02 17:17
放任一切
Rank: 2
等 级:新手上路
威 望:4
帖 子:217
专家分:0
注 册:2007-3-22
收藏
得分:0 

const MaxPerPage=14
if booklist.eof and booklist.bof then
%>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="2">
<tr>
<td colspan="15" align="center" class="form"><strong>对不起!没有您要查找的图书!</strong></td>
</tr>
</table>
<%
response.End()
end if
booklist.MoveFirst '注意放到前面来,否则到任何页总是在第一个记录上
booklist.pagesize=MaxPerPage '设置每页最多显示多少条记录
If trim(Request("Page"))<>"" then '如果请求的页次不为空
CurrentPage= CLng(request("Page")) 'clng是转换成长整型数据类型,并赋值到当前页次上
If CurrentPage> booklist.PageCount then '如果当前页次大于总页数,则将最大页次赋值到当前页次上
CurrentPage = booklist.PageCount
End If
Else
CurrentPage= 1 '一切条件不成立,将当前页设为第一页
if session("page")<>"" then
CurrentPage=session("page")
end if
End If
totalPut=booklist.recordcount '将总记录赋值于TOTALPUT
if CurrentPage<>1 then '如果当前页数不等于第一页
if (currentPage-1)*MaxPerPage<totalPut then '如果当前页减一乘以每页最大的记录数小于总记录的话
booklist.move(currentPage-1)*MaxPerPage '相对当前记录数向后移动
dim bookmark '定义书签变量
bookmark=booklist.bookmark '将当前记录的标签赋于变量BOOKMARK上
end if
end if

dim n,k
if (totalPut mod MaxPerPage)=0 then '总记录数与每页最大记录数求余的结果为零时,则N返回整数页次,否则再加一.
n= totalPut \ MaxPerPage
else
n= totalPut \ MaxPerPage + 1
end if
Do While Not booklist.EOF and booknum<MaxPerPage
booknum=booknum+1
%>



<table width="100%" border="0" cellpadding="0" cellspacing="0" class="form">
<tr>
<form method=POST action="bookinfo.asp" name=setPagesList>
<td align="center" valign="middle" class="text_black">
<!-- 分页显示代码块 可独立使用,注意和上面分页功能代码配使用 -->
<div align="center"><br>共有<span class="STYLE1"><%=booklist.recordcount%></span>本书 
<%
k=currentPage
if k<>1 then
response.write "|<b>"+"<a href='?page=1'class='text_black'>首页</a></b>| "
response.write "<b>"+"<a href='?page="&cstr(k-1)&"&px="&px&"'class='text_black'>上一页</a></b>| "
else
Response.Write "|首页|上一页|"
end if
if k<>n then
response.write "<b>"+"<a href='?page="&cstr(k+1)&"'class='text_black'>下一页</a></b>| "
response.write "<b>"+"<a href='?page="&cstr(n)&"'class='text_black'>尾页</a></b>| "
else
Response.Write "下一页|尾页|"
end if
%>
第<span class="STYLE1"><%=currentpage%>/<%=n%></span>页
<input name=page type=text class="loginfrom" value="<%= currentpage %>" size=5 maxlength=10>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#"></a></div> </td>
</form>
</tr>
</table>

[此贴子已经被作者于2007-7-2 17:19:04编辑过]

2007-07-02 17:18
david0620
Rank: 1
等 级:新手上路
帖 子:97
专家分:0
注 册:2007-3-13
收藏
得分:0 
我上面共有pop.asp和show.asp兩個文件
現在提示的是show.asp文件有問題,不知道怎麼才能搞好啊
現在出現如下錯誤:
錯 誤 碼:0x800A0400
錯誤代碼:END IF
錯誤描述:必須提供陳述式
檔案名稱:d:\web\4\show.asp
所在行號:19
2007-07-03 07:55
快速回复:asp中的分頁問題
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.027296 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved