我做的一个分页程序,各位帮忙看看是错在哪里了?

remember2000 2004-08-06 05:30:51
1、分页显示

<%
dim MaxPerPage
dim totalPage
dim page
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
%>

<%
Dim jobCnn
Dim jobStr
Dim jobRs
set jobCnn=Server.CreateObject("ADODB.Connection")
jobCnn.Open MM_teamtekdata_STRING //MM_teamtekdata_STRING已经在别的文件中获取路径的
jobStr="select * from job"
set jobRs=Server.CreateObject("ADODB.Recordset")
jobRs.open jobStr,jobCnn,1,1
if jobRs.eof and jobRs.bof then
response.write "没有任何人才信息"
else
jobRs.pagesize=2
MaxPerPage=jobRs.pagesize
totalPage=jobRs.pagecount
if CurrentPage<1 then
CurrentPage=1
end if
if CurrentPage>totalPage then
CurrentPage=totalPage
end if
if CurrentPage>1 then
jobRs.move (CurrentPage-1)*MaxPerPage
dim bookmark
bookmark jobRs.bookmark
end if

dim i
i=1
do while not jobRs.eof and i<=2
%>
…………中间插入要显示的部分
<% i=i+1 //循环部分!
jobRs.movenext
loop
jobRs.close
jobCnn.close
set jobRS=nothing
set jobCnn=nothing
%>

----------------------下面部分是翻页显示代码
<a href="jobexample.asp?page=1">首页  </a>
<a href="jobexample.asp?page=<%=CurrentPage-1%>">上一页  </a>
<a href="jobexample.asp?page=<%=CurrentPage-1%>">下一页  </a>
<a href="jobexample.asp?page=<%=totalPage%>">末页</a>

提示的错误为:错误类型:
Microsoft VBScript 编译器错误 (0x800A03FB)


请帮忙解决一下!!谢谢
...全文
60 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
街头小贩 2004-08-06
楼上贴的哪贴不错!好好研究一下
回复
sinusoid 2004-08-06
http://search.csdn.net/Expert/topic/2197/2197562.xml?temp=.7916223
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-08-06 05:30
社区公告
暂无公告