这个ASP代码怎样写？

来源：百度知道 编辑：UC知道 时间：2024/05/15 03:49:01
str="北京欢迎你"

现在想实现的结果是 如果STR字符串小于2个字符，刚全部输出，如果多于两个字符，刚输出 2个字符加上 省略号？

<% If len(rs("str"))>2Then %><%=left(rs("str"),2)%>...<% Else %><%= rs("str") %><% End If %>

给一个我使用的函数,你试试:

'=============================================
'取左边的若干个双字节字符
'用法同Left()
'=============================================
Function Get_Left(Str,Num)
Dim i,l,c,s
If Get_TrueLen(str)<=2*Num Then
Get_Left=Str
Else
l=0
s=""
For i=1 to Len(str)
c=Asc(Mid(Str,i,1))
If c < 0 Then
c = c + 65536
If c > 255 Then
l=l+2
s=s&Mid(Str,i,1)
Else
l=l+1
s=s&Mid(Str,i,1)
End if
Else
l=l+1
s=s&Mid(Str,i,1)
End if
If l>=Num*2 Then Exit For
Next
If l>Num*2 Then
Get_Left=s&".."
Else
Get_Left=s&"..."
End If
End If
End Function
' =========================