ASP在页面显示多条数据库记录,要做投票页面,单选按钮出现问题
整个页面有3挑记录都带有单选按钮,结果就是3个问题只能点一个单选按钮!怎么处理啊!<%ifnotrsVote.eofthenpages=2rsVote.pageSize=...
整个页面有3挑记录都带有单选按钮,结果就是3个问题只能点一个单选按钮!怎么处理啊!
<%
if not rsVote.eof then
pages = 2
rsVote.pageSize = pages
allPages = rsVote.pageCount '计算一共能分多少页
if isEmpty(page) or Cint(page) < 1 then
page = 1
elseif Cint(page) > allPages then
page = allPages
end if
rsVote.AbsolutePage = page
j=1
Do while not rsVote.eof and pages > 0
%>
。。。。。。
<td align="center"> <%
if rsVote("VoteType")="Single" then
for i=1 to 8
if trim(rsVote("Select" & i) & "")="" then exit for
response.Write "<input type='radio' name='VoteOption' value='" & i & "' style='border:0'>" & rsVote("Select" & i) & "<br>"
next
response.Write("-------------------------------------------------------------------------------------------------------------------------------------------------")
else
for i=1 to 8
if trim(rsVote("Select" & i) & "")="" then exit for
response.Write "<input type='checkbox' name='VoteOption' value='" & i & "' style='border:0'>" & rsVote("Select" & i) & "<br>"
next
response.Write("-------------------------------------------------------------------------------------------------------------------------------------------------")
end if
%>
</td>
。。。。。。
<%
pages = pages - 1
rsVote.MoveNext
j=j+1
Loop
else
Response.Write("数据库暂无内容!")
End if
%> 展开
<%
if not rsVote.eof then
pages = 2
rsVote.pageSize = pages
allPages = rsVote.pageCount '计算一共能分多少页
if isEmpty(page) or Cint(page) < 1 then
page = 1
elseif Cint(page) > allPages then
page = allPages
end if
rsVote.AbsolutePage = page
j=1
Do while not rsVote.eof and pages > 0
%>
。。。。。。
<td align="center"> <%
if rsVote("VoteType")="Single" then
for i=1 to 8
if trim(rsVote("Select" & i) & "")="" then exit for
response.Write "<input type='radio' name='VoteOption' value='" & i & "' style='border:0'>" & rsVote("Select" & i) & "<br>"
next
response.Write("-------------------------------------------------------------------------------------------------------------------------------------------------")
else
for i=1 to 8
if trim(rsVote("Select" & i) & "")="" then exit for
response.Write "<input type='checkbox' name='VoteOption' value='" & i & "' style='border:0'>" & rsVote("Select" & i) & "<br>"
next
response.Write("-------------------------------------------------------------------------------------------------------------------------------------------------")
end if
%>
</td>
。。。。。。
<%
pages = pages - 1
rsVote.MoveNext
j=j+1
Loop
else
Response.Write("数据库暂无内容!")
End if
%> 展开
1个回答
展开全部
这样写看起来没什么问题,只要input的type="radio"并且name值是一样就只能选一个
追问
有没什么方法可以弄?
要在数据库掉出问题跟选择内容,
多条题目
怎么让他可以没条题目选一个单选按钮
追答
原来你是要这个意思:你的代码变成多个题目,答案无论怎么选都只能选一个
response.Write "" & rsVote("Select" & i) & ""
response.Write "" & rsVote("Select" & i) & ""
这两句里面的name='VoteOption'修改成不一样就行了,如:
response.Write "" & rsVote("Select" & i) & ""
这样有多个调查选项的时候name值就会变成VoteOption1,VoteOption2,VoteOption3....
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询