Question

ASP提取ACCESS数据库里面的会员ID数组数据后，要求对应会员的复选框被选中，求解答

rs2是提取所有会员的信息，teacher变量是另外一个数据表已经选好会员ID的数据
<% for i=1 to rs2.recordcount %>
<input type="checkbox" name="teacher" value="<%=rs2("U_ID")%>"
<%
dim es
es = split(teacher,",")
if IsArray(es) then
for j=lbound(es) to ubound(es)
if rs2("U_ID")=es(j) then response.write "checked='checked'" end if
next
end if %>/><%=rs2("U_Name")%>
<% rs2.movenext
next %>
比如，所有会员ID是1,2,3,4；teacher=1，2 ，用split分割函数，取得es(0)=1,es(1)=2.
上面的代码运行后，只能得到
要求value=1和2的复选框被选中（如图）。求解答！~~问题解决了分数可以加的

Answer 1

<% for i=1 to rs2.recordcount %>
<input type="checkbox" name="teacher" value="<%=rs2("U_ID")%>"
<%
dim es
es = split(teacher,",")
if IsArray(es) then
for j=0 to ubound(es)
if Cstr(rs2("U_ID"))=es(j) then
response.write "checked='checked'"
exit for
end if
next
end if%>/><%=rs2("U_Name")%>
<%rs2.movenext
next %>

Answer 2

<%
es = split(teacher,",")
for j=lbound(es) to ubound(es)
teacher = teacher & "|"&es(j)&"|"
next
%>
<% for i=1 to rs2.recordcount %>
<input type="checkbox" name="teacher" value="<%=rs2("U_ID")%>" <%if instr(teacher,"|"&rs2("U_ID")&"|")>0 then response.write "checked='checked'" end if%>/>
<%=rs2("U_Name")%>
<%
rs2.movenext
next
%>