Question

Asp 复选框写入数据库的问题

i=1
do while not objert.eof
if objert("status")=1 then
%>
<TR>
<td><input type="hidden" name="id"/><%=objert("id")%></td>
<td height="44"><input type="checkbox" name="check" checked="checked"/></td>
<td><%=objert("status")%></td>
<%else%>
<td><%=objert("id")%></td>
<td height="44"><input type="checkbox" name="check"/></td>
<td><input type="hidden" name="status" /><%=objert("status")%></td>
<%end if%>

</TR>
<%
if i mod 6 then
response.Write"<br/>"
end if
i=i+1

objert.movenext
loop
%>

</table>
<input type="submit" name="sub" />

</form>
<%
on error resume next
Set objert=Server.CreateObject("ADODB.RecorDset")
Userck=request.Form("check")
sql1="select *from userstatus where status='"&request.Form("status")&"'"
objert.open sql,Con,1,3
if not objert.eof then
if request.Form("check")=true then
objert("status")=1
objert.update
response.Write"(～ o ～)~zZ"
else
objert("status")=0
response.Write"O(∩_∩)O哈哈~"
end if
end if
objert.close

%>
为什么更新不好呢 我当如果选中复选框状态就是1否则是0

Answer 1

首先给<input type="checkbox" name="check" value="1" />
这里给它赋值为1，下面就用下面的代码：
<%
on error resume next
Set objert=Server.CreateObject("ADODB.RecorDset")
Userck=request("check")
sql1="select *from userstatus where status='"&request("status")&"'"
objert.open sql,Con,1,3
if not objert.eof then
if Userck="1" then
objert("status")=1
objert.update
objert.close
response.Write"(～ o ～)~zZ"
else
objert("status")=0
objert.update
objert.close
response.Write"O(∩_∩)O哈哈~"
end if
end if
%>

Answer 2

又做一次更改，解决提交后不能即时看到更新结果的BUG
<%
on error resume next
if Trim(Request.Form("id"))<>"" then
idArr=Split(Replace(Trim(Request.Form("id"))," ",""),",")
For i = 0 to Ubound(idArr)
ThisStatus=0
if request.Form("status"&idArr(i))<>"" then ThisStatus=1
con.execute ( "update userstatus set status="&ThisStatus&" where id="&idArr(i))
next
end if
%>
<form method="post" name="form1">
<table align="center">
<%
Set objert=Server.CreateObject("ADODB.RecorDset")
sql="select * from userstatus"
objert.open sql,Con,1,1
do while not objert.eof
%>
<TR>
<td height="44"><input name="id" type="hidden" id="id" value="<%= objert("id") %>" />
<input name="status<%= objert("id") %>" id="status<%= objert("id") %>" type="checkbox" value="1"<% if objert("status")=1 then %> checked="checked"<% End If %>/></td>
</TR>
<%
objert.movenext
loop
objert.close
set objert=nothing
%>
</table>
<input type="submit" name="sub" />
</form>

Answer 3

第
复选框
value设
211.即<input
value="211">（
间部
省
）
第二
设alue值
985
add_sort.asp业内判断提交
值
if值
211
让数据库
211项
真
if值
985
执行另
操作
体
自
体
吧
另外
我想应该
单选框吧

Answer 4

把 checkbox 设上选定值 1，<input type="checkbox" name="check" checked="checked" value="1" />
<input type="checkbox" name="check" value="1" />

然后改
if request.Form("check")=true then 这一句为：
if request.Form("check")="1" then
然后

objert("status")=0后面加上objert.update