28,406
社区成员
发帖
与我相关
我的任务
分享<%
...
content = rs("content").value
n = 0
total = 165 * 5
For i=1 To Len(content)
c = Mid(content,i,1)
a = Asc(c)
If a>=0 And a<128 Then
n = n + 1
Else
n = n + 2
End If
Next
If n > total Then
content = Left(content, total-6) & "......"
End If
%>
<textarea name="textarea" id="textarea" cols="165" rows="5">
<%=content%>
</textarea>