怎么才能删除多条记录？ - ASP

泪在爱上雕刻

电梯直达

1^#

发表于 2010-1-9 01:09:30 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

在给大家提议个问题就是管理员怎样才能把选中的数据都删除呢？
我定义了checkbox，然后选中一个可以删除的掉，但是选中多个就删除不了？
这种情况语句该怎么定义啊？
谢谢！

收藏0

使用道具举报

生活的成功者

2^#

发表于 2010-1-9 01:09:33 | 只看该作者

这个有点复杂 javascript + asp 一起并用

<script language="javascript">
function CheckAll(form){
for (var i=0;i<form.elements.length;i++){
var e = form.elements[i];
if (e.name != 'chkall') e.checked = form.chkall.checked;
}
}
</script>
<%
if request.form("action")="批量删除" then
delid=request.form("delid")
if delid<>"" and not isnull(delid) then
conn.execute "delete from UserMain where id in ("&delid&")"
end if
%>
<form action="" method="post">
<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from UserMain order by id desc",conn,1,1
do while not rs.eof
%>
<input type="checkbox" name="delid" value="<%=rs("id")%>" />
<%
rs.movenext
loop
rs.close
set rs=nothing
%><br />
<input type="checkbox" name="chkall" onclick="CheckAll(this.form);" />
<input type="submit" name="action" value="批量删除" />
</form>

回复支持反对

使用道具举报

金马

3^#

发表于 2010-1-9 01:09:37 | 只看该作者

把定义为checkbox是循环的，值定义为记录ＩＤ号
在提交以后提取checkbox的值，就是所有选中的多个会用,隔开
再用split把它分开，做个循环就可以了

回复支持反对

使用道具举报

┈ㄝai〾噯儿

4^#

发表于 2010-1-9 01:09:41 | 只看该作者

这是我的那个表单你看一下,我是从这样做的
我修改了一下你的代码
但是循环了好些文本框
这个我知道,现在我就是想知道把这个表单提交到下一个页面,那么下一个页面该怎么写语句?是asp
您那有关于这个的代码吗?
谢谢!

<script language="javascript">
function check(){
var nlength = document.delete1.chk.length
var i
for (i=0;i<nlength;i++){
delete1.chk(i).checked=true

}

}
function check1(){
var nlength = document.delete1.chk.length
var i
for (i=0;i<nlength;i++){
delete1.chk(i).checked=false

}

}
</script>
<style type="text/css">

</style>

<center>
<h1 class="STYLE3"><span class="STYLE2">管理员删除留言页面</span> </h1>
</center>
<table width="79%" height="58" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#999999">
<form action="delete.asp" name="delete1" method="post" >
<tr>
<td bgcolor="#FFFFFF"></td>
<td align="center" bgcolor="#FFFFFF">用户名</td>
<td align="center" bgcolor="#FFFFFF">邮箱</td>
<td align="center" bgcolor="#FFFFFF">主题</td>
<td align="center" bgcolor="#FFFFFF">内容</td>
<td align="center" bgcolor="#FFFFFF">提交时间</td>

</tr>
<%while not rs.eof%>
<tr>
<td bgcolor="#FFFFFF"><input type="checkbox" value="<%=rs.fields("id")%>" name="chk"></td>
<td bgcolor="#FFFFFF"><%=rs.fields("uname")%></td>
<td bgcolor="#FFFFFF"><%=rs.fields("umail")%></td>
<td bgcolor="#FFFFFF"><%=rs.fields("subject")%></td>
<td bgcolor="#FFFFFF"><%=rs.fields("comments")%></td>
<td bgcolor="#FFFFFF"><%=rs("adtime")%></td>

</tr>
<%
rs.movenext

wend

rs.close
conn.close
%>
<tr><td colspan="6" bgcolor="#FFFFFF"><center><input type=button name="chk" value="全选" onclick="check()"><input type="submit" name="delete" value="删除"><input type=button name="chk" value="全不选" onclick="check1()"></center></td></tr>
</form>

</table>

回复支持反对

使用道具举报

■．王锋◇

5^#

发表于 2010-1-9 01:09:45 | 只看该作者

delID=request.Form("ID")
if delID="" then
response.write"<SCRIPT language=JavaScript>alert('错误的参数？');"
response.write"javascript:history.go(-1)</SCRIPT>"
end if
if instr(delID,",")>0 then
id=split(delID)
for i = 0 to ubound(id)
call Delinfo(clng(id(i)))
next
else
call Delinfo(delID)
end if