<% @ Language=VBScript %> <% Option Explicit %> <% '**************************************************************************************** '** Copyright Notice '** '** Web Wiz Rich Text Editor '** http://www.richtexteditor.org '** '** Copyright 2001-2006 Web Wiz. All Rights Reserved. '** '** THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS UNDER LICENSE FROM 'WEB WIZ'. '** '** IF YOU DO NOT AGREE TO THE LICENSE AGREEMENT THEN 'WEB WIZ' IS UNWILLING TO LICENSE '** THE SOFTWARE TO YOU, AND YOU SHOULD DESTROY ALL COPIES YOU HOLD OF 'WEB WIZ' SOFTWARE '** AND DERIVATIVE WORKS IMMEDIATELY. '** '** If you have not received a copy of the license with this work then a copy of the latest '** license contract can be found at:- '** '** http://www.webwizguide.com/license '** '** For more information about this software and for licensing information please contact '** 'Web Wiz' at the address and website below:- '** '** Web Wiz, Unit 10E, Dawkins Road Industrial Estate, Poole, Dorset, BH15 4JD, England '** http://www.webwizguide.com '** '** Removal or modification of this copyright notice will violate the license contract. '** '**************************************************************************************** 'Set the response buffer to true as we maybe redirecting Response.Buffer = True 'Dimension veriables Dim objFSO 'Holds the file system object Dim tsObject 'Holds the text stream object Dim strFilePath 'Holds the file path Dim saryAllowedFileTypes 'Holds the allowed file types Dim intExtensionLoopCounter 'Holds the extension loop counter Dim strFileName 'Holds the file name Dim strFileExtension 'Holds the file extension Dim strFileTitle 'Holds the file title Dim blnFileExtensionOK 'Set to true if file extension is OK Dim strEditorContents 'Holds the contents of the editor Dim strFileContents 'Holds the file contents to save Dim strNewFileName 'Holds the new filename as it may need to be changed Dim blnNewFileName 'set to rtrue if the fimename is changed Dim strSavePageEncoding 'Holds the code page 'if save is on run the file If blnSave Then 'Get the file types allowed saryAllowedFileTypes = Split(Trim(strSaveFileTypes), ";") 'Get the save file path strFilePath = strSaveFileFolderPath 'Change \ for / strFilePath = Replace(strFilePath, "\", "/'", 1, -1, 1) 'If this is a postback save the file If Request.Form("postback") Then blnFileExtensionOK = false blnNewFileName = false 'Read in the form details strFileName = Trim(Request.Form("fileName")) strFileExtension = Trim(Request.Form("ext")) strFileTitle = Trim(Request.Form("title")) strEditorContents = Request.Form("WebWizRTE") strSavePageEncoding = Trim(Request.Form("DOCTYPE")) 'Check the file extension is OK 'Loop through and display allowed extensions For intExtensionLoopCounter = 0 To UBound(saryAllowedFileTypes) If strFileExtension = "." & saryAllowedFileTypes(intExtensionLoopCounter) Then blnFileExtensionOK = true Next 'If the file extension is not allowed set the file type to text If blnFileExtensionOK = false Then strFileExtension = ".txt" 'Check there is a title If strFileTitle = "" Then strFileTitle = "Untitled Document" '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** If blnAbout Then strFileTitle = strFileTitle & " - Saved from Web Wiz Rich Text Editor ver. " & strRTEversion End If '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** 'Build file contents strFileContents = "" & _ vbCrLf & "" & _ vbCrLf & "" & _ vbCrLf & "" & strFileTitle & "" & _ vbCrLf & strSavePageEncoding & _ vbCrLf & "" & _ vbCrLf & "" & _ vbCrLf & "" & _ vbCrLf & strEditorContents & _ vbCrLf & "" & _ vbCrLf & "" 'Save the file 'Initilse the files name strNewFileName = strFileName 'Check the file name is OK 'Remove dodgy characters that may course problems strNewFileName = characterStrip(strNewFileName) 'If there is no file name left make one If strNewFileName = "" Then strNewFileName = "New Document" 'Loop through and remove any extra extensions in the file name For intExtensionLoopCounter = 0 To UBound(saryAllowedFileTypes) strNewFileName = Replace(strNewFileName, "." & saryAllowedFileTypes(intExtensionLoopCounter), "", 1, -1, 0) Next 'Add the extension onto the file name strNewFileName = strNewFileName & strFileExtension 'Create the file system object Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 'If you can not overwrite files check to make sure the file does not exsist, if it does rename the file If blnOverWriteFiles = false Then 'Check to make sure the file does not already exist Do While objFSO.FileExists(Server.MapPath(strSaveFileFolderPath) & "\" & strNewFileName) 'Create a new file name for file if it already exsist strNewFileName = hexValue(3) & "_" & strNewFileName Loop End If 'Create a new file Set tsObject = objFSO.CreateTextFile(Server.MapPath(strSaveFileFolderPath) & "\" & strNewFileName) 'Write to the new file tsObject.Write strFileContents 'Clean up Set objFSO = Nothing Set tsObject = Nothing 'See if the file name is changed If strFileName & strFileExtension <> strNewFileName Then blnNewFileName = true End If %> Save File <% '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** Response.Write(vbCrLf & "") '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** %>
<% = strTxtSave %>
<% = strTxtPath %>:
<% = strTxtFileName %>:
   
   
<% = strTxtFileName %>:
<% = strTxtTitle %>:
DOCTYPE:
 <% '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** If blnAbout Then Response.Write("Powered by Web Wiz Rich Text Editor version " & strRTEversion & "") End If '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** %>  

<% 'If the file has been saved display a message If Request.Form("postback") Then Response.Write("") End If End If %>