快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

菜鸟学ADO实例教程之ADO 删除记录

我们可以使用SQL DELETE命令来删除表中的一个记录,和添加记录的方式相同,首先列出记录内容

  <html>

  <body>

  <%

  set conn=Server.CreateObject("ADODB.Connection")

  conn.Provider="Microsoft.Jet.OLEDB.4.0"

  conn.Open "e:/webjx/webjx.mdb"

  set rs=Server.CreateObject("ADODB.Recordset")

  rs.open "SELECT * FROM customers",conn

  %>

  <h2>数据库的内容列表</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>

  详细的删除程序:demo_delete.asp

  <html>

  <body>

  <h2>Delete Record</h2>

  <%

  set conn=Server.CreateObject("ADODB.Connection")

  conn.Provider="Microsoft.Jet.OLEDB.4.0"

  conn.Open "e:/webjx/webjx.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_update.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="删除记录">

   </form>

  <%

  else

   sql="DELETE FROM customers"

   sql=sql & " WHERE customersID=\\\'" & 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>

  教程就写到这里,希望对初学ASP的朋友有所帮助,我就感到欣慰了,同时希望高手给指点。
返回类别: 教程
上一教程: 如何做一个高效的ASP数据库操作程序
下一教程: 菜鸟十天学会ASP教程之第五天:写入记录

您可以阅读与"菜鸟学ADO实例教程之ADO 删除记录"相关的教程:
· 菜鸟学ADO实例教程之ADO 更新记录
· 菜鸟学ADO实例教程之ADO 添加新记录
· 菜鸟学ADO实例教程之ADO连接对象
· 菜鸟学ADO实例教程之ADO 查询数据
· 菜鸟学ADO实例教程之ADO 排序数据
    微笑服务 优质保证 索取样品