Динамические флажки в asp

Question

Как получить значения из динамически созданной группы флажков, используя asp classic? Кажется, что, когда я выбираю свои флажки и нажимаю submit, нет никаких значений, переданных при первом щелчке, но когда я нажимаю его снова, они появляются.

Как исправить это без жесткого кодирования флажков в форме?

Answer 1

У меня был другой элемент управления на странице (раскрывающийся список), и я запустил событие onchange. Событие onchange вызовет нажатие кнопки для кнопки отправки форм. Это имитировало первый клик. По какой-то причине потребовалось два клика, чтобы связать форму с значениями флажка, так что onchange имитировал первый клик, а регулярная кнопка - вторая.

Answer 2

Один из способов, которым я сделал это, состоял в том, чтобы содержать список идентификаторов флажков, разделенных запятыми, и каждый раз, когда был установлен флажок, добавьте идентификатор в список через javascript. Когда страница отправляется, я добавляю этот список в качестве переменной запроса. Загружая страницу, я определяю, установлен ли этот идентификатор флажка в списке, и если это так, я установил для его проверенного атрибута значение true.

Я сделал это навсегда, поэтому, пожалуйста, извините меня, если это не ясно.

Answer 3

Здесь вы идете

<% OPTION EXPLICIT %> 
<% 

sub echo(X) 
    response.write x 
end sub 

echo "<form method='post'>" 
dim i 
for i = 1 to 5 
    echo "<input type='checkbox' name='checkboxes' value=" & i & " />" & i & "<br />" 
next 
echo "<input type='submit' value='Show me the checkboxes'>" 
echo "</form>" 

echo "<br />Selected items: " & request("checkboxes") 


%> 

Answer 4

Так как я предполагаю, что вы хотели бы сохранить состояние флажок во время постбэка я добавляю свою версию динамической генерации кода флажком:

<% 
    Dim checkboxes 
    Dim i 
    checkboxes = Array(1, 2, 3, 4) 

    For i = 1 To (UBound(checkboxes) + 1) 
     Response.Write "<input type=""checkbox"" name=""checkGroup"" value=""" & i & """" 

     If (UBound(Filter(Request.Form("checkGroup"), i, True, 1)) > -1) Then 
      Response.Write " checked" 
     End If 

     Response.Write " />" 
    Next 
%> 

---

Второй способ сделать это будет

<% 
    Dim checkboxes 
    Dim boxeschecked 
    Dim i 
    checkboxes = Array(1, 2, 3, 4) 
    boxeschecked = "," & Join(Request.Form("checkGroup"), ",") & "," 

    For i = 1 To (UBound(checkboxes) + 1) 
     Response.Write "<input type=""checkbox"" name=""checkGroup"" value=""" & i & """" 

     If Instr(boxeschecked, ("," & i & ",")) > 0 Then 
      Response.Write " checked" 
     End If 

     Response.Write " />" 
    Next 
%> 

Я помню, что использование Instr() действительно лучше, чем другие методы, лучше, чем переключение по массиву в любом случае.