Question

ASP代码如何将单选按钮改成复选按钮啊？

现有1.ASP 代码 <input type="radio" value=<%=rs("ID")%><%if rs("inuse")=1 then%> checked<%end if%> name="inuse">单选按钮的代码。
当我把代码改成复选按钮
<input type="checkbox" value=<%=rs("ID")%><%if rs("inuse")=1 then%> checked<%end if%> name="inuse">时候，IE浏览器就假死了，不给修改。这个代码提交到代码
<%IF request.cookies(eChsys)("KEY")<>"super" THEN
Show_Err("对不起，您的后台管理权限不够操作！")
response.end
else
if ggmanage="1" or (request.cookies(eChsys)("ManagePurview")="99999" and request.cookies(eChsys)("purview")="99999") then
inuse=request.form("inuse")
if inuse="" then
Show_Err("对不起，请您选择公告项！<br><br><a href=history.go(-1)>返回</a>")
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="Select inuse from "& db_EC_Board_Table &" where inuse=1"
rs.open sql,conn,1,3
if not rs.eof then
do while not rs.eof
rs("inuse")=0
rs.movenext
loop
end if
rs.close

sql="Select * from "& db_EC_Board_Table &" where ID="&inuse
rs.open sql,conn,1,3
if not rs.EOF then
do while not rs.EOF
rs("inuse")=1
rs.MoveNext
loop
end if
rs.close
set rs=nothing
dim title
set rs=server.createobject("adodb.recordset")
sql="select * from "& db_EC_Board_Table &" where inuse=1"
rs.open sql,conn,1,1
title=rs("title")
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "E_BoardManage.asp"
else
Show_Err("对不起，该功能已经被超级系统管理员关闭，您没有权限操作！")
response.end
end if
end if%>
那位大侠帮忙看下是什么原因啊？单选按钮改成复选按钮就IE就死了

Answer 1

如果值不是很多的话，不回假死的吧，

追问

2个也会假死?我觉得是代码问题，当复选框选一个值的时候没假死，在多选一个就假死

追答

你的复选框没有任何动作啊，例如选中激发什么的，只是单纯的选而已
你可以这样，执行页面后，右键查看源代码，看看出来的html有没有问题

想起来了，你说的假死是你复选后提交假死，还是你选框子假死

追问

提交后假死！

追答

能把程序打包放在百度盘，私信我，我看看，不方便没关系，

追问

发给你了

追答

懂了，默认公告只显示一项，对吧，

<% 
if request.cookies(eChuang)("KEY")<>"super" then 
 Show_Err("对不起，您的后台管理权限不够操作！")
 response.end
else
 inuse=request.form("inuse")
  if inuse="" then
  Show_Err("对不起，请您选择公告项！<br><br><a href=history.go(-1)>返回</a>")
  response.end
 end if
 set rs=server.createobject("adodb.recordset")
 sql="Select inuse from "& db_board_Table &" where inuse=1"
 rs.open sql,conn,1,3
 if not rs.eof then
  do while not rs.eof
   rs("inuse")=0
  rs.movenext
  loop
 end if
 rs.close 
 
 inusearr = split(inuse,",")
 y = ubound(inusearr) 
 for x = 0 to y
  set rs = Server.CreateObject("ADODB.Recordset")
  sql="Select * from "& db_board_Table &" where id="&trim(inusearr(x))
  response.write sql & "<br>"
  rs.open sql,conn,1,3
  if not rs.EOF then
   rs("inuse")=1
   response.write rs("id") & "<br>"
   rs.Update
  end if
 next
 rs.close
 set rs=nothing
 response.redirect "E_BoardManage.asp"
end if 
%>

 然后修改E_Daodu.asp

因为默认只读取一条公告，所以要改成全部取出来