check.asp

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

<%
Dim adu,adp,adl,chk_id
Dim mlev,lev1,lev2,lev3,lev4,lev5,lev6,lev7
Dim chk
If Session("ManageName")="" or Session("ManagePwd")="" or Session("ManageLevel")="" Then
Response.Redirect "Index.html"
Else
adu = Replace(Session("ManageName"),"'","")
adp = Replace(Session("ManagePwd"),"'","")
adl = Replace(Session("ManageLevel"),"'","")   

Set chk = Conn.execute("Select ID From [HQ_User] Where User_Name='"&adu&"' and PassWord='"&adp&"' and Levels='"&adl&"'")
If chk.Eof and chk.Bof Then
Response.Redirect "Index.html"
Else
chk_id = chk(0)
End if
chk.Close
Set chk=Nothing

End if



Function Manage_Level(LevelStr) 
Set mlev = Conn.Execute("Select Admin,CaiWuYuan,ManJinLi,CaiGouJinLi,CaiGouYuan,KuGuan,Manage From [User_Levels]")
lev1 = mlev(0)
lev2 = mlev(1)
lev3 = mlev(2)
lev4 = mlev(3)
lev5 = mlev(4)
lev6 = mlev(5)
lev7 = mlev(6)
mlev.Close
Set mlev=Nothing
If LevelStr = lev1 Then
   Manage_Level = "管理员"
Else
  If LevelStr = lev2 Then
     Manage_Level = "财务员"
  Else
    If LevelStr = lev3 Then
       Manage_Level = "销售经理"
    Else
      If LevelStr = lev4 Then
         Manage_Level = "采购经理"
      Else
        If LevelStr = lev5 Then
           Manage_Level = "采购员"
        Else
          If LevelStr = lev6 Then
             Manage_Level = "库管"
          Else 
            If LevelStr = lev7 Then
               Manage_Level = "业务员"
            End if
          End if
        End if
      End if
    End if
  End if
End if 
End Function
%>