怎样显示缩略的标题 asp

'//字符串截取函数（按半角）
'//flag—1为加省略号，0不加
Function cutstr(str,length,flag)
Dim l,t,c,i
l=Len(str)
t=0
if l>=1 then
For i=1 To l
c=AscW(Mid(str,i,1))
If c<0 Or c>255 Then t=t+2 Else t=t+1
IF t>=length Then
if flag=1 then
cutstr=left(str,i)&"..."
Exit For
else
cutstr=left(str,i)
Exit For
end if
Else
cutstr=str
End If
Next
else
cutstr=""
end if
End Function

使用例子 <%=cutstr("字符串",要截取的字数,是否显示省略号)%>

给你个例子自己去引用变量，没有下面那么多代码，太夸张了。
if len(proxx)>66 then
proxx=left(proxx,66) & "..."
else
proxx=proxx
end if
主要的地方是在
if len(proxx)>5 then
proxx=left(proxx,5) & "..."
意思判断proxx变量里是否大于5个字符,如果是就把proxx变量从左截到5个字符再连接这个...
els
proxx=proxx意思是如果不成立就是这个变量小于5个字符，变量还是以前的变量，保持不变。
讲的很清楚也。