国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁(yè) > 擴(kuò)展 > ADO > 正文

ADO初學(xué)者教程: ADO 刪除記錄_ASP教程

2024-09-06 20:31:24
字體:
來(lái)源:轉(zhuǎn)載
供稿:網(wǎng)友

推薦: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 ifnext%></form><%rs.MoveNext%></tr><%loopconn.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 ifconn.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

發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表

圖片精選

主站蜘蛛池模板: 宁津县| 澄城县| 江川县| 喀喇沁旗| 修武县| 临江市| 纳雍县| 酉阳| 榆树市| 湘潭市| 韶山市| 缙云县| 西昌市| 光山县| 会昌县| 库尔勒市| 海兴县| 新宾| 甘洛县| 阿克陶县| 武鸣县| 栾城县| 景泰县| 汶川县| 新密市| 江门市| 固始县| 枣阳市| 县级市| 阿拉善盟| 杭州市| 陵川县| 南开区| 峨边| 巨野县| 隆化县| 吕梁市| 丹阳市| 威远县| 彭州市| 治县。|