Question

我有一个SQL语句返回的“n”行数。它工作正常。对于返回的每一行，我都希望用户选择一个选项（Pass = 1，Fail = 2，NA = 3）并在提交时将这些值（1,2,3）插入到DB表中。

但是，当我尝试获取用户选择的单选按钮的值以及其他值（如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对于表中的每一行都是唯一的。使用categoryID将导致多个单选按钮值聚集在一起，用逗号分隔，如您所知。

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

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

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

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

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

其他信息：如何通过迭代Request.Form 找到您的表单字段

这段代码可以帮助您准确发现您回发的内容，以便分析并获取正确的子猫ID。如果你这样做，你甚至不需要提前知道你的恶魔的名字，因为你可以迭代所有这些并检查它们是否与你的模式匹配。

    <%
        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是如何自动串在一起的，因为它们具有相同的字段名称。你想避免这种情况。

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

1 个答案: