老师们：
    选定或取消选定复选框，怎么判断不了？
判断：如选定，则显示“好”，否则显示“坏”
<%
XIAN=trim(request("XIAN"))
response.Write "<input name='XIAN' type='checkbox' id='XIAN' value='1' checked>  显示数据</td>"
If XIAN=1 Then
response.Write "好"
Else
response.Write "坏"
End If
%>

感谢老师！但我需要的是不用点击提交按钮（只需要点击复选框）就能实现！

谢谢老师，但报错

=======================================
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: '[string: ""]'
/lottery/Untitled-1.asp, 第 19 行
.........................
If XIAN=1 Then‘19行
.........................
======================================
还有：onclick="submit_Click();" 中是否可以不用双引号？

感谢老师：
    还是报错：
=====================================
错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: '[string: ""]'
/lottery/Untitled-12.asp, 第 18 行 （ If XIAN=1 Then  ）

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

把If XIAN=1 Then 改成 If XIAN="1" Then 后
复选框永远是打勾的状态，没响应了！！

感谢几位老师！
经调试，liang198207老师的可以实现结果，但无法加到我的代码段里；
yms123老师的代码可以加到我的代码段里，但运行还是不对，类型错误哦！！！

是的，Cint类型错误！