asp数组cookies操作函数

本文的创造性在于cookies_to_array(c)   直接简单快捷转化字符串为数组的方法

另外 本文操作的数组 不是 asp普通的多维数组 而是锯齿型的

这种数组 更易操作 更易阅读 行列清晰 很像数据库中的表

可以类比为 datatable

class myarray '必须为锯齿数组array(array(1,2,3)) 'cookies中存入引号 全做字符串处理 function array_to_cookies2(a) dim b(),i,j,u u = ubound(a) redim b(u) for i=0 to u array_rep a(i) b(i)=""""&join(a(i),""",""")&"""" next array_to_cookies=join(b,";") end function '只支持数字 function array_to_cookies(a) dim b(),i,j,u u = ubound(a) redim b(u) for i=0 to u array_rep a(i) b(i)= join(a(i),",") next array_to_cookies=join(b,";") end function sub array_rep(a) dim i if isarray(a) then for i=0 to ubound(a) if instr(a(i),",")>0 then a(i)=replace(a(i),",","") if instr(a(i),";")>0 then a(i)=replace(a(i),";","") if instr(a(i),"""")>0 then a(i)=replace(a(i),"""","") next end if end sub function cookies_to_array(c) c = "array(array("+replace(c,";","),array(")+"))" execute "cookies_to_array="&c end function '把某数组的某列用逗号串起来 function joina(a,columnum) dim t(),i redim t(ubound(a)) for i=0 to ubound(a) t(i)=a(i)(columnum) next joina=join(t,",") end function '不检测 直接加入新行 sub add_row2(a,ai) if not isarray(a) then a = array(ai) exit sub end if dim b(),i,j,u u = ubound(a) redim b(u+1) j=0 for i=0 to u b(j) = a(i) j = j + 1 next b(j) = ai a = b end sub '以某列检测 有更新无加入 sub add_row(a,ai,columnum) if not isarray(a) then a = array(ai) exit sub end if dim b(),i,j,u,rn rn = get_rownum(a,columnum,ai(columnum)) u = ubound(a) if rn=-1 then'add redim b(u+1) else redim b(u) end if j=0 for i=0 to u if rn>-1 then if a(i)(columnum)<>ai(columnum) then b(j)=a(i)'旧行给新行 j = j+1 else b(j)=ai'用给定行值 更新行 j = j+1 end if else b(j)=a(i) j = j+1 end if next if rn=-1 then b(j)=ai end if a=b end sub function get_rownum(a,columnum,columv) get_rownum=-1 dim i,j,u u = ubound(a) for i=0 to u if a(i)(columnum)=columv then get_rownum = i exit function end if next end function '根据列号 列值 删除某xie行 直接改变原数组 sub delete_row_by_colum(a,columnum,columv) dim b(),i,j,u u = ubound(a) j =0 for i=0 to u if a(i)(columnum)=columv then j=j+1 end if next redim b(u-j) j=0 for i=0 to u if a(i)(columnum)<>columv then b(j)=a(i) j = j+1 end if next a=b end sub '根据行下标删除行 sub delete_row(a,rownum) dim b(),i,j,u u = ubound(a) j =0 redim b(u-1) j=0 for i=0 to u if i<>rownum then b(j)=a(i) j=j+1 end if next a=b end sub 'asp的原生多维数组 例如 getrows返回的a(1,2) 转化为锯齿数组 function casp_array(a) dim b,c,i,j redim b(ubound(a,2)) redim c(ubound(a,1)) for i = 0 to ubound(a,2) for j=0 to ubound(a,1) c(j)=a(j,i) next b(i)=c next casp_array = b end function sub testarray dim c c = cookies_to_array("1,2,3;4,5,6;7,8,9;10,11,12") c(2)(2)=100 response.write array_to_cookies(c)&"<br/>" '删除 列下标为2的 值为3的行 delete_row_by_colum c,2,3 response.write array_to_cookies(c)&"<br/>" '删除第一行 delete_row c,0 response.write array_to_cookies(c)&"<br/>" dim a(3,2) a(0,0)="0,0" a(1,0)="1,0" a(2,0)=20 a(3,0)=30 a(0,1)="0;1" a(1,1)=4 a(2,1)=21 a(3,1)=31 a(0,2)="0;2" a(1,2)=12 a(2,2)=11 a(3,2)=32 dim d d = casp_array(a) response.write array_to_cookies(d)&"<br/>" add_row d,array(4,4,4,4),1 response.write array_to_cookies(d)&"<br/>" add_row d,array(5,5,5,5),-1 response.write array_to_cookies(d)&"<br/>" response.write get_rownum(d,1,4)&"<br/>" end sub end class dim mya set mya = new myarray 'array_to_cookies(a) 'cookies_to_array(c) 'delete_row_by_colum(a,columnum,columv) 'delete_row(a,rownum) 'casp_array(a) 'add_row(a,ai,columnum) 'mya.testarray

结果：

1,2,3;4,5,6;7,8,100;10,11,12
4,5,6;7,8,100;10,11,12
7,8,100;10,11,12
00,10,20,30;01,4,21,31;02,12,11,32
00,10,20,30;4,4,4,4;02,12,11,32
00,10,20,30;4,4,4,4;02,12,11,32;5,5,5,5
1