staff_del.asp

来自「证书管理系统」· ASP 代码 · 共 19 行

<!-- #include file="Include/Chk.asp" -->
<!-- #include file="Conn.asp" -->
<%
dim id
id=Request.QueryString("id")
if id="" then
	Response.Write "<script language='javascript'>alert('参数错误 !');document.location.href('Staff_Manage.asp');</script>"
	Response.End()
end if

SQL="Select * from Staff where id="&id
set rs=server.createobject("Adodb.Recordset")
rs.open sql,conn,3,3
rs.Delete
rs.Update
rs.close
Set rs=Nothing
Response.Write "<script language='javascript'>alert('成功删除指定的证书记录!');document.location.href('Staff_Manage.asp');</script>"
%>