紧记求助！对列表框列表项进行动态选中的问题

[123xie]

需要做一个对论坛列表项进行相应操作的 列表框 和单选框：

While not rsR.eof
.....
<select name="Manage<%=rsR("id")%>" >
<option value="-1" selected>操作选择</option>
<option value="3">至顶</option>
<option value="0">解除至顶</option>
<option value="Garbage">删除</option>
<option value="－1">移动到：</option>
<option value="aaa">AAAA</option>
<option value="bbb">BBBB</option>
.....
</select>
.....
<input type="radio" name="Kind<%=rsR("id")%>" value="1">精
<input type="radio" name="Kind<%=rsR("id")%>" value="2">酷
<input type="radio" name="Kind<%=rsR("id")%>" value="0" checked>无
.....
rsR.MoveNext
Wend

现在需要根据 rsR("Kind")的值，对应选择 列表框 form1.Manage??? 的选中值。如果rsR("Kind")=3那么让 Value="3"为选中项，否则就使用默认的选中项。


如果使用<script> window.form1.Manage??.value="<%=rsR("Kind")%>"; </script>的方法
但如何确定 form1.Manage??的编号？我是说，用什么样的格式能够实现？


同样，对于单选框，又该如何实现对 单选框名称的定位？？

要说明的是，列表框的内容无法从数据库中全部倒入，用常用的方法临时生成列表框全部列表项是不行的

[itzhiren]

不明白你说的什么意思?rsr("kind")是哪一个?

[123xie]

rsR("Kind")的值，对 列表框和单选框 都直接影响

[qiqunet]

<select name="Manage<%=rsR("id")%>" >
<option value="-1" selected>操作选择</option>
<option value="3">至顶</option>
<option value="0">解除至顶</option>
<option value="Garbage">删除</option>
<option value="－1">移动到：</option>
<option value="aaa">AAAA</option>
<option value="bbb">BBBB</option>
.....
</select>

<script>
var c=document.all.Manage<%=rsR("id")%>;
for(i=0;i<c.options.length;i++){
if(c.options[i].value==<%=rsR("Kind")%>){c.options[i].selected=true;break;}
}
</script>

[qiqunet]

这是第二种：

<%
dim options(1,4)
options(0,0)="-1"
options(0,1)="3"
options(0,2)="0"
options(0,3)="Garbage"
options(0,4)="－1"
options(1,0)="操作选择"
options(1,1)="至顶"
options(1,2)="解除至顶"
options(1,3)="删除"
options(1,4)="移动到："

response.write"<select name='Manage'" & rsR("id") & ">"
for i=0 to 4

if options(0,i)=rsR("Kind") then
response.write"<option value='" & options(0,i) & "' selected>" & options(1,i)= & "</option>"
else
response.write"<option value='" & options(0,i) & "'>" & options(1,i)= & "</option>"
end if
response.write"</select>"
%>

[qiqunet]

建议采用第二种方法，那样就不会生成很多的script语句了。

关于checkbox，可以这样处理：

<%
dim tmp(2)
tmp(0)=""
tmp(1)=""
tmp(2)=""
tmp(rsR("Kind"))="checked"


response.write"<input type='radio' name='Kind'" & rsR("id") & "' value='1'" & tmp(1) & ">精"
response.write"<input type='radio' name='Kind'" & rsR("id") & "' value='2'" & tmp(2) & ">酷"
response.write"<input type='radio' name='Kind'" & rsR("id") & "' value='0'" & tmp(0) & ">无"
%>

[123xie]

谢谢 qiqunet(无聊到在这里玩CSDN的干棍) 的耐心回复

问题解决了，用的是：

<script> window.form1.Manage<%=rsR("id")%>.value="<%=rsR("Kind")%>"; </script>

就可以了

这种书写格式：window.form1.Manage<%=rsR("id")%>. 以前未用过，是你语法启示了我，你第二种格式，我这次就不试了。谢谢你。

[123xie]

不过，这种方法对单选按钮赋值无效。我以前没做过对单选按钮赋值，不知问题出在哪儿