asp实现截取字符串函数

如果标题过长，因为页面布局的限制，只能列表10个字符，这个函数会帮你实现的 代码如下: ‘截取字符串 strvalue(标题,字数) function strvalue(str,lennum)     dim p_num     dim i     if strlen(str)<=lennum then         strvalue=str     else         p_num=0         x=0         do while not p_num > lennum-2             x=x+1             if asc(mid(str,x,1))