check_hui2.asp

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

<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<%
Dim jl,jl_id
Dim id,isadmin
id = Request.QueryString("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 [OrderHui] Set Check_JiLi="&jl_id&" Where Order_ID='"&id&"'")
   Response.write "<script language='javascript'>alert('回款单审核成功!');" & chr(13)
   Response.write "window.document.location.href='Check_Hui.asp';</script>"
Else
  If isadmin="财务员" Then
   Conn.Execute("Update [OrderHui] Set Check_CaiWu="&jl_id&" Where Order_ID='"&id&"'")
   Response.write "<script language='javascript'>alert('回款单审核成功!');" & chr(13)
   Response.write "window.document.location.href='Check_Hui.asp';</script>"
  Else
    If isadmin="库管" Then
    Conn.Execute("Update [OrderHui] Set Check_KuGuan="&jl_id&" Where Order_ID='"&id&"'")
    Response.write "<script language='javascript'>alert('回款单审核成功!');" & chr(13)
    Response.write "window.document.location.href='Check_Hui.asp';</script>"
    Else
    Response.write "<script language='javascript'>alert('对不起,你没有权限进行此项操作!');" & chr(13)
    Response.write "window.document.location.href='javascript:history.go(-1)';</script>"
    End if
  End if
End if
%>