一个多选下拉框的赋值的问题？多谢各位大吓了！！

[babirui]

我有一个可以多选的下拉框：值是从数据库里读出来的

有一个数组：myarr=split(rs("yhsj"),"|")　比如值是：myarr="5|12|15|"

<%do while not rs.eof%>
<option value="<%=rs("id")%>|" <%if rs("id")=myarr(i) then%>selected<%end if%>><%=rs("zsxm")%></option>
<%
rs.movenext
loop
%>
请问怎么实现如果rs("id")=5 or rs("id")=12 or rs("id")=15的时候就会被选中，
请问我这段程序应该怎么改？

[babirui]

上面的朋友，我是举个例子的。主要是这个数组的值是动态的：
myarr=split(rs("yhsj"),"|")　应该怎么改这个：

<%do while not rs.eof%>
<option value="<%=rs("id")%>|" <%if rs("id")=myarr(i) then%>selected<%end if%>><%=rs("zsxm")%></option>
<%
rs.movenext
loop
%>

[Reker熊]

<%do while not rs.eof%>
<%
For I=0 To Ubound(myarr)
If CInt(myarr(I))=CInt(Rs("id")) Then
IsSelected="selected"
Exit For
End If
Next
%>
<option value="<%=rs("id")%>|" <%=IsSelected%>><%=rs("zsxm")%></option>
<%
rs.movenext
loop
%>

[possible_Y]

<%
i=0
do while not rs.eof
%>
<option value="<%=rs("id")%>|" <%if rs("id")=myarr(i) then%>selected<%end if%>><%=rs("zsxm")%></option>
<%
i=i+1
rs.movenext
loop
%>

[babirui]

上面的朋友，还是不行，tdl982324(石井坚) ：这样我的多选框什么都显示不出来的。

[Reker熊]

<option value="<%=rs("id")%>|" <%if rs("id")=5 or rs("id")=12 or rs("id")=15 then%>selected<%end if%>><%=rs("zsxm")%></option>

[cpp2017]

<%

Dim strSelected
do while not rs.eof
strSelected =""
if (rs("id").value =5 or rs("id").value =12 or rs.("id").value = 15) then
strSelected =" selected "
end if
%>

<option value="<%=rs("id")%>" <%=strSelected%> ><%=rs("zsxm")%></option>

<%
rs.movenext
loop
%>
</慕白兄>