ASPEdit : ASP Example

<% '========================================================= ' Retrieve the data from editor: ' If you specify your editor ID is "Editor1" ' Retrieve the data from editor: Request.Form("Editor1_HTMLContent") '========================================================= %> ASPEdit : ASP Example

Enable All Toolbars

This example show you all the predefined buttons.

<% dim content content = "Type here..." dim contactstring contactstring = "

Email:

" contactstring = contactstring &"

Sales: sales@ASPEdit.Net

" contactstring = contactstring &"

General: info@ASPEdit.Net

" contactstring = contactstring &"

Support: support@ASPEdit.Net

Address:

" contactstring = contactstring &"

CuteSoft
35 SHERWOOD CRES

" contactstring = contactstring &"

BELLEVILLE ON

" contactstring = contactstring &"

K8P 5G2

" contactstring = contactstring &"

Canada

" dim temp_styledropdownMenuNames,temp_styledropdownMenuList,temp_snippetDropDownMenuNames,temp_snippetDropDownMenuList,temp_imagesDropDownMenuNames,temp_imagesDropDownMenuList temp_styledropdownMenuNames = "Heading,Head,Subhead,NormalRed,Comment" temp_styledropdownMenuList = "Heading,Head,Subhead,NormalRed,Comment" temp_snippetDropDownMenuNames = "Contact Info,Copyright" temp_snippetDropDownMenuList = contactstring&",Copyright 2003 ASPEdit.All right seserved." temp_imagesDropDownMenuNames = "Contact us,Hi Canada,Need a tool,Flower,Business,Beautiful Smile,Content tools,Nice Couple" temp_imagesDropDownMenuList = "/uploads/j0182534.jpg,/uploads/j0182611.jpg,/uploads/j0178413.jpg,/uploads/j0313820.jpg,/uploads/PH01956J.jpg,/uploads/j0262681.jpg,/uploads/j0316779.jpg,/uploads/ph01736j.jpg" temp_linksDropDownMenuNames = "ASPEdit,Mail to us,Yahoo.com,Google.com,ASP.NET" temp_linksDropDownMenuList = "Http://www.ASPEdit.net,mailto:support@ASPEdit.Net,Http://www.yahoo.com,Http://www.google.com,Http://www.asp.net" Dim editor Set editor = New ASPEdit 'Create a new editor class object 'Set the ID of this editor class editor.ID = "Editor1" 'Set the initial HTML value of editor control editor.Text = content editor.FilesPath = "ASPEdit_Files" 'Specifies the URL path of the Image Gallery. default "Uploads" editor.ImageGalleryPath = "/Uploads" 'Specifies the URL path of the Flash Gallery. default "Uploads" 'editor.FlashPath= "/uploads" 'Specifies the URL path of the Downloadable Files. default "Uploads" 'editor.DocumentPath= "/uploads" editor.MaxImageSize = 50 'Specifies the URL path of the Help button. editor.HelpUrl = "http://yahoo.com" editor.AutoConfigure = "enableall" 'if session("access") < 3 then editor.AllowUpload = false 'end if 'A list of strings for the paragraph dropdownlist. editor.ParagraphsList = "Normal,Heading 1,Heading 2,Heading 3,Formatted,Definition Term" 'A list of fonts for the font face dropdownlist. editor.FontFacesList = "Arial,Verdana" 'A list of numbers for the zoom dropdownlist. editor.ZoomsList = "500%,200%,125%,25%" 'A list of numbers for the font size dropdownlist. editor.FontSizesList = "1,2,3,4,5,7" 'editor.StyleSheetPath = "mystylesheet.css" 'The width for the Links drop down. 'editor.LinksDropDownWidth = 100 'The width for the Paragraphs drop down. 'editor.ParagraphsDropDownWidth = 100 'The width for the Sizes drop down. 'editor.SizesDropDownWidth = 100 'The width for the Zooms drop down. 'editor.ZoomsDropDownWidth = 100 'The width for the Styles drop down. 'editor.StylesDropDownWidth = 100 'The width for the Code Snippets drop down. 'editor.CodeSnippetsDropDownWidth = 100 'The width for the Images drop down. 'editor.ImagesDropDownWidth = 100 'The width for the fonts drop down. 'editor.FontsDropDownWidth = 100 'Columns attributes of this

tag, Only used for downlevel browsers..
										'editor.TextareaCols = 50
										
										'rows attributes of this <textarea> tag,Only used for downlevel browsers..
										'editor.TextareaRows = 13
										
										'Specifies the max size in Kbytes of the image files that the user has access to upload. Default 100k 
										'editor.MaxImageSize  = 50
										
										'Specifies the max size in Kbytes of the downloadable files that the user has access to upload. Default 100k 
										'editor.MaxDocumentSize  = 50
										
										'Specifies the max size in Kbytes of the flash files that the user has access to upload. Default 100k 
										'editor.MaxFlashSize  = 50
										
										'Specifies the Bottom ASPEdit logo text. 
										'editor.LogoText  = "Hello World"	
										
										'Whether to enable the client script based HTML editor.
										'editor.EnableClientScript = false									
										
										'more than one editor on a page it is recommended that you call the subsequent on all editors except the first editor This will greatly improve performance.
										'editor.Subsequent = true
										
										'The toolbar items needed to be disabled going to this string. Example DisableItemList="Bold, New, Delete" 
										'editor.DisableItemList = "Save"
										
										'Specifies whether the Bottom Bar(Design, Html and Preview Mode tab) appear. 
										'editor.ShowBottomBar = false
										
										'Specifies whether the Html Mode tab appear. 
										'editor. ShowHtmlMode = false
										
										'CustomAddons
										editor.CustomAddons = "<img title=""Custom Addons"" class=""button"" onclick=""alert('This is a custom function');"" type=""btn"" src=""ASPEdit_Files/cut.gif"" border=""0"" />"

editor.StyleDropDownMenuNames = temp_styledropdownMenuNames	
										editor.StyleDropDownMenuList  = temp_styledropdownMenuList
										
										editor.CodeSnippetDropDownMenuNames = temp_snippetDropDownMenuNames													
										editor.CodeSnippetDropDownMenuList  = temp_snippetDropDownMenuList
										editor.ImagesDropDownMenuNames		= temp_imagesDropDownMenuNames													
										editor.ImagesDropDownMenuList		= temp_imagesDropDownMenuList
										editor.LinksDropDownMenuNames		= temp_linksDropDownMenuNames													
										editor.LinksDropDownMenuList		= temp_linksDropDownMenuList
													
										'editor.Template= "Bold,Italic,Underline"
										'editor.StyleSheetPath = "/grey2.css"
										'editor.Width = 740
										'editor.Height = 100
										editor.Draw()
										
										Response.Write "<br><br>"
										Dim editor2
										Set editor2 = New ASPEdit  'Create a new editor class object									
										
										editor2.subsequent = true
										editor2.ID = "Editor2" 'Set the ID of this editor class
										editor2.Text = content 'Set the initial HTML value of editor control
										editor2.FilesPath = "ASPEdit_Files"
										editor2.ImageGalleryPath = "/Uploads"
										editor2.MaxImageSize = 50
										editor2.Height = 50
										editor2.AutoConfigure = "Simple"
										editor2.Draw()
										
			
	
										' Retrieve the data from editor: Request.Form("Editor1_HTMLContent") 
		
									%>
									<br>
									<input type="submit" value="Update"  ID="Submit1" NAME="Submit1" onfocus="save(Editor1);save(Editor2);">
									<br>
									<br>
														
								</td>
							</tr>
						</table>
						</td>
					</tr>
            </table>
            
            
            
		</form>
	</body>
</html>