显示字符串前10个字符并在结尾处添加“……”

<%=left(string,20)&"......"%>

取指定长度的字符串,超出部份用..代替

<%
function GetString(str,strlen)
dim l,t,c, i
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
GetString=left(str,i)&".."
exit for
else
GetString=str&" "
end if
next
end function
%>

例如执行
response.write GetString("我们都是中国人民",12)
则网页上输出
我们都是中国..