ASP实现将长的标题用省略号收尾(页 1) - 网站建设 - 我爱电脑技术论坛打造最好的电脑自学交流论坛

黑侠发表于 2008-4-1 10:39

ASP实现将长的标题用省略号收尾

数据库中提取长长的文章，总是有碍网页的排版布局。 &yO mr!q-x`
所以，想固定地提取一部分字符，然后后面有……替代。 o^M*YM

1、原理：
'~7hwz&S
判断文章的长度是否超过规定的长度，若超过则只显示规定长度的大学，否则完整显示。
_@u{)Rb6z
2、涉及函数： 1Af [T6C3z

len()：返回字符串长度或者变量的字节长度。
TQ+tP3H2L\8TY#B\
以下为引用的内容：
<script language="vbs">N"Q7y^(BP#d2[ew
cnbruce="my name is cnbruce"6b#x,f2{Bw
len_cn=len(cnbruce)
alert(len_cn)
</script>

^_%F!m2P f.a
[Ctrl+A 全部选择提示：你可先修改部分代码，再按运行]
MB$d%z"{Iu.d T,I
[Ctrl+A 全部选择提示：你可先修改部分代码，再按运行]

left()：截取一个字符串的前部分 'r4^|:U{5z?L
以下为引用的内容：
<script language="vbs">
cnbruce="my name is cnbruce"(I8Nv{+D$?:Y
left_cn=left(cnbruce,10)
alert(left_cn)`~g@c3t
</script>

-A%c5V Tfm7l%@&g
[Ctrl+A 全部选择提示：你可先修改部分代码，再按运行] rc VN"m/t*_ko
8^w,mpaP2G(G4I
3、主要程序：判断内容长度是否大于给定值，据结果做相应操作

以下为引用的内容：faat$pE
<script language="vbs">
text="123 4567 8fds90 abcde fghxcfv"X5W]#FH;_.Kt
i=10
if len(text)>i then '如果文本长度大于给定的值
  text=left(text,i)    '则提取前段的i位的字符串 K&M6U;`F5v/FG6p|
alert (text&"...")'Y%r {dQ9W
else
alert (text){R@\K(})|,P
end if1E!q*^5@u0V ~
</script>

[Ctrl+A 全部选择提示：你可先修改部分代码，再按运行] -JD%uKu%N fM
#L;d(}I"pAj&i
4、ASP中应用
"e2M9C1s`p*v\
以上是在客户端脚本调试，和ASP也是大同小异：最主要的是函数功能。 1]$nAOr5I
以下为引用的内容：
<%
text=rs("content")  '将数据库字段值赋到某变量上
i=10                   '定义固定大小})d"Wv4xqX8R$Hb,M
if len(text)>i then '如果文本长度大于给定的值FU h6pgE[8{'[ Z
text=left(text,i)    '则提取前段的i位的字符串
response.write (text&"...")o~(bp5J;Hh g(X
else
response.write (text)
end if
%>

5、为了方便，做成函数
以下为引用的内容：
<%dK)c#FY EJt
function conleft(content,i)
if len(content)>i then
content=left(content,i) TA-j)XA M8O
response.write (content&"...")Z,krF?Aa
else
response.write (content)
end if
end functionJ ~^+M`$t dw.c
%>
bu.Sn%g*OC@`6o x&}
lc?x6SK9PwB'I
以上为函数，下面就可以直接调用。 B/pG0N-H*N'U$@l)TH
6e(^1f1J$~.Y|,p@
<%call conleft(rs("content"),10)%> ?xk3Ly+O8^
F(`cr3L*k.[S6] V#MH
OK，相信以后遇到这些问题应该是NO PROBLEM 'x!\!DL'@3Ne;U4O

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

以下为引用的内容：
Function gotTopic(str,strlen)
if str="" then
      gotTopic=""N4G.hMaE2`F
      exit function1q cr(\r`L~
end if3J,X2b xC Rh
dim l,t,c, i k@Jm/a
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))) ?K2fXvh1b
%a+LLt,IK
oYE D$LRA
      if c>255 thenPiN(u:J}@n
         t=t+2
      elseP4ta/WW?:QW
         t=t+1
      end ifNoI)d(f|y'|
      if t>=strlen then|#LD%ga7lp
         gotTopic=left(str,i) & "…"
         exit for
      elsei#u3C z5U+F`M~ [@ c
         gotTopic=strB5vDLUW&d
      end if
next`Ts{'L,|$B
gotTopic=replace(replace(replace(replace(gotTopic," "," "),chr(34),"""),">",">"),"<","<") End Function Chinaz

页: [1]

我爱电脑技术论坛's Archiver

ASP实现将长的标题用省略号收尾