求关于删除程序的代码写法...在线等

[yzone]

在以前设计后台管理的时候，删除页del.asp只针对某个数据表的删除，我尝试着把许多删除的程序集到一页中，但是这样会删除几个表中信息。曾经看到有些删除页中程序用到SUB代码，可以针对request到删除页的信息进行分类删除，互不影响，先求此代码！谢谢你们的帮忙！

[竹林听雨2005]

做个复选框：<input name="checkNum" type="checkbox" id="checkNum" value="<%=rs1("序号")%>">

<%'删除功能
if request("checkNum")="" then %>
<script language="javascript">
alert("对不起，请先选择要删除的记录!");
</script>
<%
elseif request("checkNum")<>"" and request("flag")="del" then'flag做个删除标记
sql=""
delCheck=split(request("checkNum"))
for i=0 to ubound(delCheck)
sql=sql&delCheck(i)
next
temp=""'得到准备删除的记录
sql2="select * from jdxx_sheng where 序号 in ("&sql&")"
set rs2=conn.execute(sql2)
while not rs2.eof
temp=temp&trim(rs2("仪器号码"))&"，"
rs2.movenext
wend
rs2.close
sql="delete from jdxx_sheng where 序号 in ("&sql&")"
conn.execute(sql)
Response.Write("<script>alert('记录巳经成功删除!');parent.location.href='index_sheng.asp'</script>")
end if
%>

[竹林听雨2005]

可以删除选定的任意数量的记录，程序仅作参考，可根据实际作改动。

[yzone]

谢谢！

[yzone]

还有没有用SUB代码写的删除程序！谢谢

[yuliang0828]

把那个东西封装一下不就是Sub了？这个楼主也不会吗？

[yzone]

别让帖子沉了，顶上去

[yzone]

我是新人，能给个容易懂的代码吗？

[comszsoft]

看来真是新手，给你个看看：

第一步：在显示数据的页面的表单form里 加2个 hidden元素
<input type="hidden" name="objTable" value="要删除数据的表名">
<input type="hidden" name="objId" value="要删除表的id名称">

第二步：sub 函数

objTable:要删除的表
objId:要删除的表的字段id标识
idvalue: 要删除的id值

sub doDelete(objTable,objId,idValue)
sql="delete * from " & objTable & " where " & objId & "=" & Cint(idValue)
conn.execute(sql)
end sub

第三步：删除时候提交到 del.asp

objTable=request("objTable")
objId=request("objId")
id=request("id")

doDelete objTable,objId,id

[keyworld]

学习了,感谢boyd1985

[Mapleleaf123]

comszsoft(星星点灯) 的比较好。。。活动性更强。。