各位大侠,帮我改下了!!!

王朝知道·作者佚名  2011-05-17
窄屏简体版  字體: |||超大  
 
分類: 電腦/網絡 >> 程序設計 >> 其他編程語言
 
問題描述:

为了找个分页的完整代码,送了百多分了。是这样的,我把长文章放在,一个字段body里我想实现每页只分500个字,行也行。

<%set rs=server.createobject("adodb.recordset")

sql="select * from itarticle where id="&id&""

rs.open sql,conn,1,1

rs.pagesize=500

pagecount=rs.pagecount

page=int(request.QueryString ("page"))

if page<=0 then page=1

if request.QueryString("page")="" then

page=1

end if

rs.AbsolutePage=page

%> <%for i=1 to rs.pagesize%>

<%if rs.EOF then

exit for

end if%>

<%=rs("title")%>

<%=rs("body")%>

<%rs.movenext

next

%>下面开始显示第几页******

**

但是无论我改rs.pagesize=500等于多少它都不变的,我想它只是显示多少条记录的吧,可以可以改成显示多少个字符呢,如果改不了可不可以发个完整的给我啊。都快没分了,只送上这么多了。在线等!!

參考答案:

你这样用的for循环只是显示多少条信息,并非显示字数!

应运用mid()函数,该函数是从字符串指定的字符数起按照制定的长度取出字符。

改为:

<%set rs=server.createobject("adodb.recordset")

sql="select * from itarticle where id="&id&""

rs.open sql,conn,1,1

rs.pagesize=500

pagecount=rs.pagecount

page=int(request.QueryString ("page"))

if page<=0 then page=1

if request.QueryString("page")="" then

page=1

list=(page-1)*500+1

end if

rs.AbsolutePage=page

%>

<%=rs("title")%>

<%=mid(rs("body"),list,500)%>

下面开始显示第几页******

**

希望能帮到你!

小贴士:① 若网友所发内容与教科书相悖,请以教科书为准;② 若网友所发内容与科学常识、官方权威机构相悖,请以后者为准;③ 若网友所发内容不正确或者违背公序良俗,右下举报/纠错。
 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航