Question

ASP实现将长的标题用省略号收尾。。怎么做，会的进来~

新新手学习

判断中文和英文的代码
Function cutStr(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 cutStr=left(str,i)&"..." exit for else cutStr=str end if next end Function

我的记录集是这样的
<%=(display1.Fields.Item("heading").Value)%>
要超过10个字符的话就用省略好代替，那段代码怎么修改~~
另外有个代码我会弄，上面那个我不会，下面的我会，到底怎么弄
dim TI
TI=display1("heading")
if Len(TI)>5 or Len(TI)=5 then
TI=left(TI,5)&"..."
end if
%><%=TI%>

我说的是这段
Function cutStr(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 cutStr=left(str,i)&"..." exit for else cutStr=str end if next end Function
怎么改
别整别的~~那些我会

Answer 1

title="aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
if len(title)>10 then
response.write(left(title,10)&"……")
end if

Answer 2

<%=left((display1.Fields.Item("heading").Value),10)&"..."%>