ASP里 如何判断一个变量是否存在数组里???

[hms0103]

ASP里 如何判断一个变量是否存在数组里???

我有如下的一维数组：
FullName("小黄","小李","小赵")

有个变量： AA=“小赵”

我如何判断 AA变量里=FullName()数组里的小赵

[陆萧寒]

For i=0 to ubound(FullName)
IF FullName(i)=AA Then Response.write "有小赵"
Next

[hms0103]

好像不得呢？？我运行了，错误提示是：

错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: 'ubound'
/SZT/untitled2.asp, 第 10 行

[sy_binbin]

bb = "小黄,小李,小赵" '可以当成数组
AA="小赵"
if instr(bb,AA) > 0 then
response.Write "aa"
end if

[hms0103]

整个程序是这样。但也不得!!高手请帮帮！
<%
dim VarFullName

VarFullName=session("FullName")

MyArray=array("越级用户","小黄","小李","小赵")

For i=0 to ubound(MyArray)

IF MyArray(i)=VarFullName Then Response.write "存在"

Next
%>

[toury]

<%
s=join(FullName,",")
AA="小赵"
if instr(s,AA)>0 then 
  response.Write "数组中有"&AA
else
  response.Write "数组中不包括"&AA
end if
%>

[hms0103]

我这样改还是不行。。。。。！！！！
没有结果。。。。。是什么问题？？？
<%

dim VarFullName

VarFullName=session("FullName")

MyArray=array("越级用户","小黄","小李","小赵")

For i=0 to ubound(MyArray)

IF MyArray(i)=VarFullName Then Response.write "存在"

Next
%>

[cow8063]

MyArray=array("越级用户","小黄","小李","小赵")
这是什么语法的

[toury]

<% 
dim VarFullName 
VarFullName=session("FullName") 
MyArray=array("越级用户","小黄","小李","小赵") 
s=","&join(MyArray,",")
if instr(s,","&VarFullName)>0 then 
  response.Write "数组中有"&VarFullName
else
  response.Write "数组中不包括"&VarFullName
end if
%>

[toury]

MyArray=array("越级用户","小黄","小李","小赵") 语法很正常啊,楼主用的没错

[hms0103]

问解决了。我这样改可以了哦！！！


<%
bb = "越级用户,小黄,小李,小赵"
AA=session("FullName")

if instr(bb,AA) > 0 then
response.Write aa
else
response.Write "无权限"
end if

%>

[hms0103]

问题解决了。我这样改可以了哦！！！


<%
bb = "越级用户,小黄,小李,小赵"
AA=session("FullName")

if instr(bb,AA) > 0 then
response.Write aa
else
response.Write "无权限"
end if

%>

[toury]

你这样不严谨哦;如果
bb="越级用户,小黄,小李,赵小赵"
AA="小赵"怎么办???

[toury]

正解:

<% 
VarFullName=session("FullName") 
MyArray=array("越级用户","小黄","小李","小赵") 
s=",越级用户,小黄,小李,小赵" 
if instr(s,","&VarFullName)>0 then 
  response.Write "数组中有"&VarFullName
else
  response.Write "数组中不包括"&VarFullName
end if
%>

[toury]

13楼也不严谨,用这个:

<% 
VarFullName=session("FullName") 
MyArray=array("越级用户","小黄","小李","小赵") 
s=",越级用户,小黄,小李,小赵," 
if instr(s,","&VarFullName&",")>0 then 
  response.Write "数组中有"&VarFullName
else
  response.Write "数组中不包括"&VarFullName
end if
%>