user_del.asp

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

<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->

<%
Dim id,dd,isadmin
id = Request("id")

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