<%
class clsUSERS
'properties
' LET
' ====================================================================================
'.connection -
'.UsersPaging -
'.PermissionLevel -
'.UserID -
'.Language -
'.AllowNewUsers -
'.DefaultPermission -
' GET
' ====================================================================================
' UserID
' PermissionLevel
' methods
' ====================================================================================
'.Menu()
'.Users()
private ScriptName
private REFERER
private Conn_USER
private intUSERID
private intUserLang
private blAllowNewUsers
private strCLIENTLANG
private intUSERDEFAULTPERMISSION
private bRF1, bRF2, bRF3, bRF4, bRF5, bRF6, bRF7, bRF8, bRF9
PRIVATE strSQL
Private Sub Class_Initialize()
ScriptName = Request.ServerVariables("SCRIPT_NAME")
REFERER = Request.ServerVariables("HTTP_REFERER")
if REFERER="" then REFERER = ScriptName
if intUserPermission="" then intUserPermission=""
if intUSERID="" then intUSERID=0
End Sub
Private Sub Class_Terminate()
End Sub
public Property Let Connection(sElemID)
set Conn_USER = sElemID
End Property
public Property Let Paging(sElemID)
intUSERSPERPAGE = sElemID
End Property
public Property Let PermissionLevel(sElemID)
intUserPermission = sElemID
End Property
public Property Get PermissionLevel()
PermissionLevel = intUserPermission
End Property
Public Property Let UserID(sElemID)
intUSERID = sElemID
End Property
Public Property Get UserID()
UserID = intUSERID
End Property
Public Property Let Language(sElemID)
intUserLang = sElemID
End Property
Public Property Let AllowNewUsers(sElemID)
blAllowNewUsers = sElemID
End Property
public Property Let DefaultPermission(sElemID)
intUSERDEFAULTPERMISSION = sElemID
End Property
public Property Let RF1(sElemID)
bRF1 = sElemID
End Property
public Property Let RF2(sElemID)
bRF2 = sElemID
End Property
public Property Let RF3(sElemID)
bRF3 = sElemID
End Property
public Property Let RF4(sElemID)
bRF4 = sElemID
End Property
public Property Let RF5(sElemID)
bRF5 = sElemID
End Property
public Property Let RF6(sElemID)
bRF6 = sElemID
End Property
public Property Let RF7(sElemID)
bRF7 = sElemID
End Property
public Property Let RF8(sElemID)
bRF8 = sElemID
End Property
public Property Let RF9(sElemID)
bRF9 = sElemID
End Property
public function IsLogged()
IsLogged = false
if session("UserLogged") then IsLogged = true
end function
' ------------------------------------------------------------------------------------------------
public function Users()
DIM loHTML : loHTML = ""
select case UCASE(request("Change"))
case "USERADDFORM" loHTML = loHTML & USERADDFORM() ' New user registration
case "USERADDEXE" loHTML = loHTML & USERADDEXE() ' Add new user Execution
case "USERLIST" loHTML = loHTML & USERLIST() ' Modification of registered users (Admin function)
case "USEREDITFORM" loHTML = loHTML & USEREDITFORM() ' Modification of own registered datas or administration of user
case "USEREDITEXE" loHTML = loHTML & USEREDITEXE()
if intUserPermission="1" then
loHTML = loHTML & USERLIST()
else
response.redirect REFERER ' Modify user Execution
end if
case "USERDELETE" loHTML = loHTML & USERDELETE():response.redirect REFERER
case "USERINFOSEND" loHTML = loHTML & USERINFOSEND()
case "USERINFOSENDEXE" loHTML = loHTML & USERINFOSENDEXE()
case "LOGINFORM" loHTML = loHTML & LOGINFORM()
case "LOGINEXE" loHTML = loHTML & LOGINEXE()':response.redirect "CALENDAR.asp"
case "LOGOUTEXE" loHTML = loHTML & LOGOUTEXE()':response.redirect "CALENDAR.asp?Lang="&session("LANG") & "&Client="&session("CLIENT")
case "GROUPNEWEXE" loHTML = loHTML & GROUPNEWEXE()
loHTML = loHTML & GROUPLIST()
case "GROUPUSERADD" loHTML = loHTML & GROUPUSERADD():response.redirect REFERER
case "GROUPUSERREMOVE" loHTML = loHTML & GROUPUSERREMOVE():response.redirect REFERER
case "GROUPDELETE" loHTML = loHTML & GROUPDELETE()
loHTML = loHTML & GROUPLIST()
case "GROUPEDITFORM" loHTML = loHTML & GROUPEDITFORM()
case "GROUPEDITEXE" loHTML = loHTML & GROUPEDITEXE():response.redirect REFERER
case "GROUPNEWFORM" loHTML = loHTML & GROUPNEWFORM()
case "GROUPLIST" loHTML = loHTML & GROUPLIST()
end select
Users = loHTML
End Function
' ------------------------------------------------------------------------------------------------
public function Menu()
' This function shows functions for adinistation
' blALLOWNEWUSER to display link for new users
' blALLOWSUBSCRIBERS to display link for subscribers
DIM loHTML : loHTML = ""
dim strHEADER
dim strFOOTER
' if we use build-in users system
strBODY = strBODY & "
" & VbCrLf
strHEADER = strHEADER & application(intUserLang & "_wcal81b")
' BEGIN links for users
if intUSERPERMISSION=0 then
' Login link
strBODY = strBODY & "
" & VbCrLf
end if
' END links for users
strBODY = strBODY & "
" & VbCrLf
Menu = strBODY
' Menu = funcs.BOXCreator(strHEADER, strBODY, strDEFTHEME, "", "100%")
End function
' ------------------------------------------------------------------------------------------------
public function LOGINFORM()
DIM loHTML : loHTML = ""
dim strHEADER
dim strBODY
strHEADER = strHEADER & application(intUserLang & "_User35")
strBODY = strBODY & "
" & VbCrLf
strBODY = strBODY & "
" & VbCrLf
LOGINFORM = funcs.BOXCreator(strHEADER, strBODY, strDEFTHEME, "", 400)
end function
' ------------------------------------------------------------------------------------------------
private function LOGINEXE()
DIM dtLogin
DIM loHTML : loHTML = ""
set dtLogin = Conn_USER.Execute ("SELECT * From wcal_users where (UserName='" & request("LoginName") & "' AND UserPassword= '" & request("LoginPassword") & "')")
if dtLogin.Eof OR dtLogin.Bof then
LOGINEXE = application(session("LANG") & "_LOG_FAILED")
' LOGINEXE = ""
else
session("WCAL_USERID") = dtLogin("IDUser")
session("NewsJmeno") = dtLogin("Name")
session("NewsPrijmeni") = dtLogin("Surname")
session("NewsCompany") = dtLogin("Company")
session("NewsUserName") = dtLogin("UserName")
session("NewsHeslo") = dtLogin("UserPassword")
session("NewsEmail") = dtLogin("Email")
session("NewsStreet") = dtLogin("Street")
session("NewsCity") = dtLogin("City")
session("NewsPost") = dtLogin("Post")
session("WCAL_PERMISSIONLEVEL") = dtLogin("Wcal_Permission")
session("UserClient") = dtLogin("Client")
' LOGINEXE = ""
response.redirect "CALENDAR.ASP"
end if
set dtLogin=Nothing
end function
' ------------------------------------------------------------------------------------------------
public function LOGOUTEXE()
DIM Client
DIM Lang
Client = session("Client")
Lang = intUserLang
intUSERID = ""
session("NewsJmeno") = ""
session("NewsPrijmeni") = ""
session("NewsUserName") = ""
session("NewsHeslo") = ""
session("NewsEmail") = ""
intUserPermission = 0
session("NewsArtMSACCESS") = ""
session("CatsRead") = ""
session("CatsWrite") = ""
session.Abandon
session("Client") = Client
intUserLang = Lang
session("LANG") = Lang
session("LoadDef") = 0
' LOGOUTEXE = "
You have been logged out!
"
LOGOUTEXE = ""
end function
' ------------------------------------------------------------------------------------------------
private Function USERADDFORM()
DIM loHTML : loHTML = ""
dim strHEADER
dim strBODY
if request("Agreement")=1 then
loHTML = loHTML & "" & VbCrLf
strHEADER = strHEADER & application(intUserLang & "_User23")
strBODY = strBODY & "
"
end if
set UserTEST = nothing
end function
' ------------------------------------------------------------------------------------------------
private Function USEREDITFORM()
DIM loHTML : loHTML = ""
DIM strHEADER
dim strBody
strHEADER = strHEADER & application(intUserLang & "_User27")
If intUserPermission="1" OR clng(request("NewsIDUser"))=clng(intUSERID) then
set dtUser = Conn_USER.Execute ("SELECT * From wcal_users where IDUser=" & request("NewsIDUser"))
strBODY=strBODY&" " & VbCrLf
strBODY=strBODY&"