首页 » 建站技术 » 浏览内容

[ASP&SQL] 批量删除


2007-02-26 08:56:42 7,172 0 发表评论 字体: 作者:C.K.
标签: sql语句

体验版 88 元,个人版 128 元,多用户版 288元个人版160元升级到多用户版。

问:
譬如想删除 自动编号为 20-40 之间的记录,用sql语句怎么表示呢?

答1:

delete from 表名 where id>20 and id<40 答2:
建议使用:
delete from table where id>'20' and id<'40'

一个完整例子

<form name=sczl action=prod_code.asp?action=delother&id=<%=request("id")%> method=get><br/>制造命令: <input type="text" name="id" size="23" title="删除同一个制造命令的所有激光序列号"><br/><input type="submit" name="action" value="批量删除" onclick="{if(confirm(&#39;确定批量删除该制造命令?&#39;)){this.document.Prodlist.submit();return true;}return false;}" title="删除同一个制造命令的所有激光序列号"><br/></form><br/><br/><form name=scxl action=prod_code.asp?action=delotherc&id=<%=request("id")%>&id1=<%=request("id1")%> method=get><br/>序列号: <input type="text" name="id" size="10" title="输入开始序列号"> -> <input type="text" name="id1" size="10" title="输入结束序列号"><br/><input type="submit" name="action" value="批量删除序列号" onclick="{if(confirm(&#39;确定批量删除激光序列号?&#39;)){this.document.Prodlist.submit();return true;}return false;}" title="批量删除激光序列号"><br/></form><br/><br/><%<br/><br/>if action="批量删除" Then<br/>delzl=replace(request("id")," ","")<br/>call delother()<br/>end if<br/><br/>if action="批量删除序列号" Then<br/>delzlc=replace(request("id")," ","")<br/>delzlc1=replace(request("id1")," ","")<br/>call delotherc()<br/>end if<br/><br/>&#39;删除某一字段相同的所有记录<br/><br/>sub delother()<br/>conn.execute("delete from 数据表 where 字段=&#39;"&delzl&"&#39;")<br/>response.redirect "重新定向网址"<br/>end Sub<br/><br/>*************************** 例子 ***************************<br/><br/>sub delother()<br/>conn.execute("delete from scode where ProdDisc=&#39;"&delzl&"&#39;")<br/>response.redirect "prod_code.asp"<br/>end Sub<br/><br/>============================================================<br/><br/>&#39;删除连续的多条记录<br/><br/>sub delotherc()<br/>For i=开始 to 结束<br/>conn.execute("delete from 数据表 where 字段=&#39;"&i&"&#39;")<br/>next<br/>response.redirect "重新定向网址"<br/>end sub<br/><br/>*************************** 例子 ***************************<br/><br/>sub delotherc()<br/>For i=delzlc to delzlc1<br/>conn.execute("delete from scode where Model=&#39;"&i&"&#39;")<br/>next<br/>response.redirect "prod_code.asp"<br/>end sub<br/><br/>%>

以下代码未测试,仅做参考!

开发语言是asp   加   access!  
   
 想做到的是把表里的记录显示出来,然后在每条记录前加个checkbox,要删除的话就选中,然后在最后提交!  

test.asp  

 &nbsp; <%<br/> dim conn<br/> dim connstr<br/> on error resume next<br/> connstr="DBQ="+server.MapPath("data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"<br/> set conn=server.CreateObject("ADODB.CONNECTION")<br/> conn.open connstr<br/> %>       <br/>  <%<br/> &#39;遍历每个选中的checkbox,取其值.其值为对应的数据id<br/> &#39;conn.Execute来删除记录.<br/><br/> for each iselects in Request.Form("chkid")<br/> conn.Execute("delete * from test where id="&CInt(iselects))<br/> next<br/> %>   <br/>  <form action="test.asp" method="post"><br/>  <%<br/> sql="Select * from test"<br/> set rs=Server.CreateObject("ADODB.Recordset") <br/> rs.open sql,conn,1,1<br/> do until rs.eof<br/> %><br/>  <input type="checkbox" name="chkid" value="<%=rs("id")%>"><%=rs("num")%><br/><br/>  <%<br/>rs.movenext<br/>loop<br/>%>   <br/>  <input type="submit" value="Del"><br/><br/>  </form>

 数据库data.mdb  
 表test  
 字段id,num,

    网站统计 Statistics

    • 创建时间: 2005年1月3日 距今4888 天
    • 日志总数: 2461
    • 评论总数: 630
    • 标签总数: 654
    • 链接总数: 273
    • 最后更新: 2017-7-1 18:16:33
    • 您是本站第 13544005 位访客

    广告区 Guǎng Gào