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

tfhui928 2003-07-28 08:19:18

大家看看：帮帮忙：看是出了什么问题；点击了一个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>

...全文

104 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

wdwd05 2003-07-29

打赏
举报

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

<% '删除记录
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" 
%>

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

wdwd05 2003-07-29