怎样设置内容分页显示呢，一篇文章字数太多了

怎样设置内容分页显示呢，一篇文章字数太多了

在字数不减少、页面不变大的情况下，采取如下措施可减少页数。
1、减小页边距。

2、减小页眉页脚和页边的距离。

3、缩小字号，

4、缩小行距、段落间距、取消网格对齐

5、采取“孤行控制”。

<% function word_pagination(table,content,wordcount) dim wordpage,action,ami_wordcount,ami_wordsum,ami_wordmod,ami_pagecount,query, ami, ly, temp wordpage=request.querystring("wordpage") '获得wordpage action = "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 if next set rs=server.createobject("adodb.recordset") sql="select * from "&table&" " 'table 表明 rs.open sql,conn,1,1 ami_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+1 if wordpage="all" then '单页显示值 wordpage=0 end if if isempty(wordpage)=true then '分析如wordpage无参数传来,wordpage则为首页 wordpage=1 else wordpage=int(wordpage) '否则等于参数值,并int end if if wordpage=0 then '判断参数的几种类型,并根据参数的类型进行分页 ami_content=ami_content elseif wordpage0 then ami_content=mid(ami_content,ami_wordcount*(wordpage-1)+1,ami_wordcount) elseif wordpage=ami_pagecount+1 then ami_content=mid(ami_content,ami_wordcount*ami_pagecount+1,ami_wordmod) elseif wordpage>ami_pagecount+1 and wordpage<0 then ami_content="非法参数，请返回" end if response.write ami_content response.write " " for i=1 to ami_pagecount+1 '页数展示 response.write "["&i&"]" next response.write "[单页显示]" rs.close set rs=nothing end function 调用函数的代码是 <%call word_pagination("amily","content",600)%>