W3C HTML 网页标准教程

ADO 删除

我们可使用 SQL 的 DELETE 命令来删除数据库表中的某条记录。

删除表中的记录

我们希望删除 Northwind 数据库的 Customers 表中的一条记录。首先我们需要创建一个表格,来列出 Customers 中的所有记录。

<html>
<body>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open "SELECT * FROM customers",conn
%>

<h2>List Database</h2>
<table border="1" width="100%">
<tr>
<%
for each x in rs.Fields
  response.write("<th>" & ucase(x.name) & "</th>")
next
%>
</tr>
<% do until rs.EOF %>
<tr>
<form method="post" action="demo_delete.asp">
<%
for each x in rs.Fields
  if x.name="customerID" then%>
    <td>
    <input type="submit" name="customerID" value="<%=x.value%>">
    </td>
  <%else%>
    <td><%Response.Write(x.value)%></td>
  <%end if
next
%>
</form>
<%rs.MoveNext%>
</tr>
<%
loop
conn.close
%>
</table>

</body>
</html>

假如用户点击 "customerID" 列中的按钮,会打开新文件 "demo_delete.asp"。此文件包含了创建输入域的源代码,这些输入域基于数据库中记录的字段,同时也含有一个删除当前记录的“删除按钮”:

<html>
<body>

<h2>Delete Record</h2>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"

cid=Request.Form("customerID"

if Request.form("companyname")="" then
  set rs=Server.CreateObject("ADODB.Recordset")
  rs.open "SELECT * FROM customers WHERE customerID='" & cid & "'",conn
  %>
  <form method="post" action="demo_delete.asp">
  <table>
  <%for each x in rs.Fields%>
  <tr>
  <td><%=x.name%></td>
  <td><input name="<%=x.name%>" value="<%=x.value%>"></td>
  <%next%>
  </tr>
  </table>
  <br /><br />
  <input type="submit" value="Delete record">
  </form>
<%
else
  sql="DELETE FROM customers"
  sql=sql & " WHERE customerID='" & cid & "'"
  on error resume next
  conn.Execute sql
  if err<>0 then
    response.write("No update permissions!")
  else 
    response.write("Record " & cid & " was deleted!")
  end if 
end if
conn.close
%>

</body>
</html>
收藏文章
表情删除后不可恢复,是否删除
取消
确定
图片正在上传,请稍后...
评论内容为空!
  • 评论
36人参与,11条评论
  • 最新评论
2022年9月26日 1:37 [湖南省长沙市网友]

杨同学小学生,

2021年11月15日 0:31
1 [安徽省网友]

夏雨是个大傻逼,吃屎的东西

夏宇是lj

2021年6月7日 1:44 [安徽省网友]
1 [安徽省网友]

夏雨是个大傻逼,吃屎的东西

2 不谢 [安徽省池州市网友]

???????

2021年6月7日 1:41 不谢 [安徽省池州市网友]
1 [安徽省网友]

夏雨是个大傻逼,吃屎的东西

2 可恶啊 [安徽省网友]

一吃一麻袋

3 ZHJjt [安徽省池州市网友]

66666666666666666666666666666666666666666666666666666666666666666666666

2021年6月7日 1:40 ZHJjt [安徽省池州市网友]
1 [安徽省网友]

夏雨是个大傻逼,吃屎的东西

2 可恶啊 [安徽省网友]

一吃一麻袋

66666666666666666666666666666666666666666666666666666666666666666666666

2021年6月7日 1:40 ZHJjt [安徽省池州市网友]
1 可恶啊 [安徽省网友]

我心如铁,坚不可摧 智勇双全,我心飞翔

傻不拉几的

2021年6月7日 1:40 不谢 [安徽省池州市网友]
1 [安徽省网友]

夏雨是个大傻逼,吃屎的东西

2021年6月7日 1:39 中也 [安徽省池州市网友]
1 可恶啊 [安徽省网友]

我心如铁,坚不可摧 智勇双全,我心飞翔

傻逼如你

2021年6月7日 1:38 可恶啊 [安徽省网友]

我心如铁,坚不可摧
智勇双全,我心飞翔

2021年6月7日 1:37 可恶啊 [安徽省网友]
1 [安徽省网友]

夏雨是个大傻逼,吃屎的东西

一吃一麻袋

2021年6月7日 1:36 [安徽省网友]

夏雨是个大傻逼,吃屎的东西

按钮 内容不能为空!
立刻说两句吧! 查看11条评论