check_buchuang2.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 [BuChuang] Set Check_CaiWu="&jl_id&" Where Bu_ID='"&id&"'")
   Response.write "<script language='javascript'>alert('补仓申请单审核成功!');" & chr(13)
   Response.write "window.document.location.href='Check_BuChuang.asp';</script>"
Else
  If isadmin="采购经理" Then
   Conn.Execute("Update [BuChuang] Set Check_CaiGou="&jl_id&" Where Bu_ID='"&id&"'")
   Response.write "<script language='javascript'>alert('补仓申请单审核成功!');" & chr(13)
   Response.write "window.document.location.href='Check_BuChuang.asp';</script>"
  End if
End if
%>