Question

asp radio问题

Dim ii,Rw,Vca,i
sql="select * from S_Vo order by id asc"
set rs=server.CreateObject("ADODB.RECORDSET")
rs.open sql,conn,1,1
ii=0
do while not rs.eof
ii=ii+1
Rw="Zhi_"&rs("id")
Response.Write "<tr><td height='28px;' width='60%'><font color=red>"&ii&"、</font>"&rs("VoteName")&"</td>"
Response.Write"<input name='Vm' type='hidden' value='"&ii&"' />"
Vca=Split(rs("VClass"),"|")
for i=0 to 2
Response.Write("<td align='center'><input type='radio' name='"&Rw&"' value='"&i&"' checked />"&Vca(i)&"</td>")
next
Response.Write "</tr>"
rs.MoveNext
loop
rs.Close
Set rs=Nothing

如何让所有的 radios ，value=0的默认选中啊

Answer 1

Dim ii,Rw,Vca,i
sql="select * from S_Vo order by id asc"
set rs=server.CreateObject("ADODB.RECORDSET")
rs.open sql,conn,1,1
ii=0
do while not rs.eof
ii=ii+1
Rw="Zhi_"&rs("id")
Response.Write "<tr><td height='28px;' width='60%'><font color=red>"&ii&"、</font>"&rs("VoteName")&"</td>"
Response.Write"<input name='Vm' type='hidden' value='"&ii&"' />"
Vca=Split(rs("VClass"),"|")
for i=0 to 2
%>
<td align='center'><input type='radio' name='<%=Rw%>' value='<%=i%>' <%if i=0 then%> checked <%end if%>/><%=Vca(i)%></td>

<%
next
Response.Write "</tr>"
rs.MoveNext
loop
rs.Close
Set rs=Nothing