ASP函数问题，大家进啊！

'*************************************************************
'函数作用：显示字符串长度
'*************************************************************
Public Function gotTopic(Str, strlen)
Dim l, T, c, i
Str = Replace(Str, " ", " ")
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
gotTopic = Left(Str, i) & "..."
Exit For
Else
gotTopic = Str & " "
End If
Next
End Function
Public Function CutString(Str, strlen)
Dim HtmlStr, L, Re
HtmlStr = Str
HtmlStr = Replace(HtmlStr, " ", " ")
HtmlStr = Replace(Replace(Replace(HtmlStr, Chr(34), ""), Chr(13), " "), Chr(10), " ")
Set Re = New RegExp
Re.IgnoreCase =true
Re.Global=True

ASP函数问题，大家进啊！ asp函数调用问题 ASP函数问题，急！ ASP函数调用问题 asp调用函数问题 ASP的函数问题 asp字符串函数问题 asp函数问题 ASP函数问题 asp DateAdd() 函数问题