ASP对很长的文章做分页输出
阅读: 1 评论: 0 作者: eng308 发表于 2010-02-03 10:33 原文链接
利用统计文章字数,然后达到一定字数就截断输出,但是分页的内容就会在莫名其妙的地方截断,不是很友好。
很简单,在要截断的地方附近找下面的符号:
;’”?。!;'".!
如果后面存在<p>或<br>就分页。主要是要研究文章的格式。
<%
if Request.ServerVariables("Content_Length") > 0 then
content = Request.Form("textarea1")
PageLength = 1000 '每页字数
CLength = Len(content)
PageCount = Int(Clength/PageLength) + 1 '计算页数
dim PageArray
redim PageArray(PageCount)
Seperator = Array(chr(13),chr(10),"。","!","?",";",",","”","’") '分隔符
PageArray(0) = 0
Pos = 0
for j=0 to ubound(Seperator)
Pos = instr(PageArray(i)+900,content,Seperator(j)) 'PageArray(i)+900 附近位置是100字,1-999可调
while Pos > 0 and Pos < (i+1)*PageLength and Pos > i*PageLength
PageArray(i) = Pos
Pos = instr(Pos+PageLength,content,Seperator(j))
wend
if PageArray(i) > 0 then
Response.Write "0:i| "&PageArray(i)&"<br>"&j&":j"&Seperator(j)&"<br>"
j = j + ubound(Seperator) + 1
end if
next
for i=1 to PageCount-1
PageArray(i) = 0
Pos = 0
for j=0 to ubound(Seperator)
Pos = instr(PageArray(i-1)+950,content,Seperator(j))
while Pos > 0 and Pos < (i+1)*PageLength and Pos > i*PageLength
PageArray(i) = Pos
Pos = instr(Pos+PageLength,content,Seperator(j))
wend
if PageArray(i) > 0 then
Response.Write i&":i| "&PageArray(i)&"<br>"&j&":j"&Seperator(j)&"<br>"
j = j + ubound(Seperator) + 1
end if
next
next
output = mid(content,1,PageArray(0))
output = replace(output,chr(13),"<br>")
Response.Write "<br><br>第1段<br>"
Response.Write output
for i=1 to PageCount-2
output = mid(content,PageArray(i-1)+1,PageArray(i)-PageArray(i-1))
output = replace(output,chr(13),"<br>")
Response.Write "<br><br>第"&i+1&"段<br>"
Response.Write output
next
'最后一段的输出就没写了
else
%>
<FORM action="" method=POST id=form1 name=form1>
<TEXTAREA rows=70 cols=120 id=textarea1 name=textarea1>
</TEXTAREA>
<INPUT type="submit" value="Submit" id=submit1 name=submit1>
</FORM>
<%end if%>
评论: 0 查看评论 发表评论
最新新闻:
· 传盛大密签王菲 春晚实为游戏电影造势(2010-02-06 12:28)
· 商业周刊:乔布斯iPad志在云计算(2010-02-06 12:27)
· 十大最佳Ajax教程(2010-02-06 12:21)
· 微软下周不修复新IE漏洞(2010-02-06 12:18)
· Firefox 4.0演示视频曝光(2010-02-06 12:10)
编辑推荐:ASP.NET MVC 2 RC 2 发布
网站导航:博客园首页 个人主页 新闻 闪存 小组 博问 社区 知识库
转载于:https://www.cnblogs.com/tanshuicai/archive/2010/02/03/1664902.html
ASP对很长的文章做分页输出相关推荐
- ASP新闻分页,将一篇过长的文章分页,生成静态页面
老话题,新问题:新闻分页,将一篇过长的文章分页,生成静态页面. 问题来源于制作大型新闻文章管理系统,往往碰到文章超长的情况. 现在将他们生成静态页面没有什么问题,但是如何将它们按照某种规则,生成编号为 ...
- php分页类 seo,HTML_写一个对搜索引擎友好的文章SEO分页类,使用jsp/php/asp等动态程序生成 - phpStudy...
写一个对搜索引擎友好的文章SEO分页类 使用jsp/php/asp等动态程序生成的页面如何对搜索引擎友好呢?你可能想使用url_rewrite.不过,最好还是让同一个网址在任意时间对应的页面内容都是一 ...
- 华为boss力荐公司高层看的一篇文章,很长很经典 很值得一看
今天是 22 岁的最后一天.几个月前,我从沃顿商学院毕业,用文凭上"最高荣誉毕业"的标签安抚了已经年过半百的老妈,然后转头辞去了毕业后的第一份工作,跟一家很受尊敬的公司.还有 15 ...
- 很好的文章 藏 如何在30岁前年薪超过30万
如何在30岁前年薪超过30万 有不少朋友发邮件给我,向我请教如何学习.NET,又或者是想拜我为师,长期进行交流学习.很遗憾,由于时间有限,这些邮件我都没有回复.但我确实想帮一帮这些朋友们,所以我觉得还 ...
- 机器学习漫谈:还有很长的路要走
来源:王宏琳科学网博客 链接地址:http://blog.sciencenet.cn/blog-3005681-1285948.html 人工智能已经成为大数据.机器人和物联网等新兴技术的主要驱动力 ...
- 耗时很长的服务器端事件中让客户端得到中间过程信息的合理解决方案
需求:B/S结构的系统里,用户点一个按钮系统开始发送上千封邮件,要求把发送信息(发送成功数,失败数,剩余数量...)动态实时的反馈给客户. 分析和实施过程当中遇到的问题: 一:最低级的问题 由于客户催 ...
- 专访黄勇:Java在未来的很长一段时间仍是主流
专访黄勇:Java在未来的很长一段时间仍是主流 发表于2015-09-06 13:18| 11640次阅读| 来源CSDN| 70 条评论| 作者钱曙光 社区文旦专访黄勇架构框架JavaJava ...
- 【AI杂谈】从一篇参考文献比正文还长的文章,杂谈深度学习综述
欢迎来到专栏<AI杂谈>,顾名思义就是说一些比较杂的有意思的东西了,任何东西都有可能. 今天首先介绍一篇文章,2014年的一篇深度学习综述,<Deep learning in Neu ...
- 很长很真实!但会对你有所帮助的(关于职业规划)
在担任公司高管的几年间,我面试过数以百计的各个层面的员工,其中最让我感到遗憾的一个现象就是很多人有着非常好的素质,甚至有的还是名校的毕业生,因为不懂得去规划自己的职业,在工作多年后,依然拿着微薄的薪水 ...
最新文章
- Android异步消息处理机制 全解析
- ds查找—二叉树平衡因子_面试官让我手写一个平衡二叉树,我当时就笑了
- 出国留学想申请国家留学基金委的奖学金?传说中的csc! 从这里入手就对了!
- linux 产生0~100内的随机数
- 西南交大计算机组成原理考试大纲,西南交大计算机组成原理实验二七段LED数码管显示译码器的设计.docx...
- 读懂操作系统之虚拟内存(一)
- php 前端模板 yii,php – Yii2高级模板:添加独立网页
- 计算机设计大赛作品评语,第九届大学生短片大赛获奖作品评语
- vs 2005 多語言
- 上行和下行是什么意思_为什么无线通信需要同步?
- vlookup+match高亮显示行
- 数据库操作(不断更新)
- 华农c语言期末试卷答案,华南农业大学2013学年第1学期程序设计(C语言)期末考试试卷(A卷)...
- 如何解决卸载驱动之后又重新装的问题
- HTTP长连接与短链接以及推送技术原理
- 【通俗理解】显著性检验,T-test,P-value
- 一键开关Oracle服务
- 多模模块接单模光纤跳线/单模模块接多模光纤跳线
- 底层小程序员 练手做一个网站不小心赚了几十亿
- 从万达百货到家乐福中国,苏宁如何快速消化“大块头”?