文章分类 -  asp

摘要：<%Function Strsub(str,lennum,s)If Not IsNull(str) Then Dim p_num,x Dim i If len(str)<=lennum Then Strsub=str Else p_num=0 x=0 Do While Not p_num > lennum-2 x=x+1 If Asc(Mid(str,x,1))<0 Then p_num=Int(p_num) + 2 Else p_num=Int(p_num) + 1 End If Strsub=Left(Trim(str),x)&s '截取后定义超出部 阅读全文