因为要写个东西用到，所以百度了一下，居然有朋友乱写，而且比较多，都没有认真测试过，只对字符可以，但是对数字就不可以，而且通用性很差，需要修改才可以真正使用。没办法就自己写了，经过测试完全没有问题，而且思路很方便，代码很短，如下： 复制代码 代码如下: <% function cxarraynull(cxstr1,cxstr2) if isarray(cxstr1) then cxarraynull = "对不起，参数1不能为数组" Exit Function end if if cxstr1 = "" or isempty(cxstr1) then cxarraynull = "nodate" Exit Function end if ss = split(cxstr1,cxstr2) cxs = cxstr2&ss(0)&cxstr2 sss = cxs for m = 0 to ubound(ss) cc = cxstr2&ss(m)&cxstr2 if instr(sss,cc)=0 then sss = sss&ss(m)&cxstr2 end if next cxarraynull = right(sss,len(sss) - len(cxstr2)) cxarraynull = left(cxarraynull,len(cxarraynull) - len(cxstr2)) end Function %> 使用方法和函数表示： 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 脚本之家增强版本，解决了数组中最后一位的,逗号问题。 复制代码 代码如下: <% function cxarraynull(cxstr1,cxstr2) if isarray(cxstr1) then cxarraynull = "对不起，参数1不能为数组" Exit Function end if if cxstr1 = "" or isempty(cxstr1) then cxarraynull = "nodate" Exit Function end if do while instr(cxstr1,",,")>0 cxstr1=replace(cxstr1,",,",",") loop if right(cxstr1,1)="," then cxstr1=left(cxstr1,len(cxstr1)-1) end if ss = split(cxstr1,cxstr2) cxs = cxstr2&ss(0)&cxstr2 sss = cxs for m = 0 to ubound(ss) cc = cxstr2&ss(m)&cxstr2 if instr(sss,cc)=0 then sss = sss&ss(m)&cxstr2 end if next cxarraynull = right(sss,len(sss) - len(cxstr2)) cxarraynull = left(cxarraynull,len(cxarraynull) - len(cxstr2)) end function %> 测试代码: 复制代码 代码如下: s="1,2,3,4,55,55,55,333,333,2,3,5,3,88,,,,,,,66,,66,,,,,,,,,,,,,,,,,,,,,,,," s=cxarraynull(s,",") response.write s

　　推荐阅读

　　asp 在线备份与恢复sqlserver数据库的代码

asp在线备份sql server数据库： 1、备份sqlserver 复制代码 代码如下: <% SQL="backup database 数据库名 to disk='"&Server.MapPath("backup")&""&"backuptext.dat"&"'" set cnn=Server.createobject("adodb.con>>>详细阅读

本文标题：asp 数组 重复删除函数(脚本之家增强版)

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

 1/2    1