javascript - 允许单选按钮仅被选中一次以选择其唯一值

Question

SQL 语句返回“n”行。效果很好。对于返回的每一行，我希望用户选择一个选项(Pass=1、Fail=2、NA=3)，并在提交时将这些值(1、2、3)插入数据库表中。

但是，当我尝试获取用户选择的单选按钮的值以及其他值(例如 CategoryID 或 SubcatID)时，我遇到了问题。

动态HTML表单是这样的:

Category table
CategoryID   Category
------------
01      cat
02      cat 2
03      cat 3

Subcat table
SubcatID   Subcat   Category_id
-------------------------
1       Jenny     01
2       Emmy      01
3       James      02
4       Hudson     02
5       Mike      03

报表输出应该是:

ReportID   CategoryID   SubcatID   Scale
------------------------------------------
1          01           1          1
2          01           2          1
3          02           3          2
4          02           4          2
5          03           5          3

也就是说，每次提交表单时，都会向表中插入5条记录。如果我在主类别中添加另一个子类别，则表中将添加 6 条记录。

目前，报告表显示的是这样的，这是错误的:

ReportID   CategoryID   SubcatID   Scale
------------------------------------------
1      01, 02, 03   1, 2, 3, 4, 5   empty

这是我的 ASP 代码:

If Request.Form("FormSource") = "SubmitForm" Then
   sReportID = Request.Form("ReportID")
   sCategoryID = Request.Form("CategoryID")
   sSubcatID = Request.Form("SubcatID")
   sScale = Request.Form("Scale")

SQL = "SET NOCOUNT ON;" &_
    "INSERT INTO Report (ReportID, CategoryID, SubcatID, Scale) VALUES " &_
    "('" & SCategoryID & "', '" & SSubcatID & "', '" & SCategoryID & "', '" & SScale & "');" &_
    "SELECT @@IDENTITY AS ReportID"
Set  objRS = objCon.Execute (SQL)
    sReportID = objRS.Fields("ReportID").value
objRS.Close
End If
%>

<form action="" method="post" id="newCategory">
<table>
<tr>
<td>Category and sub</td>
<td>Pass</td>
<td>Fail</td>
<td>NA</td>
</tr>

<%
  currCat = ""
  sSQL = "SELECT s.*, c.* FROM Category c, Subcat s WHERE s.Subcat_id = c.Subcat_id "
  objRS.Open sSQL, objCon
  response.Write sSQL
  Do Until objRS.EOF
    sCategory = objRS("Category")
    sSubcat = objRS("Subcat")

    if currCat <> sCategory Then
       currCat = sCategory 
    %>
<tr><td><%=sCategory%></td></tr>
        <input type="hidden" name="CategoryID" size="40" maxlength="50" value="<%=sCategory%>">
       <%
    End If
    %>
<tr><td><%= sSubcat %></td>
      <input type="hidden" name="SubcatID" size="40" maxlength="50" value="<%= sSubcat %>">
    <td><input size="20" type="radio" name="<%=sCategory%>" value="1"></td>
    <td><input size="20" type="radio" name="<%=sCategory%>" value="2"></td>
    <td><input size="20" type="radio" name="<%=sCategory%>" value="3"></td>
</tr>
<%
    objRS.MoveNext
  Loop

   objRS.Close
%>
</table>
<input type="hidden" name="FormSource" value="CatSubmit">
<input type="button" value="Update" onclick="submitForm();">

非常感谢!

Answer 1

我认为您想要做的是使用 SubcatID 而不是 CategoryID 来命名单选按钮组，因为 subcat 是表中每一行的唯一名称。正如您所发现的，使用类别ID 会导致多个单选按钮值聚集在一起，并用逗号分隔。

您可以为输入指定一个名称，例如 subcatX，其中 X 是该行的实际 SubcatID。例如:

<input type="radio" name="subcat<%= sSubcat %>" value="1">

当您加载页面来处理表单数据时，您将知道您对哪些子目录感兴趣，并迭代它们以查找与其关联的表单数据是否存在。伪代码看起来像这样:

(for all subcatIDs you care about)
    val = Request.Form("subcat" & subcatID)
    If val <> "" Then
       ...

PS。您的单选按钮不需要 size 属性，您的隐藏表单字段也不需要 size 或 maxlength。

其他信息:如何通过迭代 Request.Form 来查找表单字段

这段代码应该可以帮助您准确地发现您要发回的内容，以便您可以对其进行分析并获取正确的子目录 ID。如果你这样做，你甚至不需要提前知道你的 friend 的名字，因为你可以遍历所有它们并检查它们是否与你的模式匹配。

    <%
        Dim i, key, val
        For Each i In Request.Form
            key = Request.Form.Key(i)
            val = Request.Form.Item(i)
            Response.Write key & " = " & val & "<br>"
        Next
    %>
    <form action="?" method="post">
        <input type="hidden" name="a" value="A" />
        <input type="hidden" name="a" value="B" />
        <input type="hidden" name="c" value="C" />
        <input type="submit" />
    </form>

如果你单独运行它，你会发现输出是

a = A, B
c = C

请注意值 A 和 B 是如何自动串在一起的，因为它们具有相同的字段名称。您想避免这种情况。