关于split,急!

[gzcat]

ALLS="1,2,3,4,5"
想在asp中实现,当S有1时,输出"已有",否则输出"未有".


以下是我写的,帮我看看
<%
S=split(ALLS,",",-1)
for i=0 to UBound(S)
if S(i)=1 then
response.write "已有"
else
response.write "未有"
end if
next
%>

[jim.ma]

ALLS="1,2,3,4,5"
sc="未有"
S=split(ALLS,",")
for i=0 to UBound(S)
if cstr(S(i))=cstr(1) then sc="已有"
next
response.write sc
如果是这个基本目的话

[喜受写代码的小强]

<%
S=split(ALLS,",")
for i=0 to UBound(S)
if S(i)=1 then
response.write "已有"
else
response.write "未有"
end if
next
%>
多了-1

[八哥]

if left(alls,2)="1," or instr(alls,",1,")<> 0 or right(instr,2)= ",1" then
response.write "已有"
else
response.write "未有"
end if

如果你非得用SPLIT
S=split(ALLS,",")
str= "没有"
for i=0 to UBound(S)
if S(i)=1 then
str= "已有"
exit for
next
response.write str