asp数组重复功能（增强版）

因为你想写的东西用的，所以百度，有朋友和乱涂，没有严重的考验，只有文字，但数量不能和通用性差，需要修改才可以真正使用。有没有办法把它写在自己。它完全免费的测试，想法非常方便，代码很短。
复制代码代码如下所示：
<
功能cxarraynull（cxstr1，cxstr2）
如果ISArray（cxstr1）然后
cxarraynull =对不起，参数1不能阵列。
退出功能
最后如果
如果cxstr1 = 或是空的（cxstr1）然后
cxarraynull =nodate
退出功能
最后如果
SS =分裂（cxstr1，cxstr2）
（0）cxstr2 cxstr2ss CXS =
SSS = CXS
M = 0，UBound（SS）
CC = cxstr2ss（M）cxstr2
如果仪器（SSS，CC）= 0
SSS = sssss（M）cxstr2
最后如果
下一个
cxarraynull =右（SSS，len（SSS）-莱恩（cxstr2））
cxarraynull =左（cxarraynull，len（cxarraynull）-莱恩（cxstr2））
端功能
%>

使用方法和函数来表示：
1、cxarraynull（cxstr1，cxstr2）两个参数的函数：
cxstr1：检测数组变量，可以为空，错误的数据或其他未知的，在空的或错误的数据恢复nodate 。
cxstr2：数组的分裂的象征，可以为空，或CHR（13），等等，自动替换输出。
2。测试代码：
<
S =1,2,3,4,2,3,5,3
S = cxarraynull（S，
response.write S
%>
输出：1,2,3,4,5

增强版解决了数组的最后一位，逗号问题。
复制代码代码如下所示：
<
功能cxarraynull（cxstr1，cxstr2）
如果ISArray（cxstr1）然后
cxarraynull =对不起，参数1不能阵列。
退出功能
最后如果
如果cxstr1 = 或是空的（cxstr1）然后
cxarraynull =nodate
退出功能
最后如果
做指导（cxstr1，
cxstr1 =取代（cxstr1，
环
如果对（cxstr1,1）=
cxstr1 =左（cxstr1，len（cxstr1）- 1）
最后如果
SS =分裂（cxstr1，cxstr2）
（0）cxstr2 cxstr2ss CXS =
SSS = CXS
M = 0，UBound（SS）
CC = cxstr2ss（M）cxstr2
如果仪器（SSS，CC）= 0
SSS = sssss（M）cxstr2
最后如果
下一个
cxarraynull =右（SSS，len（SSS）-莱恩（cxstr2））
cxarraynull =左（cxarraynull，len（cxarraynull）-莱恩（cxstr2））
端功能
%>

测试代码：
复制代码代码如下所示：
S = 1,2,3,4,55,5555333333,2,3,5,3,88，，，，66, 66 ,,,,,,,,,,,,,,,,,,,,,,,
S = cxarraynull（S，
response.write S