当前位置: 首页 > 图文教程 > 网络编程 > ASP > 如何将长的标题用省略号收尾

ASP
ASP正则表达式技巧
ASP Access实现网站计数器(访问量)
ASP新闻分页,将一篇过长的文章分页,生成静态页面
一些关于asp 购物车的想法
一个sql查询器,自动画表格填字段
ASP实现文件直接下载的代码
把网页中的(电话,qq等数字)生成图片的ASP程序
asp长文章用分页符来分页显示
Asp函数介紹(37个常用函数)
ASP中的面向对象类
分页实现方法的性能比较
asp ajax跨域提交数据
asp修改文件和文件夹的名字的代码
ASP 多关键词查询实例代码
asp被杀毒软件误删的解决方法
asp 多关键词搜索的简单实现方法
asp 根据IP地址自动判断转向分站的代码
asp dictionary对象的用法
ASP 千万级数据分页的存储过程
ASP隐藏真实文件的下载功能实现代码

ASP 中的 如何将长的标题用省略号收尾


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-13   浏览: 163 ::
收藏到网摘: n/a

从数据库中提取长长的文章,总是有碍网页的排版布局。
所以,想固定地提取一部分字符,然后后面有……替代。
1,原理:
判断文章的长度是否超过规定的长度,若超过则只显示规定长度的大学,否则完整显示。
2,涉及函数:
len():返回字符串长度或者变量的字节长度。
点击运行可以看到效果:
[Ctrl+A 全选 提示:你可先修改部分代码,再按运行]

left():截取一个字符串的前部分
点击运行可以看到效果:
[Ctrl+A 全选 提示:你可先修改部分代码,再按运行]

3,主要程序:判断内容长度是否大于给定值,据结果做相应操作
点击运行可以看到效果:
[Ctrl+A 全选 提示:你可先修改部分代码,再按运行]

4,ASP中应用
以上是在客户端脚本调试,和ASP也是大同小异:最主要的是函数功能。


<%
text=rs("content") '将数据库字段值赋到某变量上
i=10 '定义固定大小
if len(text)>i then '如果文本长度大于给定的值
text=left(text,i) '则提取前段的i位的字符串
response.write (text&"...")
else
response.write (text)
end if
%>


5,为了方便,做成函数


<%
function conleft(content,i)
if len(content)>i then
content=left(content,i)
response.write (content&"...")
else
response.write (content)
end if
end function
%>


以上为函数,下面就可以直接调用。


<%call conleft(rs("content"),10)%>


OK,相信以后遇到这些问题应该是NO PROBLEM

为了解决中英文截取的问题,建议大家使用如下函数:


Function gotTopic(str,strlen)
if str="" then
gotTopic=""
exit function
end if
dim l,t,c, i
str=replace(replace(replace(replace(str," "," "),""",chr(34)),">",">"),"<","<")
l=len(str)
t=0
for i=1 to l
c=Abs(Asc(Mid(str,i,1)))
if c>255 then
t=t+2
else
t=t+1
end if
if t>=strlen then
gotTopic=left(str,i) & "…"
exit for
else
gotTopic=str
end if
next
gotTopic=replace(replace(replace(replace(gotTopic," "," "),chr(34),"""),">",">"),"<","<")
End Function