• 主页

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

qfljm 2004-04-08 06:49:16
<%
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
%>

...全文
14 点赞 收藏 5

5 条回复

zhurenweile 2004-04-08
<%
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
%>

chushicheng 2004-04-08
<%
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
%>

nanyjm 2004-04-08
<%
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
%>

dslion 2004-04-08

TrueAndFalse 2004-04-08
<%
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
%>

ASP

2.8w+

ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。