WB 2.08.x

<%

 ' FCKeditor - The text editor for Internet - http://www.fckeditor.net

 ' Copyright (C) 2003-2009 Frederico Caldeira Knabben

 '

 ' == BEGIN LICENSE ==

 '

 ' Licensed under the terms of any of the following licenses at your

 ' choice:

 '

 '  - GNU General Public License Version 2 or later (the "GPL")

 '    http://www.gnu.org/licenses/gpl.html

 '

 '  - GNU Lesser General Public License Version 2.1 or later (the "LGPL")

 '    http://www.gnu.org/licenses/lgpl.html

 '

 '  - Mozilla Public License Version 1.1 or later (the "MPL")

 '    http://www.mozilla.org/MPL/MPL-1.1.html

 '

 ' == END LICENSE ==

 '

 ' This file include the functions that handle the Command requests

 ' in the ASP Connector.

%>

<%

Sub GetFolders( resourceType, currentFolder )

	' Map the virtual path to the local server path.

	Dim sServerDir

	sServerDir = ServerMapFolder( resourceType, currentFolder, "GetFolders" )

	' Open the "Folders" node.

	Response.Write "<Folders>"

	Dim oFSO, oCurrentFolder, oFolders, oFolder

	Set oFSO = Server.CreateObject( "Scripting.FileSystemObject" )

	if not (oFSO.FolderExists( sServerDir ) ) then

		Set oFSO = Nothing

		SendError 102, currentFolder

	end if

	Set oCurrentFolder = oFSO.GetFolder( sServerDir )

	Set oFolders = oCurrentFolder.SubFolders

	For Each oFolder in oFolders

		Response.Write "<Folder name=""" & ConvertToXmlAttribute( oFolder.name ) & """ />"

	Next

	Set oFSO = Nothing

	' Close the "Folders" node.

	Response.Write "</Folders>"

End Sub

Sub GetFoldersAndFiles( resourceType, currentFolder )

	' Map the virtual path to the local server path.

	Dim sServerDir

	sServerDir = ServerMapFolder( resourceType, currentFolder, "GetFoldersAndFiles" )

	Dim oFSO, oCurrentFolder, oFolders, oFolder, oFiles, oFile

	Set oFSO = Server.CreateObject( "Scripting.FileSystemObject" )

	if not (oFSO.FolderExists( sServerDir ) ) then

		Set oFSO = Nothing

		SendError 102, currentFolder

	end if

	Set oCurrentFolder = oFSO.GetFolder( sServerDir )

	Set oFolders	= oCurrentFolder.SubFolders

	Set oFiles		= oCurrentFolder.Files

	' Open the "Folders" node.

	Response.Write "<Folders>"

	For Each oFolder in oFolders

		Response.Write "<Folder name=""" & ConvertToXmlAttribute( oFolder.name ) & """ />"

	Next

	' Close the "Folders" node.

	Response.Write "</Folders>"

	' Open the "Files" node.

	Response.Write "<Files>"

	For Each oFile in oFiles

		Dim iFileSize

		iFileSize = Round( oFile.size / 1024 )

		If ( iFileSize < 1 AND oFile.size <> 0 ) Then iFileSize = 1

		Response.Write "<File name=""" & ConvertToXmlAttribute( oFile.name ) & """ size=""" & iFileSize & """ />"

	Next

	' Close the "Files" node.

	Response.Write "</Files>"

End Sub

Sub CreateFolder( resourceType, currentFolder )

	Dim sErrorNumber

	Dim sNewFolderName

	sNewFolderName = Request.QueryString( "NewFolderName" )

	sNewFolderName = SanitizeFolderName( sNewFolderName )

	If ( sNewFolderName = "" OR InStr( 1, sNewFolderName, ".." ) > 0  ) Then

		sErrorNumber = "102"

	Else

		' Map the virtual path to the local server path of the current folder.

		Dim sServerDir

		sServerDir = ServerMapFolder( resourceType, CombineLocalPaths(currentFolder, sNewFolderName), "CreateFolder" )

		On Error Resume Next

		CreateServerFolder sServerDir

		Dim iErrNumber, sErrDescription

		iErrNumber		= err.number

		sErrDescription	= err.Description

		On Error Goto 0

		Select Case iErrNumber

			Case 0

				sErrorNumber = "0"

			Case 52

				sErrorNumber = "102"	' Invalid Folder Name.

			Case 70

				sErrorNumber = "103"	' Security Error.

			Case 76

				sErrorNumber = "102"	' Path too long.

			Case Else

				sErrorNumber = "110"

		End Select

	End If

	' Create the "Error" node.

	Response.Write "<Error number=""" & sErrorNumber & """ />"

End Sub

Sub FileUpload( resourceType, currentFolder, sCommand )

	Dim oUploader

	Set oUploader = New NetRube_Upload

	oUploader.MaxSize	= 0

	oUploader.Allowed	= ConfigAllowedExtensions.Item( resourceType )

	oUploader.Denied	= ConfigDeniedExtensions.Item( resourceType )

	oUploader.HtmlExtensions = ConfigHtmlExtensions

	oUploader.GetData

	Dim sErrorNumber

	sErrorNumber = "0"

	Dim sFileName, sOriginalFileName, sExtension

	sFileName = ""

	If oUploader.ErrNum > 0 Then

		sErrorNumber = "202"

	Else

		' Map the virtual path to the local server path.

		Dim sServerDir

		sServerDir = ServerMapFolder( resourceType, currentFolder, sCommand )

		Dim oFSO

		Set oFSO = Server.CreateObject( "Scripting.FileSystemObject" )

		if not (oFSO.FolderExists( sServerDir ) ) then

			sErrorNumber = "102"

		else

			' Get the uploaded file name.

			sFileName	= oUploader.File( "NewFile" ).Name

			sExtension	= oUploader.File( "NewFile" ).Ext

			sFileName = SanitizeFileName( sFileName )

			sOriginalFileName = sFileName

			Dim iCounter

			iCounter = 0

			Do While ( True )

				Dim sFilePath

				sFilePath = CombineLocalPaths(sServerDir, sFileName)

				If ( oFSO.FileExists( sFilePath ) ) Then

					iCounter = iCounter + 1

					sFileName = RemoveExtension( sOriginalFileName ) & "(" & iCounter & ")." & sExtension

					sErrorNumber = "201"

				Else

					oUploader.SaveAs "NewFile", sFilePath

					If oUploader.ErrNum > 0 Then sErrorNumber = "202"

					Exit Do

				End If

			Loop

		end if

	End If

	Set oUploader	= Nothing

	dim sFileUrl

	sFileUrl = CombinePaths( GetResourceTypePath( resourceType, sCommand ) , currentFolder )

	sFileUrl = CombinePaths( sFileUrl, sFileName )

	If ( sErrorNumber = "0" or sErrorNumber = "201" ) then

		SendUploadResults sErrorNumber, sFileUrl, sFileName, ""

	Else

		SendUploadResults sErrorNumber, "", "", ""

	End If

End Sub

%>