ASP and FTP commands

Question

ASP and FTP commands to use CHMOD or similar to change folder
permissions before uploading a file via a web form?
Is there a script or commands that can do this?
Are there any other settings that is avaiable on a domain
that can make sure that the user has access even though the folders
are set to "0755"?
This is all from a web form in a controlled area with
Username and Password.
I know that this is possible in PHP with two systems:
suPHP (installed by hosts with a rewrite_module or ftp_module
not really sure) or
FTP modules (I write a script with this "$conn =
ftp_connect("$host");,blah blah...")
Any ideas unless you have something already?
Cheers

Answer 1

I found this code, apparently it can reset but not change it
for my purposes.
'========================================================================================= ======
'RevokeRights
' denied specified users access to files specified by file
mask in folder specified by
' "Folder" parameter and its folders.
'Parameters:
' Folder - string. specify target folder
' Users - string array. Each string specified user or group
' FileMask - string. specified processing files: example
"C:\*.txt"
'========================================================================================= ======
function RevokeRights(Folder, Users, FileMask)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
RevokeFromFolder fso.GetFolder(Folder), Users, FileMask
end function
'========================================================================================= ======
'RevokeFromFolder
' Auxillairy function.denied specified users access to files
specified by file mask in ' folder specified by "Folder" parameter
and its folders.
'Parameters:
' Folder - "Folder" object. specify target folder
' Users - string array. Each string specified user or group
' FileMask - string. specified processing files: example
"C:\.htaccess"
'========================================================================================= ======
function RevokeFromFolder(byref Folder, Users, FileMask)
Dim Subfolders, sf1
Set Subfolders = Folder.SubFolders
Revoke Users, Folder.Path & "\" & FileMask
for each sf1 in Subfolders
RevokeFromFolder sf1, users, FileMask
Next
end function
'========================================================================================= ======
'Revoke
' denied specified users access to files specified by file
mask.
'Parameters:
' Users - string array. Each string specified user or group
' FileMask - string. specified processing files: example
"C:\*.txt"
'========================================================================================= ======
function Revoke( Users, FileMask)
Dim ws, cmd, i
Set ws = Createobject("WScript.Shell")
cmd = "%comspec% /c cacls " & FileMask & " /C /E /P
for i = 0 to UBound(Users)
cmd = cmd & Users(i) & ":n" & " "
Next
ws.Run cmd, 0
Set ws = Nothing
end function