product_del.asp

来自「一个做得非常精美的进存销系统,可惜某些功能上做了限制．」· ASP 代码 · 共 17 行

<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<%
Dim dd,delid
Dim isdataman
delid = Request("id")

isdataman = Manage_Level(adl) 
If isdataman="管理员" Then
  Set dd = Conn.Execute("Delete * From [Product] Where ID ="&delid)
  Response.write "<script language='javascript'>alert('删除成功!');" & chr(13)
  Response.write "window.document.location.href='Product_List.asp';</script>"
Else
  Response.write "<script language='javascript'>alert('对不起,你没有权限进行此项操作!');" & chr(13)
  Response.write "window.document.location.href='Product_List.asp';</script>"
End if
%>