ADO初學(xué)者教程: ADO 刪除記錄_ASP教程
推薦:ASP在線問(wèn)答的實(shí)例代碼首先,是HTML文件,為Test.asp,代碼如下:%@LANGUAGE=VBSCRIPT CODEPAGE=936% % if session(username)= then Response.Write(scriptalert('請(qǐng)登陸后在進(jìn)行操作!');window.location='login.asp?reURL=Test.asp';/script) Response.End() end if %
我們可使用SQL的DELETE命令來(lái)刪除數(shù)據(jù)庫(kù)表中的某條記錄。
刪除表中的記錄
我們希望刪除Northwind數(shù)據(jù)庫(kù)的Customers表中的一條記錄。首先我們需要?jiǎng)?chuàng)建一個(gè)表格,來(lái)列出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>
假如用戶點(diǎn)擊"customerID"列中的按鈕,會(huì)打開(kāi)新文件"demo_delete.asp"。此文件包含了創(chuàng)建輸入域的源代碼,這些輸入域基于數(shù)據(jù)庫(kù)中記錄的字段,同時(shí)也含有一個(gè)刪除當(dāng)前記錄的“刪除按鈕”:
<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 這一變量 '將在當(dāng)前目錄生成一個(gè)DATA.XML文件 '將DATA.XML及文件2(install.asp)上傳至WEB根目錄 '運(yùn)行install.asp解包 '手動(dòng)刪除以上兩個(gè)文件 '======================== % Option Explic
- asp FSO 讀寫文件本文件實(shí)現(xiàn)代碼
- asp中isNull、isEmpty和空字符串的區(qū)別
- asp獲取用戶真實(shí)IP地址的方法
- asp連接sqlserver數(shù)據(jù)庫(kù)實(shí)現(xiàn)代碼
- asp中正則表達(dá)式過(guò)濾html代碼函數(shù)
- asp中g(shù)et post提交表單區(qū)別
- 網(wǎng)頁(yè)模板:ASP內(nèi)建對(duì)象Request
- xmlhttp的open方法使用詳解
- ASP的常用的自定義函數(shù)大全
- asp中用for循環(huán)的一個(gè)小技巧
- eWebEditor v3.8 列目錄
- ASP無(wú)組件分頁(yè)實(shí)現(xiàn)思路及代碼
ASP教程Rss訂閱編程教程搜索
ASP教程推薦
- ASP技巧實(shí)例:使用ASP記錄在線用戶的數(shù)量
- 如何使ASP實(shí)現(xiàn)搜索關(guān)鍵字高亮
- ASP實(shí)例講解:用分頁(yè)符實(shí)現(xiàn)長(zhǎng)文章分頁(yè)顯示
- ASP點(diǎn)擊刷新驗(yàn)證碼實(shí)例代碼
- 經(jīng)典!5分鐘編寫一個(gè)ASP論壇
- 幾種ASP調(diào)用帶參數(shù)存儲(chǔ)過(guò)程的方式
- 關(guān)于Asp.net ajax下的異常處理
- asp連接access、sql數(shù)據(jù)庫(kù)代碼及數(shù)據(jù)庫(kù)操作代碼
- 解讀用ASP生成偽靜態(tài)頁(yè)面的簡(jiǎn)單方法
- 解讀asp防SQL注入代碼
- 相關(guān)鏈接:
- 教程說(shuō)明:
ASP教程-ADO初學(xué)者教程: ADO 刪除記錄。