Question

asp 中复选框的值更改问题~~超急

<form name="form1" method="post" action="shenhe.asp">
<% if rs("tzb_sh")=ture then %>
已审核
<% Else %>
<input type="checkbox" name="shenhe" value="<%= rs("tzb_sh") %>">
<% End If %>
<input type="submit" name="Submit3" value="提交">
</form>
我有一段这样的话，是从数据库读出rs("tzb_sh")值后判断，没有问题

shenhe.asp

dim id,sh
id=Trim(Request.QueryString("id"))
sh=Request.Form("shenhe")
if sh=flase then
response.write"<SCRIPT language=JavaScript>alert('请勾选您要通过的选项');"
response.write"this.location.href='glxw.asp';</SCRIPT>"
else
set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from tzb where tzb_id="&id&""
rs.open sql,conn,3,3
rs("tzb_sh")=0
rs.update
rs.close
set rs=nothing
response.write"<SCRIPT language=JavaScript>alert('审核成功');"
response.write"this.location.href='glxw.asp';</SCRIPT>"
end if
%>
我想要的效果是点了复选框提交可以使得该纪录的也变为已审核
是点提交到shenhe.asp之后将原来的复选框的值由勾选状态变为不勾选，我原来的值是1

Answer 1

<form name="form1" method="post" action="shenhe.asp">
<% if rs("tzb_sh") then %>
已审核
<% Else %>
<input type="checkbox" name="shenhe" value="1" <%if rs("tzb_sh") then response.write "checked" '这里要改一下，复选框选中与否跟他的value无关%> >
<% End If %>
<input type="submit" name="Submit3" value="提交">
</form>

shenhe.asp

dim id,sh
id=Trim(Request.QueryString("id"))
sh=Request.Form("shenhe")&"" ''如果未选中Request.Form("shenhe")是空值， 选中就不为空,具体值根据复选框的value属性决定
'这里是<input type="checkbox" name="shenhe" value="1" <%if rs("tzb_sh") then response.write "checked" %> >，所以选中则Request.Form("shenhe")等于"1"
if sh="" then
response.write"<SCRIPT language=JavaScript>alert('请勾选您要通过的选项');"
response.write"this.location.href='glxw.asp';</SCRIPT>"
else
set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from tzb where tzb_id="&id&""
rs.open sql,conn,3,3
rs("tzb_sh")=0 '这里应该不是0吧，能施行到这里是选中状态，0对应的是false
rs.update
rs.close
set rs=nothing
response.write"<SCRIPT language=JavaScript>alert('审核成功');"
response.write"this.location.href='glxw.asp';</SCRIPT>"
end if
%>

Answer 2

你在数据库中已经审核的纪录是tzb_sh=1还是0呢？如果是1的话。你的语句 rs("tzb_sh")=0 应该是rs("tzb_sh")=1，然后再更新！
--------------------------------------------------------------
因为你每次审核成功后，返回页面。页面glxw.asp会从数据库中取tzb_sh值强行给checkbox. 你要想不勾选状态就：
<% if rs("tzb_sh")=0 then %>
已审核
<% Else %>
<input type="checkbox" name="shenhe" checked="false">
<% End If %>
不知道有没有理解你的意思。

Answer 3

搜索一下

1、客户端用 myform.checkboxname.checked；
2、服务器端用 Request.Form("checkboxname")

判断该复选框的是否有值就行了！
这样：<% if (Request.Form("该复选框的名字")<>"") then .......end if%>

Answer 4

我没明白 ...

是点复选框这个动作可以改变数据库的内容 ...?

Answer 5

<form name="form1" method="post" action="shenhe.asp">
<% if rs("tzb_sh")=ture then %>
已审核
<% Else %>
<input type="checkbox" name="shenhe" value="<%= rs("tzb_sh") %>">
<% End If %>
<input type="submit" name="Submit3" value="提交">
</form>
我有一段这样的话，是从数据库读出rs("tzb_sh")值后判断，没有问题

shenhe.asp

dim id,sh
id=Trim(Request.QueryString("id"))
sh=Request.Form("shenhe")
if sh=flase then
response.write"<SCRIPT language=JavaScript>alert('请勾选您要通过的选项');"
response.write"this.location.href='glxw.asp';</SCRIPT>"
else
set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from tzb where tzb_id="&id&""
rs.open sql,conn,3,3
rs("tzb_sh")=0
rs.update
rs.close
set rs=nothing
response.write"<SCRIPT language=JavaScript>alert('审核成功');"
response.write"<script>opener.document.shenhe.checked=false </script>"
response.write"this.location.href='glxw.asp';</SCRIPT>"
end if
%>

response.write"<script>opener.document.shenhe.checked=false </script>"
如果点击提交之后，可以将原来的复选框由勾选状态变为不勾选。

Answer 6

不是很明白您的意思