Application of radio and checkbox in ASP

Search in Baidu

<Input type = "checkbox" name = "soft" Checked alue = "on"> Asp
<Input type = "checkbox" name = "soft" value = "on"> PHP
<Input type = "checkbox" name = "soft" value = "on"> JSP
Response. Write Request ("soft ")
Split (Request ("soft "),",")

If all three check boxes are selected, the displayed values are Asp, PHP, and JSP.

<Input type = radio name = R1 value = "ssss" Checked>
<Input type = radio name = R1 value = "dddd">

Obtain the value of ssss
 
<Input type = checkbox name = R1 value = "ssss" Checked>
<Input type = checkbox name = R1 value = "dddd" Checked>
<Input type = checkbox name = R1 value = "eeee">
The value is "ssss, dddd"

 

========================================================== ========================================================== ========================
<Input name = "allbox" type = "checkbox" value = "check all" onclick = "checkall ();">
<Script language = "JavaScript">
<! --
Function checkall ()
{
For (VAR I = 0; I <document. Form. elements. length; I ++)
{
VaR E = Document. Form. elements [I];
If (E. Name! = 'Allbox ')
E. Checked = Document. Form. allbox. checked;
}
}
// -->
</SCRIPT>

<TD width = "40" align = "center"> <center> <input type = "checkbox" name = "deletethis" value = "<% = RS (" ID ") %> "> </center> </TD>

<Input type = "Submit" name = "delete" value = "delete selected records">
If request ("delete") = "delete selected records" then
 
Strsql = "select * from" & mtable & "where jzbz = '1' and year = '" & myear & "' and month = '" & mmonth & "' and tsfl = "& mzzfl_id &" order by id desc"
Set RS1 = conn.exe cute (strsql)
If rs1.eof and rs1.bof then
'No accounting, you can delete it"
For each item in request ("deletethis ")
SQL = "delete from" & mtable & "where id =" & CINT (item)
Conn. Execute (SQL)
Next
Else
Merror = "this month has been recorded, do not delete"
End if
Rs1.close
Set RS1 = nothing

End if

 

======================================

<Input type = "radio" Checked = "<% = check_val (RS (" value ") %> value =" <% = RS ("value") %> ">
<%
Function check_val (STR)
If STR <> "" then
Response. Write "checked"
End if
End Function
%>