一起飞扬de博客

更多文章请访问->http://www.floatfly.cn

ASP中将过长内容显示为"..."

<head>中加入的内容

<%
Public Function CutStr(Str,LenNum)
 Dim P_num
 Dim I,X
  If Len(Str)<=LenNum Then
  Cutstr=Str
  Else
  P_num=0
  X=0
   Do While Not P_num > LenNum-2
   X=X+1
    If Asc(Mid(Str,X,1))<0 Then
    P_num=Int(P_num) + 2
    Else
    P_num=Int(P_num) + 1
    End If
   Cutstr=Left(Trim(Str),X)&"…"
   Loop
  End If
End Function
%> 

body中调用:

<%=CutStr(rs("content"),300)%>

content与300都可以根据看书的需要设定.....

阅读更多
文章标签: asp function
想对作者说点什么? 我来说一句

select项内容过长解决办法

2010年04月20日 2KB 下载

没有更多推荐了,返回首页

不良信息举报

ASP中将过长内容显示为"..."

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭