<% Call ServeFTPHiddenValues
End Function
'-------------------------------------------------------------------------
' SubRoutine: FTPOnPostBackPage
' Description: Serves in getting the values from the form.
' Input Variables: None
' Output Variables: None
' Returns: None
' Global Variables:
' Out: F_nAccessReadWrite_FtpNew - the access permissions
' (0,1,2 or 3 only)
' Out: F_nLogVisits_FtpNew - do we log the visits ?
' (0 or 1 only)
' Out: F_strReadCheckStatus_FtpNew - status of READ checkBox
' Out: F_strWriteCheckStatus_FtpNew - status of WRITE checkBox
' Out: F_strLogVisitsCheckStatus_FtpNew - status of LOGVISITS chkBox
'-------------------------------------------------------------------------
Sub FTPOnPostBackPage
Err.Clear
On Error Resume Next
' get the values of the hidden variables from the form
F_nAccessReadWrite_FtpNew = Request.Form("hdnintAccessReadWriteFtpNew")
F_nLogVisits_FtpNew = Request.Form("hdnintLogVisitsFtpNew")
' initialize the status of CheckBoxes to "NOT CHECKED"
F_strReadCheckStatus_FtpNew = CONST_CHECKBOX_NOT_SELECTED
F_strWriteCheckStatus_FtpNew = CONST_CHECKBOX_NOT_SELECTED
F_strLogVisitsCheckStatus_FtpNew = CONST_CHECKBOX_NOT_SELECTED
' convert to integer type
F_nAccessReadWrite_FtpNew = CInt(F_nAccessReadWrite_FtpNew)
F_nLogVisits_FtpNew = CInt(F_nLogVisits_FtpNew)
' set the status of "CheckBoxes" if the values are set
'
' if the Read access is given.
' perform an AND to verify if the value is set
If (F_nAccessReadWrite_FtpNew AND CONST_ACCESS_READ_ONLY) Then
F_strReadCheckStatus_FtpNew = CONST_CHECKBOX_SELECTED
End If
' if the write access is given.
' perform an AND to verify if the value is set
If (F_nAccessReadWrite_FtpNew AND CONST_ACCESS_WRITE_ONLY) Then
F_strWriteCheckStatus_FtpNew = CONST_CHECKBOX_SELECTED
End If
' if the "Log Visits" is checked.
' the 0 OR 1 is converted to Boolean and verified instead of comparision
If CBool(F_nLogVisits_FtpNew) Then
F_strLogVisitsCheckStatus_FtpNew = CONST_CHECKBOX_SELECTED
End If
End Sub
'-------------------------------------------------------------------------
' Subroutine: FTPOnInitPage
' Description: Serves in getting values from system (default values)
' Input Variables: None
' Output Variables: None
' Returns: None
' Global Variables: Out: F_nAccessReadWrite_FtpNew - the access permissions
' (0,1,2 or 3 only)
' Out: F_nLogVisits_FtpNew - do we log the visits ?
' (0 or 1 only)
' Out: F_strReadCheckStatus_FtpNew - status of READ checkBox
' Out: F_strWriteCheckStatus_FtpNew - status of WRITE checkBox
' Out: F_strLogVisitsCheckStatus_FtpNew - status of LOGVISITS chkBox
'-------------------------------------------------------------------------
Sub FTPOnInitPage
Err.Clear
On Error Resume Next
' initialize the checkbox status
' set the Allow read , NO Write by default
F_nAccessReadWrite_FtpNew = 1
F_strReadCheckStatus_FtpNew = CONST_CHECKBOX_SELECTED
F_strWriteCheckStatus_FtpNew = CONST_CHECKBOX_NOT_SELECTED
' set the Log Visits to True (checked)
F_nLogVisits_FtpNew = 1
F_strLogVisitsCheckStatus_FtpNew = CONST_CHECKBOX_SELECTED
End Sub
'-------------------------------------------------------------------------
' Function name: SetFTPshareProp
' Description: Serves in setting the values of the ftp share
' Input Variables: None
' Output Variables: None
' Returns: TRUE if successful, else FALSE
' Global Variables:
' In: L_* - Localization content(error messages)
' In: F_nAccessReadWrite_FtpNew - the access permissions
' (0,1,2 or 3 only)
' In: F_nLogVisits_FtpNew - do we log the visits ?
' (0 or 1 only)
' Support functions used: getFTPShareObject() - to get the share object
'-------------------------------------------------------------------------
Function SetFTPshareProp
Err.Clear
On Error Resume Next
Dim objFTPShare ' to get the share object for which we need to
' change properties
' get the FTP share object for which we need to set properties
Set objFTPShare = getFTPShareObject()
'
' It is enough to set the boolean values(AccessRead and AccessWrite).
' The AccessFlags(integer) need not be set.(wmi takes care of it)
' if the Read CheckBox is checked, set the flag to TRUE, else FALSE
If (F_nAccessReadWrite_FtpNew AND CONST_ACCESS_READ_ONLY) Then
objFTPShare.AccessRead = True
Else
objFTPShare.AccessRead = False
End If
' if the Write CheckBox is checked, set the flag to TRUE, else FALSE
If (F_nAccessReadWrite_FtpNew AND CONST_ACCESS_WRITE_ONLY) Then
objFTPShare.AccessWrite = True
Else
objFTPShare.AccessWrite = False
End If
' bring the changes made to properties to effect
objFTPShare.Put_
If Err.Number <> 0 Then
' the changes could not be PUT (system values could not be changed)
SA_SetErrMsg L_FAILEDTOSETSHAREINFO_ERRORMESSAGE
Set objFTPShare = Nothing
Exit Function
End If
' clean up
Set objFTPShare = Nothing
'Function call to set the Dont log property
If SetDontLogProp(F_StrShareName, F_nLogVisits_FtpNew) Then
SA_SetErrMsg L_LOG_VISITS_ERRORMESSAGE
SetFTPshareProp = False
Exit Function
End If
SetFTPshareProp = True
End Function
'-------------------------------------------------------------------------
' SubRoutine: ServeFTPHiddenValues
' Description: Serves in printing the hidden values of the form
' Input Variables: None
' Output Variables: None
' Returns: None
' Global Variables:
' In: F_nAccessReadWrite_FtpNew - the access permissions
' In: F_nLogVisits_FtpNew - do we log the visits ?
' (0 or 1 only)
'-------------------------------------------------------------------------
Sub ServeFTPHiddenValues
' the hidden values to store the access flag value
' and the "Log Visits" value
' (Whether the checkBox must be checked OR NOT)
%>