UC知道ASP调试出错误：显示未结束的字符串常量，请教高手
来源：百度知道 编辑：UC知道 时间：2024/05/29 18:48:26
提示出错行的代码是：Response.Write(left(rs("Title"),13)&"...")，请教如何解决？
<%Function CutStrnew(byVal Str,byVal StrLen)
Dim l,t,c,i
l=Len(str)
t=0
if l<>"" 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>=StrLen Then
CutStrnew=left(Str,i)&".."
Exit For
Else
CutStrnew=Str
End If
Next
end if
End Function%>
用该函数<%response.write(CutStrnew(rs("title"),13))%>