关于Const MaxPerPage=？？

ckxp 2003-04-23 12:10:06

这是分页中的问题，目的是自定义每页显视多少条记录：
dim intbook
intbook=12
Const MaxPerPage=intbook
......略.....

为什么程序执行时总提示出错，出错信息：
Const MaxPerPage=intbook _ '//这里错误

请高手帮忙

...全文

60 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

china520 2003-04-23

打赏
举报

Const 常量的定义
MaxPerPage=intbook

caoshangfei 2003-04-23

打赏
举报

MaxPerPage=intbook不要const

<title><%=webname%>--新闻快讯</title> <% Dim Intcatid,strOrder,strcat,strcategory Intcatid = 0 Intcatid=SafeRequest("catid",1) strcat = "<a href=chknews.asp>综合新闻</a>" set rs=server.CreateObject("adodb.recordset") If Intcatid <> 0 Then rs.open "select category from category where categoryid="&Intcatid&" ",conn,1,1 strcategory = trim(rs("category")) rs.close strcat = strcat &"－><a href=chknews.asp?catid="&Intcatid&" target=_blank>"& strcategory &"</a> " Else End If %> <TABLE WIDTH="780" BORDER="0" CELLSPACING="0" CELLPADDING="0" class=table-zuoyou align="center" BGCOLOR=<%=bgclr2%> background="<% = webimg16 %>"> <TR><TD HEIGHT="30" bgcolor="<% = bgclr1 %>" width="75" class=table-xia> >您的位置：</TD> <td class=table-xia> <a href="index.asp">><%=webname%></a>－><a href="chknews.asp">><% = strcat %></a></td></TR></table> <% Const MaxPerPage=20 dim totalPut dim CurrentPage dim TotalPages dim j dim sql if Not isempty(SafeRequest("page",1)) then currentPage=Cint(SafeRequest("page",1)) else currentPage=1 end if If Intcatid = 0 Then rs.open "select newsid,newsname,newscontent,addname,adddate from news Order By adddate desc",conn,1,1 Else rs.open "select newsid,newsname,newscontent,addname,adddate from news Where categoryid = "& Intcatid &" Order By adddate desc ",conn,1,1 End If if rs.eof And rs.bof then Response.Write " 您还没有添加新闻！" else totalPut=rs.recordcount if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPer

//调用例子。上面的函数我是封装在pagefunction.asp文件里面的注明：在引入pagefunction.asp文件之前的也是可以封装成一个固定的文件里面。然后通过引入，调用对应的函数的。

//函数是代码重用的最基础的封装。练习多了，代码敲多了，很多基本的功能，都可以逐步封装成为自己的库代码
 <%

 Const MaxPerPage=1

下面是文章显示的代码:信息列表dim conndim connstrdim totalPutdim CurrentPagedim TotalPagesdim i,jdim sqldim rson error resume next'打开数据库set rs=server.createobject("adodb.recordset")'定义每页文章显示数const MaxPerPage=10if no...

可以套用，测试通过const MaxPerPage=10records=200pages=records/maxperpageif pagescurrentpage=cint(request("currentpage"))if currentpage="" or currentpage currentpage=1 if currentpage>pages then currentpag

dim currentpage 定义当前页dim filename 文件名Const MaxPerPage=20 每页显示的记录个数dim totalnumber 记录总数filename="showpages.asp"totalnumber=200 设置记录总数为200if not isempty(request("page")) thencurrentPage=cint(reques

ASP

28,409

社区成员

356,968

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章