|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
由于ASP还是一种Script语言所没除了大量使用组件外,没有办法提高其工作效率。它必须面对即时编绎的时间考验,同时我们还不知其背后的组件会是一个什么样的状况;分页使用统计文章字数,然后到达必定字数就截断输入,可是分页的内容就会在稀里糊涂的中央截断,不是很友爱。
很复杂,在要截断的中央四周找上面的标记:
;’”?。!;".!
假如前面存在<p>或<br>就分页。次要是要研讨文章的格局。
<%
ifRequest.ServerVariables("Content_Length")>0then
content=Request.Form("textarea1")
PageLength=1000每页字数
CLength=Len(content)
PageCount=Int(Clength/PageLength)+1盘算页数
dimPageArray
redimPageArray(PageCount)
Seperator=Array(chr(13),chr(10),"。","!","?",";",",","”","’")分开符
PageArray(0)=0
Pos=0
forj=0toubound(Seperator)
Pos=instr(PageArray(i)+900,content,Seperator(j))PageArray(i)+900四周地位是100字,1-999可调
whilePos>0andPos<(i+1)*PageLengthandPos>i*PageLength
PageArray(i)=Pos
Pos=instr(Pos+PageLength,content,Seperator(j))
wend
ifPageArray(i)>0then
Response.Write"0:i |
|