function gotTopic(str,strlen)
dim l,t,c, i
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

截取标题长度
如果str的长度大于strlen就出输出str的前strlen个字符再加个.
如果str的长度<strlen就输出str的全部

[此贴子已经被作者于2007-6-16 15:14:37编辑过]

谢谢上面的朋友了！还有其他的答案吗？能确定的

function gotTopic(str,strlen)
dim l,t,c, i
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
这个函数中应该是在操作Asc码因为Asc函数的作用就是求得字符的Asc码值，而加减Asc码这个函数看着更像一个简单的加密函数。