办法一使用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