关闭

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

367人阅读 评论(0) 收藏 举报

<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都可以根据看书的需要设定.....

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:19768次
    • 积分:318
    • 等级:
    • 排名:千里之外
    • 原创:9篇
    • 转载:10篇
    • 译文:0篇
    • 评论:6条