aspÊý×écookies²Ù×÷º¯Êý

±¾ÎĵĴ´ÔìÐÔÔÚÓÚcookies_to_array(c)   Ö±½Ó¼òµ¥¿ì½Ýת»¯×Ö·û´®ÎªÊý×éµÄ·½·¨
ÁíÍâ ±¾ÎIJÙ×÷µÄÊý×é ²»ÊÇ aspÆÕͨµÄ¶àάÊý×é ¶øÊǾâ³ÝÐ͵Ä
ÕâÖÖÊý×é ¸üÒײÙ×÷ ¸üÒ×ÔĶÁ ÐÐÁÐÇåÎú ºÜÏñÊý¾Ý¿âÖеıí
¿ÉÒÔÀà±ÈΪ datatable
class myarray
'±ØÐëΪ¾â³ÝÊý×éarray(array(1,2,3))
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),";","")
next
end if
end sub
function cookies_to_array(c)
c = "array(array("+replace(c,";","),array(")+"))"
execute "cookies_to_array="&c
end function
'ÒÔijÁÐΪÖ÷¼ü Ìí¼Ó»òÕ߸üРÐÐ
sub add_row(a,ai,columnum)
dim b(),i,j,u
u = ubound(a)
if columnum=-1 then'add
redim b(u+1)
else
redim b(u)
end if
j=0
for i=0 to u
if columnum>-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 columnum=-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
'¸ù¾ÝÁкŠÁÐÖµ ɾ³ýijxieÐÐ Ö±½Ó¸Ä±äÔ­Êý×é
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)