国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 網站 > 建站經驗 > 正文

asp 過濾數組重復數 據

2019-11-02 14:56:16
字體:
來源:轉載
供稿:網友

function array_no(cxstr1,cxstr2,cxstr3)
if len(cxstr3) > 0 then
if not IsNumeric(cxstr3) then
array_no = "對不起,參數3類型必需為數字"
Exit Function
end if
else
array_no = "對不起,參數3類型必需為數字"
Exit Function
end if
if isarray(cxstr1) then
array_no = "對不起,參數1不能為數組"
Exit Function
end if
if cxstr1 = "" or isempty(cxstr1) then
array_no = "沒有數據"
Exit Function
end if
ss = split(cxstr1,cxstr2)

泥巴電影網[www.aikan.tv/special/nibadianyingwang/]

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%>

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 娄烦县| 杭锦后旗| 大丰市| 邹城市| 平山县| 隆子县| 岳阳县| 屏边| 石城县| 定安县| 斗六市| 梅河口市| 开阳县| 广安市| 惠州市| 东乌珠穆沁旗| 常熟市| 尼玛县| 沾化县| 房山区| 上蔡县| 阿克苏市| 大足县| 来凤县| 丰都县| 翁源县| 察哈| 南开区| 贞丰县| 长垣县| 灯塔市| 教育| 玉龙| 南昌县| 建平县| 新巴尔虎右旗| 文昌市| 唐山市| 柳江县| 莱阳市| 马尔康县|