28,391
社区成员
发帖
与我相关
我的任务
分享
<%
aa= split(rs2("credit1"),",")
for i=0 to Ubound(aa)
if aa(i)=1 then
checked1="checked"
elseif aa(i)=2 then
checked2="checked"
elseif aa(i)=3 then
checked3="checked"
elseif aa(i)=4 then
checked4="checked"
elseif aa(i)=5 then
checked5="checked"
elseif aa(i)=6 then
checked6="checked"
elseif aa(i)=0 then
checked="checked"
end if
next
%>
<input type="checkbox" name="credit1" value="1" <%=checked1%> > 物品1
<input type="checkbox" name="credit1" value="2" <%=checked2%>> 物品2
<input type="checkbox" name="credit1" value="3" <%=checked3%>> 物品3 <br>
<input type="checkbox" name="credit1" value="4" <%=checked4%>> 物品4
<input type="checkbox" name="credit1" value="5" <%=checked5%>> 物品5
<input type="checkbox" name="credit1" value="6" <%=checked6%>> 物品6 <br>
<input type="checkbox" name="credit1" value="0" <%=checked%>> <% if checked="checked" then %>不 <% end if %> 需要
<%
aa= split(rs2("credit1"),",")
for i=0 to Ubound(aa)
%>
<input type="checkbox" name="credit1" value="1" <% if aa(i)=1 then %> checked<% end if %> > 物品1
<input type="checkbox" name="credit1" value="2" <% if aa(i)=2 then %>checked<% end if %> > 物品2
<input type="checkbox" name="credit1" value="3" <% if aa(i)=3 then %> checked<% end if %> > 物品3 <br>
<input type="checkbox" name="credit1" value="4" <% if aa(i)=4 then %>checked<% end if %> > 物品4
<input type="checkbox" name="credit1" value="5" <% if aa(i)=5 then %> checked<% end if %> > 物品5
<input type="checkbox" name="credit1" value="6" <% if aa(i)=6 then %>checked <% end if %> > 物品6 <br>
<input type="checkbox" name="credit1" value="0" <% if aa(i)=0 then %>checked <% end if %> > <% if aa(i)=0 then %>不<% end if %> 需要
<%
next
%>