|
|
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
 | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
<%
Function WriteDynamicFile( strFilePath )
Dim CompleteFilesFolderPath
Dim fso
'Find the complete path to image folder by using Server.MapPath
CompleteFilesFolderPath = Server.MapPath(strFilePath)
'Create an instance of the FileSystemObject which allows ASP to
'access the file system
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Dim textStreamObject
Set textStreamObject = fso.OpenTextFile(CompleteFilesFolderPath,1,false,0)
Response.Write textStreamObject.ReadAll
Set textStreamObject = Nothing
Set fso = Nothing
End Function ' WriteDynamicFile()
Function RandomFile( FilesFolderPath, DisplayFileTypes )
'Declare variables
Dim CompleteFilesFolderPath
Dim FileSystemObject
Dim FileFolder
Dim Files
Dim i
Dim DisplayFiles
Dim File
Dim FileName
Dim FileExtension
Dim RandomNumber
'Normalize the path
if ( Right(FilesFolderPath,1)<>"/" ) Then FilesFolderPath= FilesFolderPath & "/"
'Find the complete path to image folder by using Server.MapPath
CompleteFilesFolderPath = Server.MapPath(FilesFolderPath)
'Create an instance of the FileSystemObject which allows ASP to
'access the file system
Set FileSystemObject = Server.CreateObject("Scripting.FileSystemObject")
'Check that the folder containing the images exists
If Not FileSystemObject.FolderExists(CompleteFilesFolderPath) Then
RandomFile = "Error 0: Cannot find requested folder"
Set FileSystemObject = nothing
Exit Function
End If
'Get the folder containing the images
Set FileFolder = FileSystemObject.GetFolder(CompleteFilesFolderPath)
'Get a list of all the files within the images folder
Set Files = FileFolder.Files
'Use a dictionary object to temporarily store the image file names
i = 1
Set DisplayFiles = Server.CreateObject("Scripting.Dictionary")
'Loop through the list of files within the images folder.
'If the file has a file extension that is in the list of
'file types specified in the DisplayFileTypes function parameter,
'then add the file name to the DisplayFiles dictionary object
For Each File in Files
FileName = File.Name
FileExtension = Right(FileName, Len(FileName) - (InStrRev(FileName, ".")))
If InStr(1,DisplayFileTypes,FileExtension,vbTextCompare) > 0 then
DisplayFiles.Add i, FileName
i = i + 1
End If
Next
'Destroy objects that are no longer required
Set FileFolder = nothing
Set Files = nothing
Set FileSystemObject = nothing
'Initialise the random number generator
Randomize
' Check that image file(s) have been found
If DisplayFiles.Count = 0 Then
RandomFile = "Error 1: Requested folder does not contain any image files"
Exit Function
End If
'Generate a random number between 1 and the number of image files
RandomNumber = Int((DisplayFiles.Count) * Rnd + 1)
'Return a path to a random file
RandomFile = FilesFolderPath & DisplayFiles.Item(RandomNumber)
Set DisplayFiles = nothing
End Function ' end RandomFile()
%>
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
Key Features
|
 |
|
|||||||||||
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
|
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
|
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
The Commercial Sound Ozone 3 includes all the tools you need to master the commercial sound in seconds. Professionally designed presets and the acclaimed Ozone Mastering Guide walk you step by step through making radio-ready masters. The process of mastering ranges from correcting mistakes made in the mix to preparing a recording for target listening environments. Like a final coat of polish, mastering makes the difference between a good sounding mix and a professional sounding master. Ozone includes integrated tools for each step of the process: add broad equalization to balance the tone, multiband compression to control the dynamics, harmonic excitation to inject punch and sparkle, stereo imaging to sculpt the sound stage, loudness maximization to raise the level of the entire track to the standard for commercial use, and dither to maintain every last bit of quality. Since Ozone was designed to address the mastering process, all the components work together to help you put that final professional sound on a project. With Ozone 3, be prepared to love your sound. Professionally Designed Presets 7 Plug-ins in 1 Integrated Interface Analog Modeling Digital Precision 64-bit Audio Processing Usability Enhancements: Undo and History
|
<%
'Initialise the random number generator
Randomize
dim nRandomPageOzone
nRandomPageOzone= Int( 4 * Rnd + 1 )
select case nRandomPageOzone
case 1
%>
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||
© Copyright 2007 iZotope, Inc.
All Rights reserved. | Legal and Trademarks |
Privacy | ![iZotope Newsletter [RSS]](/images/rss.gif) |
||
|
||
