Question

asp我该如何删除数据库中满足条件的记录

比如这个删除的asp页面为del.asp
我目前是使用的这个代码
id = request.querystring("id")
sql = "delete from tel where id=" & id
Conn.Execute sql
可以删除这条记录，不过我现在想换一种方式，当数据和数据库匹配时才能删除，看我的具体说明：

在同一条记录中有id和name两个字段，id是自动编号且唯一的，name也是固定的字符，id和name都事先在前一个页面获得并通过参数的方式传递到这个删除页面，比如当别人访问del.asp?id=*&name=*这个页面时传递的id和name与数据库中记录的id和name匹配的时候才能删除，否则弹出提示。请问这段asp该怎么写。

Answer 1

真正无错的代码：<br><br><%<br>id=trim(request("id"))<br>names=trim(request("name"))<br>if id<>"" and names<>"" then<br>sql="select * from tel where id="& id &" name='"& names &"'"<br>set rs=server.createobject("adodb.recordset")<br> rs.open sql,conn,1,3<br> if rs.eof or rs.bof then<br> response.write "<script>alert('记录不存在！');javascript:history.go(-1);</script>"<br> else<br> rs.delete<br> rs.update<br> end if <br>rs.close<br>set rs=nothing<br>else<br>response.write "<script>alert('参数不足！');javascript:history.go(-1);</script>"<br>end if<br>%> <br><br>另外提醒一下楼上几位，不知道就别来混分，欺骗别人感情！<br>记录集都没有定义怎么删除记录？鄙视一下~

Answer 2

<%<br>id=trim(request("id"))<br>name=trim(request("name"))<br>sql="select * from tel where id="& clng(id) &" name="& names<br>set rs=server.createobject("adodb.recordset")<br> rs.open sql,conn,1,3<br> if rs.eof and rs.bof then<br> response.write "<script>alert('没有找到匹配的数据记录！');</script>"<br> else<br> rs.delete<br> rs.update<br> end if <br>rs.close<br>set rs=nothing<br>%> <br>这个应该没问题<br>记得给分，若还有问题何以Hi我。

Answer 3

真正无错的代码：

<%
id=trim(request("id"))
names=trim(request("name"))
if id<>"" and names<>"" then
sql="select * from tel where id="& id &" name='"& names &"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if rs.eof or rs.bof then
response.write "<script>alert('记录不存在！');javascript:history.go(-1);</script>"
else
rs.delete
rs.update
end if
rs.close
set rs=nothing
else
response.write "<script>alert('参数不足！');javascript:history.go(-1);</script>"
end if
%>

另外提醒一下楼上几位，不知道就别来混分，欺骗别人感情！
记录集都没有定义怎么删除记录？鄙视一下~

Answer 4

<%
id=trim(request("id"))
name=trim(request("name"))
sql="select * from tel where id="& clng(id) &" name="& names
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if rs.eof and rs.bof then
response.write "<script>alert('没有找到匹配的数据记录！');</script>"
else
rs.delete
rs.update
end if
rs.close
set rs=nothing
%>
这个应该没问题
记得给分，若还有问题何以Hi我。

Answer 5

全部代码如下~!!
<%
dim id,name,Rs
id = request.querystring("id")
name = request.querystring("name")
sql = "select * from tel where id=" & id &" and name='"&name&"'"
set Rs=Conn.Execute sql
if Rs.Eof and Rs.Bof then
%>
<script type="text/javascript">alert("对不起!数据库中无此记录,请确认输入!");</script>
<%else
sql = "delete from tel where id=" & id &" and name="&name
Conn.Execute sql
%>