首先:先向要執行刪除操作的程式頁面傳遞一個參數,以確保刪除無誤

<a style="text-decoration:none" href="udel.asp?id=<%=rs(0)%>" onclick="return confirm('你確實要刪除嗎?');">刪除</a>

其中udel.asp是執行具體操作的程式頁面,id是傳遞的一個參數,<%=rs(0)%>是資料庫裡確定的一個欄位,

其次:執行刪除操作。刪除頁面的具體代碼如下:

<!--#include file="conn.asp"--> '引入資料庫連接檔
<%
dim nid '定義一個變數
nid=request.QueryString("id") '接收超連接傳來的參數
set cmd=server.CreateObject("adodb.command") '創建command物件
set ts=server.Createobject("adodb.recordset") '創建recordset物件
set cmd.activeconnection=conn '啟動資料庫連接

if ts.recordcount=1 then '判斷是否只有一條記錄
Response.Write("<script>alert('當前只有一條記錄,不能執行任何操作!');location.href='userdel.asp';</script>")
else
sql="delete from admin where 編號=" & nid '定義一個SQL執行SQL語句的字串
cmd.commandtext=sql '將字串付給命令物件的commandtext方法
set rs=cmd.execute '執行此方法
Response.Write("<script>alert('刪除成功!');location.href='userdel.asp';</script>") '跳轉至成功頁面
end if
%>
創作者介紹
創作者 shadow 的頭像
shadow

資訊園

shadow 發表在 痞客邦 留言(0) 人氣()