<%
a="50,12,13,45,35,25,11,32"
S=split(a,",")
allowed=true '加一个条件
maxBound=Ubound(s) '默认数组长度
If maxBound>4 Then maxBound=4 '如果数组元素大于5个,则只取前五个
for i=0 to maxBound
If S(i)=35 Then '如果包含35,则让allowed=False
allowed=False
End If
Responsewrite(S(i)) &"<br>"
'现在我可以将这组数据读出来,想问的是。
'当我有另一个数35与这组数据中比较,当有35这个数的
'时候可以查看下面的东西,否则如果没有35这个数就不可以查看。
next
If allowed=False Then
ResponseWrite "下面的内容不能被访问"
Else
ResponseWrite "这里显示要访问的内容"
End If
%>
运行结果:
50
12
13
45
35
下面的内容不能被访问
方法1通过split()函数:
dim Arr,Rs
Set Rs=ConnExecute("select aa from abc")
Arr=""
Do While Not RsEof
If Arr="" Then
Arr=Rs("aa")
Else
Arr=Arr&","&Rs("aa")
End If
RsMovenext
loop
Arr=split(Arr,",") 'arr即是你想要的数组
方法2,通过记录集的GetRows方法
‘可取多个字段
Set Rs=ConnExecute("")
Arr=RsGetRows()
RsClose()
' *** 作Arr
'方法是Arr(Y,X)
'X可以理解成表格的行
'Y就是表格的列
protected bool Find(string[] arr,string String)
{
for (int i = 0; i < arrLength; i++)
if (arr[i] == String)
return true;
return false;
}
这个a(3,4)数组里只有2个数据即2、3
你那个for循环语句里i和j只是定义了一个初始值0,只要一循环i=0到3得出值是0、1、2、3 ;只要一循环j=0到4得出值0、1、2、3、4
可以用数组的indexOf函数,方法arrindexOf(find,start);
find:要找的内容,必须;
start:查找开始下标,可选;
返回:查找数据所在的下标,如果没找到,返回-1
如果只要知道是否有8这个数字,直接调用arrindexOf(8),如果返回值不为-1,说明找到了
1
2
3
4
5
var s=[1,2,3,5,6,9];
var u=sindexOf(5);//返回5所在的下标3
var d=sindexOf(8);//返回-1
consolelog(u);
consolelog(d);
你那种方法肯定会出错,因为以&分割只得到6维数组,用=分割得到7维数组
不知道你要返回什么样的值,以下代码返回四种值,其中有一种肯定是你要的,因为只有这四种返回值
<%
public Function GetSplitArray(data)
responseWrite"第一种返回值<br>"
sp=split(data,"&")
for i=0 to Ubound(sp)
d=d+sp(i)
responseWrite sp(i)&"<br>"
Next
responseWrite"<br>第二种返回值<br>"
s=split(d,"=")
for i=0 to Ubound(s)
responseWrite s(i)&"<br>"
Next
responseWrite"<br>第三种返回值<br>"
sp1=split(data,"&")
for i=0 to Ubound(sp1)
c=Right(sp1(i),Len(sp1(i))-InstrRev(sp1(i),"="))
responseWrite c&"<br>"
Next
responseWrite"<br>第四种返回值<br>"
sp2=split(data,"&")
for i=0 to Ubound(sp2)
e=left(sp2(i),Instr(sp2(i),"=")-1)
responseWrite e&"<br>"
Next
End Function
Data="ID=00006&Curr=CNY&Amount=001&Ref=20080307053020&Cust=To00001&TransTime=2008-03-07 2005:30:20&ReturnUrl=http://MerchantReceiveaspx"
GetSplitArray(data)
%>
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)