社区
ASP
帖子详情
新闻文本分页代码,谁有,给我抄抄,谢谢拉
robina
2004-09-01 09:56:29
我做动态的新闻,怎么做,才能让一个文章过长的自动生成“上一页”“下一页”啊,有代码吗,给我抄抄
...全文
123
3
打赏
收藏
新闻文本分页代码,谁有,给我抄抄,谢谢拉
我做动态的新闻,怎么做,才能让一个文章过长的自动生成“上一页”“下一页”啊,有代码吗,给我抄抄
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
zhushizu
2004-09-01
打赏
举报
回复
是呀,我也是想了好久。。关注中。。。
zhushizu
2004-09-01
打赏
举报
回复
是呀,我也是想了好久。。关注中。。。
vbcjpb
2004-09-01
打赏
举报
回复
对一篇长文章做到完美的分页输出
利用统计文章字数,然后达到一定字数就截断输出,但是分页的内容就会在莫名其妙的地方截断,不是很友好。
很简单,在要截断的地方附近找下面的符号:
;’”?。!;'".!
如果后面存在
或
就分页。主要是要研究文章的格式。
<%
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)&"
"&j&":j"&Seperator(j)&"
"
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)&"
"&j&":j"&Seperator(j)&"
"
j = j + ubound(Seperator) + 1
end if
next
next
output = mid(content,1,PageArray(0))
output = replace(output,chr(13),"
")
Response.Write "
第1段
"
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),"
")
Response.Write "
第"&i+1&"段
"
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%>
2015电子设计大赛综合测评简单做一做,
谢谢
拉
~江南七少路过
250khz做不出来,因为是基于LM324这个运放,实在不行,我水平也有限,海涵。贱笑了
锁相环matlab
代码
-Brooks-Shera-GPSDO:BrooksShera(W5OJM)GPSDO的Simulink模型(和其他信息
锁相环matlab
代码
布鲁克斯-谢
拉
-GPSDO Brooks Shera(W5OJM)GPSDO的Simulink模型(和其他信息)。 这些文件与我有关此主题的博客文章一起发布,位于: 该存储库包含我的Brooks Shera GPSDO的Simulink模型(.SLX文件),该模型是从他的PIC软件的1.28版中的注释和
代码
创建的。 该仿真模型是使用MATLAB版本R2018B创建的。 我还提供了一份Shera PIC
代码
的打印输出扫描的PDF(修订版1.28)。 请随时根据我的模型验证此源
代码
。 (我为PDF致歉,我的实际源
代码
文件副本很久以前就消失了)。 我提供了两个Excel .XLSX文件,其中包含1个PPS抖动信息。 第一个文件是Quectel L76 GPS接收器的抖动,另一个文件是Trimble Resolution T GPS接收器的抖动。 可以在Simulink模型中使用这两个文件来模拟PLL对抖动噪声的响应。 请注意,我在方程式,假设,图形或解释中可能犯了一个错误。 如果您发现任何您认为有误的内容或任何令人困惑的内容,请随时通过以下方式与我联系: jca1955
NET课程设计之电子商城
.NET课程设计系列——不想做课程设计的看过来啊,现在免费奉献给大家,不要忘了给个评分哦,
谢谢
拉
!!
DataStructure-BeautyOfAlgorithm:《数据结构与算法之美》的学习笔记和python
代码
实现
本文档是的学习笔记和个人编写的python实现的相关
代码
。 在线阅读地址: 如果本文档对您有用,期待您点击右上角Star :star: 给予关注!
谢谢
拉
! 还可以分享给您身边更多的小伙伴!:face_blowing_a_kiss: 若你有什么更好的建议,欢迎提交pull或issue进行反馈,每篇文档本身也支持评论,评论后我都可以在issue或原文档页面看到。 本文档与原课程的目录会有点差别,本人进行了一些合并和重新编号,新排版的目录为: 入门篇 基础篇 15.递归树 16.堆 17.图的表示 18.深度和广度优先搜索 19.字符串匹配基础 20.Trie树 21.AC自动机 22.贪心算法 23.分治算法 24.回溯算法 25.动态规划 高级篇 26.拓扑排序 27.有权图的应用:最短路径 28.位图&布隆过滤器 29.B+树 30.索引 31.并行算法 实战篇 32.Redis用到的数据结构 33.搜索引擎的理论基础 34.高性能队列D
浅析谢
拉
图书馆学教育理论论文-doc新版文档.docx
浅析谢
拉
图书馆学教育理论论文-doc新版文档.docx
ASP
28,409
社区成员
356,968
社区内容
发帖
与我相关
我的任务
ASP
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
复制链接
扫一扫
分享
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章