administration.asp

BugTrack is a basic, yet fully functional web based Bug Tracking system that you may use as a framew

<!-- #INCLUDE FILE="Common.asp" -->

<%
'
'   Filename: Administration.asp
'   Generated with CodeCharge 1.2.0
'   ASPTemplates.ccp build 5/9/2001
'


sFileName = "Administration.asp"
sTemplateFileName = "Administration.html"


' Administration Open Event start
' Administration Open Event end


' Administration PageSecurity begin

CheckSecurity(3)

' Administration PageSecurity end

' Administration OpenAnyPage Event start
' Administration OpenAnyPage Event end


LoadTemplate sAppPath & sTemplateFileName, "main"

LoadTemplate sHeaderFileName, "Header"


SetVar "FileName", sFileName


sLoginErr = ""

sAction = GetParam("FormAction")
sForm = GetParam("FormName")
Select Case sForm
  Case "Login"
    LoginAction(sAction)
end select

Menu_Show
Administration_Show
Login_Show
Parse "Header", False
Parse "main", False
Response.write PrintVar("main")

' Administration Close Event start
' Administration Close Event end


'--------------------------------------------------



Sub Administration_Show()
  
  ' Administration Show begin
  
' Administration Open Event start
' Administration Open Event end

  ' Set URLs

  fldemployees = "EmployeeList.asp"
  fldpriorities = "PriorityList.asp"
  fldprojects = "ProjectList.asp"
  fldstatus = "StatusList.asp"
' Administration BeforeShow Event start
' Administration BeforeShow Event end

  ' Show fields

  SetVar "employees", fldemployees
  SetVar "priorities", fldpriorities
  SetVar "projects", fldprojects
  SetVar "status", fldstatus
  Parse "FormAdministration", False
  ' Administration Show end
  
End Sub



Sub LoginAction(sAction)
  Select case sAction
    Case "login"
      ' Login action
      
      ' Login Login begin
      sLogin = GetParam("Login")
      sPassword = GetParam("Password")
      bPassed = CLng(DLookUp("employees", "count(*)", "login =" & ToSQL(sLogin, "Text") & " and pass=" & ToSQL(sPassword, "Text")))
      
' Login OnLogin Event start
' Login OnLogin Event end

      if bPassed > 0 then
        ' Login and password passed

        Session("UserID") = CStr(DLookUp("employees", "employee_id", "login =" & ToSQL(sLogin, "Text") & " and pass=" & ToSQL(sPassword, "Text")))
        Session("UserRights") = CLng(DLookUp("employees", "security_level", "login =" & ToSQL(sLogin, "Text") & " and pass=" & ToSQL(sPassword, "Text")))
        sQueryString = GetParam("querystring")
        sPage = GetParam("ret_page")
        if not(sPage = request.serverVariables("SCRIPT_NAME")) and not(isEmpty(sPage)) then
          response.redirect(sPage & "?" & sQueryString)
        end if
        
      else
        sLoginErr = "Login or Password is incorrect."
      end if
      Parse "FormLogin", False
      ' Login Login end
      
    Case "logout"
      ' Logout action
      
      ' Login Logout begin
      
' Login OnLogout Event start
' Login OnLogout Event end

      Session("UserID") = Empty
      Session("UserRights") = Empty
      response.redirect(sFileName)
      Parse "FormLogin", False
      ' Login Logout end
      
  End Select
End Sub

Sub Login_Show()
  
  ' Login Show begin
  
' Login Open Event start
' Login Open Event end

  SetVar "sLoginErr", sLoginErr
  SetVar "querystring", GetParam("querystring")
  SetVar "ret_page", GetParam("ret_page")
  
' Login BeforeShow Event start
' Login BeforeShow Event end

  if Session("UserID") = "" then
    ' User did not login
    SetVar "LogoutAct", ""
    SetVar "UserInd", ""
    SetVar "Login", ToHTML(GetParam("Login"))
    if sLoginErr = "" then
      SetVar "LoginError", ""
    else
      SetVar "sLoginErr", sLoginErr
      Parse "LoginError", False
	  End if
    Parse "LoginAct", false
  else
    ' User logged in
    SetVar "LoginError", ""
    SetVar "LoginAct", ""
    SetVar "UserID", DLookUp("employees", "login", "employee_id =" & Session("UserID"))
    Parse "UserInd", False
  end if
  Parse "FormLogin", False
  
' Login Close Event start
' Login Close Event end

  ' Login Show end
  
End Sub

%>

<!-- #INCLUDE FILE="Header.asp" -->