Question

asp中如何实现长文章自动分页显示

asp中发表的文章太长，有的几千上万字，把页面拉得很长很长，既不美观也不方便浏览，如何实现让超过一定字数的文章自动分页呢

Answer 1

<%nr=文章内容page_size=每页截取的文字数目if trim(request("page"))<>"" then '读取当前页面的页码page=cint(trim(request("page")))elsepage=1end if'开始计算文章分页nr_cd=len(nr) '首先算出文章一共有多少个文字if nr_cd mod page_size <>0 then '计算一共多少页page_count=int(nr_cd/page_size)+1elsepage_count=int(nr_cd/page_size)end ifif page=1 then '计算本页文章从第几个文字开始page_start=1elsepage_start=((page-1)*page_size)+1end ifpage_end=page_start+page_siz-1if page<>page_count then '开始计算本页提取文字的内容by_nr=mid(nr,page_start,page_end)elseby_nr=mid(nr,page_start)end ifresponse.write("本页内容为：
"&ny_nr&"")'开始分页%> 要学会做网站先要学会采集网站内容，推荐使用火车头，有免费版和收费板看你需要那些功能而已！你可以到火车头官方网站注册个帐号然后学习采集。..火车头官方网站是 http://bbs.locoy.com/?fromuid=81707 <% function word_pagination(table,content,wordcount) dim wordPage,action,ami_wordCount,ami_wordSum,ami_wordMod,ami_pageCount,query, ami, ly, tempwordPage=request.QueryString("wordPage") '获得wordPageaction = " http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")'获得网页地址query = Split(Request.ServerVariables("QUERY_STRING"), "&") '获得参数,并分解参数For Each ly In query ami = Split(ly, "=")'对参数进行分析If StrComp(ami(0), "wordPage",vbTextCompare) <> 0 Then '若参数排除本函数生成的参数temp = temp & ami(0) & "=" & ami(1) & "&" '生成参数列表(ami=1)End Ifnextset rs=server.CreateObject("adodb.recordset")sql="select * from "&table&" " 'table 表明rs.open sql,conn,1,1ami_content=rs(""&content&"") 'content 进行分页内容的字段名ami_wordCount=wordCount '每页字数ami_wordSum=len(ami_content) '计算总字数ami_wordMod=ami_wordSum mod ami_wordCount '计算最后一页字数ami_pageCount=int(ami_wordSum/ami_wordCount)'计算页数,总页数=ami_pagecount+1if wordPage="all" then '单页显示值wordPage=0end ifif isEmpty(wordPage)=true then '分析如wordPage无参数传来,wordpage则为首页wordPage=1else wordPage=int(wordPage) '否则等于参数值,并intend if if wordPage=0 then '判断参数的几种类型,并根据参数的类型进行分页ami_content=ami_contentelseif wordPage<ami_pageCount+1 and wordPage>0 thenami_content=mid(ami_content,ami_wordCount*(wordPage-1)+1,ami_wordCount)elseif wordPage=ami_pageCount+1 thenami_content=mid(ami_content,ami_wordCount*ami_pageCount+1,ami_wordMod)elseif wordPage>ami_pageCount+1 and wordPage"for i=1 to ami_pageCount+1 '页数展示response.Write "["&i&"]"nextresponse.Write "[单页显示]"rs.closeset rs=nothingend function调用函数的代码是 <%call word_pagination("amily","content",600)%>

Answer 2

设置到第N个字符后结束未结束的HTML标签然后把前后切割成N段然后设置翻页参数，来调用相应的段落

Answer 3

有自动分页和手动，自己一般按安节长度，手动是在原码中加入一个特殊有别于其它的代码，在分页时用截取的方式，分页！

Answer 4

DataGredview控件 点击“启用分页”