帮我看下这个函数那写错了?

[qfljm]

<%
Dim s,e
s=2
e="2, 4, 65, 3"

Response.Write Checks(e,s)

Function Checks(str,lv)
Dim i, f
f=Split(str,",")
For i = 0 To UBound(f)
If Cint(f(i)) = lv Then
Checks = True
Exit For
Exit Function
End If
Next
Checks = False
End Function
%>

为何返回的都是False呢.应该是True才对啊

[TrueAndFalse]

<%
Dim s,e
s = 2
e = "2, 4, 65, 3"

Response.Write Checks(e,s)

Function Checks(str,lv)
Checks = False
Dim i, f
f = Split(str,",")
For i = 0 To UBound(f)
If Cint(f(i)) = lv Then
Checks = True
Exit For
End If
Next

End Function
%>

[dslion]

你都退出FOR了，永远都没机会退出Function的

[nanyjm]

<%
Dim s,e
s=2
e="2, 4, 65, 3"

Response.Write Checks(e,s)

Function Checks(str,lv)
Dim i, f
Checks = False
f=Split(str,",")
For i = 0 To UBound(f)
If Cint(f(i)) = lv Then
Checks = True
Exit For
Exit Function
End If
Next

End Function
%>

[chushicheng]

<%
Dim s,e
s=2
e="2, 4, 65, 3"

Response.Write Checks(e,s)

Function Checks(str,lv)
Dim i, f
f=Split(str,",")
For i = LBound(f) To UBound(f)
If Cint(f(i)) = lv Then
Checks = True
Exit For
Exit Function
End If
Next
Checks = False
End Function
%>

[zhurenweile]

<%
Dim s,e
s = 2
e = "2, 4, 65, 3"

Response.Write Checks(e,s)

Function Checks(str,lv)
Checks = False
Dim i, f
f = Split(str,",")
For i = 0 To UBound(f)
If Cint(f(i)) = lv Then
Checks = True
Exit Function
End If
Next

End Function
%>