ADO初學者教程: ADO 刪除記錄_ASP教程
教程Tag:暫無Tag,歡迎添加,賺取U幣!
推薦:ASP在線問答的實例代碼首先,是HTML文件,為Test.asp,代碼如下:%@LANGUAGE=VBSCRIPT CODEPAGE=936% % if session(username)= then Response.Write(scriptalert('請登陸后在進行操作!');window.location='login.asp?reURL=Test.asp';/script) Response.End() end if %
我們可使用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>
分享:ASP利用XML打包指定文件夾 并上傳到WEB目錄中,自行解包'======================== '文件1 'Pack.asp '更改 Cpathname 這一變量 '將在當前目錄生成一個DATA.XML文件 '將DATA.XML及文件2(install.asp)上傳至WEB根目錄 '運行install.asp解包 '手動刪除以上兩個文件 '======================== % Option Explic
相關ASP教程:
- 相關鏈接:
- 教程說明:
ASP教程-ADO初學者教程: ADO 刪除記錄。