check_customer2.asp

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

<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<%
Dim jl,jl_id
Dim id,isadmin
id = Request("id")

Set jl = Conn.Execute("Select ID From [HQ_User] Where User_Name='"&adu&"'")
jl_id = jl(0)
jl.Close
Set jl=Nothing

isadmin = Manage_Level(adl)
If isadmin="销售经理" Then
   Conn.Execute("Update [Customer] Set isOK="&jl_id&" Where ID="&id)
   Response.write "<script language='javascript'>alert('该客户审核成功!');" & chr(13)
   Response.write "window.document.location.href='Check_Cai.asp';</script>"
Else
   Response.write "<script language='javascript'>alert('对不起,你没有权限进行此项操作!');" & chr(13)
   Response.write "window.document.location.href='javascript:history.go(-1)';</script>"
End if
%>