谁能帮我看一下这段函数哪里出问题了吗?
<%Function Strleft(Str,L)
Temp_Str=Len(Str)
For I=1 To Temp_Str
If Asc((Mid(Str,I,1)))>0 Then
lens=lens+1
Else
lens=lens+2
End If
If lens>=L Then Exit For
Next
if lens<L then
response.write left(Str,L)
else
response.write left(Str,lens)&"..."
end if
End Function%>
<%
Strleft(google中国google中国google中国google中国google中国google中国google中国,15)
%>