复制代码 代码如下: Function NumberSplit(num) Dim i,length length=Len(num) For i=1 To length NumberSplit=NumberSplit & num mod 10 & "," '余数 num = num 10 '整除 Next NumberSplit=Left(NumberSplit,Len(NumberSplit)-1) End Function

　　推荐阅读

　　asp textarea 多行数组分割处理方法

所以对应的asp处理代码如下复制代码 代码如下:dedearr=split(xiangguanid2,chr(13)) '分割成数组for dede=0 to ubound(dedearr)-1 '数组长度减一，因为最后有两个chr(13)换行。dedearr2=split(dedearr(dede),"|") >>>详细阅读

本文标题：获取一个数字的个位、十位、百位的函数代码

地址：http://www.17bianji.com/kaifa2/ASP/31919.html

 1/2    1