老师们：
    选定或取消选定复选框，怎么判断不了？
判断：如选定，则显示“好”，否则显示“坏”
<%
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
%>

request("XIAN")要提交表单后才能有值。
如果你想点击复选框时就有提示，那请用JS

恩,checkbox必须配合javascript来使用
<script language="javascript">
//表单提交
function submit_Click()
{
   //判断是否选中
   if(document.form1.XIANChk.checked)
      document.form1.XIAN.value="1";
   else
      document.form1.XIAN.value='0';
   document.form1.action=self.location.href;//提交到当前页
   document.form1.submit();//提交表单
}
</script>
<form name="form1" method="post" target="_self">
<%
XIAN=trim(request.Form("XIAN"))
response.Write "<input name='XIANChk' type='checkbox' id='XIAN' value='1' checked/>  显示数据"
If XIAN=1 Then
response.Write "好"
Else
response.Write "坏"
End If
%>
  <input type="button" name="submit" onclick="submit_Click();" value="提交" />
  <input type="hidden" name="XIAN" value='1' />
</form>

[ 本帖最后由 yms123 于 2011-5-16 17:22 编辑 ]

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

<script language="javascript">
//表单提交
function submit_Click()
{
   //判断是否选中
   if(document.form1.XIANChk.checked)
      document.form1.XIAN.value="1";
   else
      document.form1.XIAN.value='0';
   document.form1.action=self.location.href;//提交到当前页
   document.form1.submit();//提交表单
}
</script>
<form name="form1" method="post" target="_self">
<%
XIAN=trim(request.Form("XIAN"))
response.Write "<input name='XIANChk' type='checkbox' id='XIAN' onclick="submit_Click();" value='1' checked/>  显示数据"
If XIAN=1 Then
response.Write "好"
Else
response.Write "坏"
End If
%>
   <input type="hidden" name="XIAN" value='1' />
</form>
把提交表单事件注册到复选框不就不用点提交了？

谢谢老师，但报错

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

<script language="javascript">
//表单提交
function submit_Click()
{
   //判断是否选中
   if(document.form1.XIANChk.checked)
      document.form1.XIAN.value="1";
   else
      document.form1.XIAN.value='0';
   document.form1.action=self.location.href;//提交到当前页
   document.form1.submit();//提交表单
}
</script>
<form name="form1" method="post" target="_self">
<%
XIAN=trim(request.Form("XIAN"))
response.Write "<input name='XIANChk' type='checkbox' id='XIAN' onclick='submit_Click();' value='1' checked/>  显示数据"
If XIAN=1 Then
response.Write "好"
Else
response.Write "坏"
End If
%>
   <input type="hidden" name="XIAN" value='1' />
</form>
忘了要用单引号

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

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

If XIAN=1 Then 改成 If XIAN="1" Then

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