admin_bumendel.asp

一个做得非常精美的进存销系统,可惜某些功能上做了限制．

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