办法一使用Split函数来循环判断。
Dim isHave,i,Str,Ary()
Str="01,02,03,04,05,06"
Ary=Split(Str,",")
isHave=False
For i=0 To UBound(Ary)
IF "03"="Ary(i)" Then
isHave=True
End IF
Next
If isHave Then
Response.Write "03存在"
Else
Response.Write "03不存在"
End IF
办法二,使用InStr函数当作字符串来判断
Dim Str
Str="01,02,03,04,05,06"
IF InStr(Str,"03")<>0 Then
Response.Write "03存在"
Else
Response.Write "03不存在"
End IF