在删除记录的时候如何增加一个限制条件，高手进来帮忙，谢谢！ - 编程论坛

只有本站会员才能查看附件，请登录

附件里面是我的代码，可以正常删除记录。

现在的问题是我想在删除记录的时候增加一个限制条件，判断数据库表book中字段“zt”的值，如果是“0”可以删除，如果是“1”不能删除。

数据库：db.mdb
表：book
字段如下：

只有本站会员才能查看附件，请登录

读取数据页面index.asp代码如下：

程序代码：

<%
  strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Server.mappath("db.mdb")+";Persist Security Info=False"
  set conn = Server.CreateObject("ADODB.Connection")
  conn.open strConn
  %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>删除记录</title>
<script language=JavaScript>

</script>
</head>

<body>
<%
  sql="select * from book"
  set rs=server.CreateObject("adodb.recordset")
  rs.open sql,conn,1,1
  if rs.bof and rs.eof then
  response.Write("<font color=red>对不起，没有记录！</font>")
  else
  do while not rs.eof
  %>
<table width="100" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td><%=rs("mc")%></td>
    <td><a href="javascript:DoEmpty('del.asp?id=<%=rs("id")%>');">删除</a></td>
  </tr>
</table>
<%
  rs.movenext
  loop
  end if
  rs.close
  set rs=nothing
  %>
</body>
</html>

删除数据Del.asp页面代码如下：

程序代码：

<%
  strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Server.mappath("db1.mdb")+";Persist Security Info=False"
  set conn = Server.CreateObject("ADODB.Connection")
  conn.open strConn
  %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>Del</title>
</head>

<body>

<%
  set rs=server.CreateObject("adodb.recordset")
  conn.execute "delete from book where ID = "&Request("id")
  conn.close
  set conn=nothing
  Response.write "删除成功！"
  %>
</body>
</html>

整个代码是正常的，现在我想增加一个删除前的限制条件：

如果字段“zt”的值为“0”则这条记录可以删除，如果值为“1”那么提示这条记录就不允许删除。

请问怎么实现，谢谢！