在循环中预先填充复选框

Question

我正在尝试预先填充Do..Loop中的复选框。 QueryString中的值与数据库中的值匹配。但在这种情况下，无论QueryString值是什么，都会检查所有复选框。

VBscript代码如下：

<%
Do While Not RS.EOF
    Designchk = Request.QueryString("Designer")
    Designchk2 = RS("Brand")

    If InStr(Designchk, DesignchkP2) Then
        chkd = "checked" 
    End If

    ListL = ListL & vbCrLf & "<li><label class='contR'>" & Designchk2 & _
            "<input type='checkbox' " & chkd & " name='Designer' value=" & _
            Designchk2 & "></label></li>"
    RS.MoveNext
Loop
%>

Answer 1

你永远不会在任何地方重置chkd，所以一旦检查它仍然是这样。

改变这个：

If InStr(Designchk, DesignchkP2) Then
    chkd = "checked" 
End If

进入这个：

chkd = ""
If InStr(Designchk, DesignchkP2) Then
    chkd = "checked" 
End If

问题就会消失。