亚洲乱码中文字幕综合,中国熟女仑乱hd,亚洲精品乱拍国产一区二区三区,一本大道卡一卡二卡三乱码全集资源,又粗又黄又硬又爽的免费视频

ASP 過濾數(shù)組重復數(shù)據(jù)函數(shù)(加強版)

 更新時間：2010年05月31日 22:57:54   作者：  
asp 不重復數(shù)組數(shù)據(jù)的實現(xiàn)代碼，比上個版本，更細，更能更強，大家可以根據(jù)需要選擇。
函數(shù)代碼：
復制代碼 代碼如下:

<%'*******************************************************
'過濾數(shù)組重復函數(shù)名稱：array_no(cxstr1,cxstr2,cxstr3)
'cxstr1：任意的字符串，自動識別
'cxstr2：cxstr1中分割符號。
'cxstr3：提取結果中的某一位置字串，等于0時返回為全部，大于數(shù)組下標時返回最后.
'使用于二維數(shù)組
'*******************************************************
function array_no(cxstr1,cxstr2,cxstr3)
if len(cxstr3) > 0 then
if not IsNumeric(cxstr3) then
array_no = "對不起，參數(shù)3類型必需為數(shù)字"
Exit Function
end if
else
array_no = "對不起，參數(shù)3類型必需為數(shù)字"
Exit Function
end if
if isarray(cxstr1) then
array_no = "對不起，參數(shù)1不能為數(shù)組"
Exit Function
end if
if cxstr1 = "" or isempty(cxstr1) then
array_no = "沒有數(shù)據(jù)"
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
array_no = right(sss,len(sss)-len(cxstr2))
array_no = left(array_no,len(array_no)-len(cxstr2))
if cxstr3 <> 0 then
cx_sp = split(array_no,cxstr2)
if cxstr3 > ubound(cx_sp) then
array_no = cx_sp(ubound(cx_sp))
else
array_no = cx_sp(cxstr3)
end if
end if
end function%>


下面是測試代碼：
復制代碼 代碼如下:

<%s1 = "abc,aa,bb,cdef,bc,abcdef,hhgg,gggg,cde,edc"
s2 = "1,2,3,11,22,33,12,13,14,11,33,333,14"
s3 = ""
s4 = "sdf,abc,12,2,2,abc"
s5 = split(s4)
response.write "字串為字符時："&array_no(s1,",",0)&"<br>"
response.write "字串為數(shù)字時："&array_no(s2,",",0)&"<br>"
response.write "字串為空時："&array_no(s3,",",0)&"<br>"
response.write "字串為混合時："&array_no(s4,",",0)&"<br>"
response.write "字串為數(shù)組時："&array_no(s5,",",0)&"<br>"
response.write "字串為未知變量時："&array_no(s33,",",0)&"<br>"
response.write "提取某一位時，沒有超過下標時："&array_no(s1,",",2)&"<br>"
response.write "提取某一位時，超過下標時："&array_no(s1,",",200)&"<br>"%>

測試結果：
復制代碼 代碼如下:

字串為字符時：abc,aa,bb,cdef,bc,abcdef,hhgg,gggg,cde,edc
字串為數(shù)字時：1,2,3,11,22,33,12,13,14,333
字串為空時：沒有數(shù)據(jù)
字串為混合時：sdf,abc,12,2
字串為數(shù)組時：對不起，參數(shù)1不能為數(shù)組
字串為未知變量時：沒有數(shù)據(jù)
提取某一位時，沒有超過下標時：bb
提取某一位時，超過下標時：edc


腳本之家增強版本： 解決了數(shù)組常見錯誤
復制代碼 代碼如下:

<%
'*******************************************************
'過濾數(shù)組重復函數(shù)名稱：array_no(cxstr1,cxstr2,cxstr3)
'cxstr1：任意的字符串，自動識別
'cxstr2：cxstr1中分割符號。
'cxstr3：提取結果中的某一位置字串，等于0時返回為全部，大于數(shù)組下標時返回最后.
'使用于二維數(shù)組
'*******************************************************
function array_no(cxstr1,cxstr2,cxstr3)
if len(cxstr3) > 0 then
if not IsNumeric(cxstr3) then
array_no = "對不起，參數(shù)3類型必需為數(shù)字"
Exit Function
end if
else
array_no = "對不起，參數(shù)3類型必需為數(shù)字"
Exit Function
end if
if isarray(cxstr1) then
array_no = "對不起，參數(shù)1不能為數(shù)組"
Exit Function
end if
if cxstr1 = "" or isempty(cxstr1) then
array_no = "沒有數(shù)據(jù)"
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
array_no = right(sss,len(sss)-len(cxstr2))
array_no = left(array_no,len(array_no)-len(cxstr2))
if cxstr3 <> 0 then
cx_sp = split(array_no,cxstr2)
if cxstr3 > ubound(cx_sp) then
array_no = cx_sp(ubound(cx_sp))
else
array_no = cx_sp(cxstr3)
end if
end if
end function

s1 = "abc,aa,bb,cdef,bc,abcdef,hhgg,gggg,cde,edc,333,,,,,333,7,,,,"
s2 = "1,2,3,11,22,33,12,13,14,11,33,333,14,333,,,,,333,7,,,,"
s3 = ""
s4 = "sdf,abc,12,2,2,abc,333,,,,,333,7,,,,"
s5 = split(s4)
response.write "字串為字符時："&array_no(s1,",",0)&"<br>"
response.write "字串為數(shù)字時："&array_no(s2,",",0)&"<br>"
response.write "字串為空時："&array_no(s3,",",0)&"<br>"
response.write "字串為混合時："&array_no(s4,",",0)&"<br>"
response.write "字串為數(shù)組時："&array_no(s5,",",0)&"<br>"
response.write "字串為未知變量時："&array_no(s33,",",0)&"<br>"
response.write "提取某一位時，沒有超過下標時："&array_no(s1,",",2)&"<br>"
response.write "提取某一位時，超過下標時："&array_no(s1,",",200)&"<br>"
%>

主要是增加了判斷
復制代碼 代碼如下:

do while instr(cxstr1,",,")>0
cxstr1=replace(cxstr1,",,",",")
loop
if right(cxstr1,1)="," then
cxstr1=left(cxstr1,len(cxstr1)-1)
end if

相關文章

最新評論