Question

asp.net vb中怎么实现在选择题中 实现单选功能？我写了一段代码 但是由于name都一样所以在整个页面中只能

选择一个，我想用循环传递参数给name 但不是行啊，这要怎么办。
Do While dr.Read()
message.Text += " " & dr.Item("题号") + "、"

message.Text += " " & dr.Item("题目")
message.Text += "<br> " + "<br>"
message.Text += " <input id ='A'type ='radio' value='A' name ='i' runat ='server' />A、" & dr.Item("选项1") + "" + ""
message.Text += " <input id ='b'type ='radio' value='A' name = 'i'runat ='server' />B 、" & dr.Item("选项2") + "" + ""
message.Text += " <input id ='c'type ='radio' value='A' name ='i' runat ='server' />C 、 " & dr.Item("选项3") + "" + ""
message.Text += " <input id ='d'type ='radio' value='A' name ='i' runat ='server' />D、" & dr.Item("选项4") + "" + " "
message.Text += "<br> " + "<br>"
i = i + 1
Loop

Answer 1

你这个写法就有错，后台写ruant='server'的表单，在后台你也取不到啊。

你在后台也加一个按钮
message.Text += " <input id ='btn' type ='button' value='提交' name ='btn' onclick='form1.submit();' />" + " "

然后在page_load时间里面用 request["i"] 获取选择的项。像ID之类的可以放到hidden(隐藏域)中,最好放个type选项，这样可以区分要执行的内容

追问

问题就是这个页面就只能有一个能被选中，你说的添加一个按钮我不清楚是什么意思，您能帮我改下这段代码吗

追答

其实很简单的，首先把总数放到隐藏域中。
总数你自己取过去

然后命名，选项为s0,s1,s2,s3........
message.Text += " A、" & dr.Item("选项1") + "" + ""
message.Text += " B 、" & dr.Item("选项2") + "" + ""
message.Text += " C 、 " & dr.Item("选项3") + "" + ""
message.Text += " D、" & dr.Item("选项4") + "" + " "

后台取数据
titcount = request["titcount"]
for i=0 to titcount
s = request["s" + i] //这里获取选中的项
next

追问

不知道你这是什么意思 ，不过我把 name里的i 变成i.tostring() 就可以了 没那么麻烦

Answer 2

Do While dr.Read()
----->改为
i=1
Do While dr.Read()

追问

message.Text += " 这样？？
还是不行啊 还是整个页面只能选取一个

追答

Do While dr.Read()
----->改为
i=1
Do While dr.Read()

之后循环的i就是不同的值了

追问

Dim i As Integer
i=1
Do While dr.Read()

i = i + 1
Loop
和以前一样啊，是不是这里的 interger i 和 id='i' 或者name='i' 这里的 i 不是同一个值，也就是i参数没有传递过去，前面的i 是 数字 后面的i 是字符吧

追答

i=1
Do While dr.Read()
......

name ='i' 中的i 要是变量

追问

请问 这个 name='i' i怎么才能是变量 dim i as interger 不就已经声明了吗