点击了一个Button(删除）安钮就可删除选中了的复选框的相关记录?看看代码是什么原因？？

[tfhui928]

大家看看：帮帮忙：看是出了什么问题；点击了一个Button(删除）安钮就可删除选中了的复选框的相关记录，（可我点击第一次没有删除，点第二次就删除了第一次选中的复选框的记录，还有不能删除选中的多条记录）。


<HTML>
<HEAD></HEAD>
<body text="#0000ff" bgColor="#ffffcc">
<form name="from" action="del.asp" method="post">
<TABLE id="Table2" cellSpacing="1" cellPadding="1" width="692" align="center" border="1">
<TR class="title" align="middle">

<td width="95">
<div align="center"><font color="#0000ff">机房房间号</font></div>
</td>

<TD width="117" height="27">
<P align="center"><font color="#0000ff">机房管理员编号</font></P>
</TD>

<TD width="55">
<div align="center"><font color="#0000ff">机器数</font></div>
</TD>

<TD width="242">
<div align="center"><font color="#0000ff">软件说明</font></div>
</TD>

<TD width="113">
<div align="center"><font color="#0000ff">机房说明</font></div>
</TD>

<TD width="37">
<div align="center"><font color="#0000ff">
<input type="submit" value="删除" name="delchk">
</font></div>
</TD>
</TR>
<%
'输出记录
Set conn = Server.CreateObject("ADODB.Connection")
'DBPath = Server.MapPath("../database/softschool.mdb")
DBPath = Server.MapPath("softschool.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "lab_information", conn, adOpenDynamic, adLockPessimistic

if not (rs.EOF and rs.BOF) then
rs.MoveFirst
do while not rs.EOF
response.Write "<tr class=txtbg align=center>"

response.Write "<td>"
response.Write rs("lab_room_id")
response.Write "</td>"

response.Write "<td>"
response.Write rs("lab_administrator")
response.Write "</td>"

response.Write "<td>"
response.Write rs("lab_computers")
response.Write "</td>"

response.Write "<td>"
response.Write rs("lab_software")
response.Write "</td>"

response.Write "<td>"
response.Write rs("lab_description")
response.Write "</td>"

response.Write "<td>"
%>
<INPUT type="checkbox" name="chkdel" value="<%=rs("lab_room_id")%>">
<%
response.Write "</td>"
response.Write "</tr>"
rs.MoveNext
loop
end if
rs.Close
conn.Close
%>

<% '删除记录
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("softschool.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
ary = split(request("chkdel"),",")
for i=0 to ubound(ary)
conn.execute("delete from lab_information where lab_room_id='"&ary(i)&"'")
next
response.redirect "lab_manage.asp"
%>
</TABLE></form>
<p align="center"><FONT face="宋体"></FONT> </p>
</P>
<div align="center"></div>
</body>
</HTML>

[wdwd05]

其实你现在要解决的问题是，当你选中一个复选框的时候怎么去判断你选中了这条记录~

你告诉我你怎么解决你选中的复选框的值~我就告诉你怎么解决，因为我刚学ASP，确实不太懂，但这个问题，我可以在别的语言里面解决的~代码我看的懂，但ASP我确实不太懂，刚刚在学，所以你先告诉我怎么判断你选中了复选框的值~

[wdwd05]

我在看书发现一个问题~

<INPUT type="checkbox" name="chkdel" value="<%=rs("lab_room_id")%>">

这句话可以在每条记录前面都+ 上复选框吗？就算是能+上，他们的NAME都相同好象不太对吧？

[babyhome000]

response.redirect "lab_manage.asp就是跳转到"lab_manage.asp这个文件啊！

[wdwd05]

楼主，你真TMD不够意思，~~以后不要指望我给你回答问题~

怎么说我也算是给你解决问题了~

你一分都不给我，你真TMD恶心~

[wdwd05]

终于有眉目了~~也算是帮你解决了~

<% '删除记录
dim Str_check,Str_Array,x,y
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("softschool.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Str_check=request.form("chkdel")
Str_Array =Split(Str_check, ",")
For Each x in Str_Array --取出你所选中的数据
y=y & "'" & trim(x) & "',"
next
y=left(y,len(y)-1) --把数据转换一下格式，转换成SQL接受的格式
conn.execute("delete from lab_information where lab_room_id in (" & y & ")")
response.redirect "lab_manage.asp" <!--这句话我不明白是什么意思，我还没看到这里，所以保留，你自己看看在说，呵呵-->
%>

我想上面的就可以解决你的问题~~~如果正确请结分，如果错了请留言~~~应该没有问题~呵呵~冲级中