ASP
asp 截取字符串函数
'截取字符串strvalue(标题,字数)functionstrvalue(str,lennum)dimp_numdimiifstrlen(str)<=lennumthenstrvalue=strelsep_num=0x=0dowhilenotp_num>lennum-2x=x+1ifasc(mid(str,x,1))<0thenp_num=int(p_num)+2elsep_n