rte_toolbar_inc.asp

简单的asp论坛源码系统,很适用于初学者!界面简洁,功能齐全

<%
'****************************************************************************************
'**  Copyright Notice    
'**
'**  Web Wiz Rich Text Editor(TM)
'**  http://www.richtexteditor.org
'**                                               
'**  Copyright (C)2001-2008 Web Wiz(TM). 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.
'**
'****************************************************************************************



'*************************** SOFTWARE AND CODE MODIFICATIONS **************************** 
'**
'** MODIFICATION OF THE FREE EDITIONS OF THIS SOFTWARE IS A VIOLATION OF THE LICENSE  
'** AGREEMENT AND IS STRICTLY PROHIBITED
'**
'** If you wish to modify any part of this software a license must be purchased
'**
'****************************************************************************************



'***************************
'****	RTE Toolbar 1	****
'***************************

'File toolbar
'------------
If blnNew Then Response.Write(vbCrLf & "	document.writeln('<img src=""" & strImagePath & "toolbar_separator.gif"" />")
If blnNew Then Response.Write("<img src=""" & strImagePath & "post_button_new.gif"" title=""" & strTxtNewBlankDoc & """ onclick=""clearWebWizRTE()"" class=""WebWizRTEbutton"" onmouseover=""overIcon(this)"" onmouseout=""outIcon(this)"" />")
If blnNew Then Response.Write("');")



'Preview, print, spell toolbar
'------------
If blnPrint OR blnPreview OR (blnSpellCheck AND NOT RTEenabled = "opera") OR blnHTMLView Then Response.Write(vbCrLf & "	document.writeln('<img src=""" & strImagePath & "toolbar_separator.gif"" />")
If blnPrint Then Response.Write("<img src=""" & strImagePath & "post_button_print.gif"" title=""" & strTxtPrint & """ onclick=""printEditor()"" class=""WebWizRTEbutton"" onmouseover=""overIcon(this)"" onmouseout=""outIcon(this)"" />")
'Button Pop up Preview
If blnPreview Then Response.Write("<img src=""" & strImagePath & "post_button_preview.gif"" title=""" & strTxtPreview & """ onclick=""document.getElementById(\'pre\').value = document.getElementById(\'WebWizRTE\').contentWindow.document.body.innerHTML; OpenPreviewWindow(document.' + formName + ');"" class=""WebWizRTEbutton"" onmouseover=""overIcon(this)"" onmouseout=""outIcon(this)"" />")
'Spell check button
If blnSpellCheck AND NOT RTEenabled = "opera" Then Response.Write("<img src=""" & strImagePath & "post_button_spell_check.gif"" onclick=""checkspell()"" title=""" & strTxtstrSpellCheck & """ class=""WebWizRTEbutton"" onmouseover=""overIcon(this)"" onmouseout=""outIcon(this)"" id=""spellboundSC"" />")
If blnHTMLView Then Response.Write("<img src=""" & strImagePath & "post_button_html.gif"" title=""" & strTxtToggleHTMLView & """ onclick=""HTMLview()"" class=""WebWizRTEbutton"" onmouseover=""overIcon(this)"" onmouseout=""outIcon(this)"" />")
If blnPrint OR blnPreview OR (blnSpellCheck AND NOT RTEenabled = "opera") OR blnHTMLView Then Response.Write("');")


'The span tag needs to be put in to hide the other options in HTML view
Response.Write(vbCrLf & "	document.writeln('<span id=""ToolBar1"">');")



'cut, copy, paste toolbar
'------------
If blnCut OR blnCopy OR blnPaste OR blnWordPaste Then Response.Write(vbCrLf & "	document.writeln('<img src=""" & strImagePath & "toolbar_separator.gif"" />")
If blnCut Then Response.Write("<img src=""" & strImagePath & "post_button_cut.gif"" onclick=""FormatText(\'cut\')"" title=""" & strTxtCut & """ class=""WebWizRTEbutton"" onmouseover=""overIcon(this)"" onmouseout=""outIcon(this)"" />")
If blnCopy Then Response.Write("<img src=""" & strImagePath & "post_button_copy.gif"" onclick=""FormatText(\'copy\')"" title=""" & strTxtCopy & """ class=""WebWizRTEbutton"" onmouseover=""overIcon(this)"" onmouseout=""outIcon(this)"" />")
If blnPaste Then Response.Write("<img src=""" & strImagePath & "post_button_paste.gif"" onclick=""FormatText(\'paste\')"" title=""" & strTxtPaste & """ class=""WebWizRTEbutton"" onmouseover=""overIcon(this)"" onmouseout=""outIcon(this)"" />")
If blnWordPaste Then Response.Write("<img src=""" & strImagePath & "post_button_word.gif"" onclick=""winOpener(\'RTE_popup_word_paste.asp" & strQsSID1 & "\',\'save\',0,1,600,290)"" title=""" & strTxtPasteFromWord & """ class=""WebWizRTEbutton"" onmouseover=""overIcon(this)"" onmouseout=""outIcon(this)"" />")
If blnCut OR blnCopy OR blnPaste OR blnWordPaste Then Response.Write("');")



'undo redo toolbar
'------------
If blnUndo OR blnRedo Then Response.Write(vbCrLf & "	document.writeln('<img src=""" & strImagePath & "toolbar_separator.gif"" />")
If blnUndo Then Response.Write("<img src=""" & strImagePath & "post_button_undo.gif"" onclick=""FormatText(\'undo\')"" title=""" & strTxtUndo & """ class=""WebWizRTEbutton"" onmouseover=""overIcon(this)"" onmouseout=""outIcon(this)"" />")
If blnRedo Then Response.Write("<img src=""" & strImagePath & "post_button_redo.gif"" onclick=""FormatText(\'redo\')"" title=""" & strTxtRedo & """ class=""WebWizRTEbutton"" onmouseover=""overIcon(this)"" onmouseout=""outIcon(this)"" />")
If blnUndo OR blnRedo Then Response.Write("');")



'insert toolbar
'------------
If blnAdvAdddHyperlink OR blnAddHyperlink Or blnAttachments OR blnAdvAddImage OR blnAddImage OR blnInsertTable OR blnSpecialCharacters Or blnEmoticons Then Response.Write(vbCrLf & "	document.writeln('<img src=""" & strImagePath & "toolbar_separator.gif"" />")
'If advanced hyperlink is enabled have a popup link
If blnAdvAdddHyperlink Then
	Response.Write("<img src=""" & strImagePath & "post_button_hyperlink.gif"" onclick=""winOpener(\'RTE_popup_link.asp" & strQsSID1 & "\',\'link\',0,1,490,337)"" title=""" & strTxtAddHyperlink & """ class=""WebWizRTEbutton"" onmouseover=""overIcon(this)"" onmouseout=""outIcon(this)"" />")
'Else have the basic hperlink adding feature
ElseIf blnAddHyperlink Then
	Response.Write("<img src=""" & strImagePath & "post_button_hyperlink.gif"" onclick=""FormatText(\'createLink\')"" title=""" & strTxtAddHyperlink & """ class=""WebWizRTEbutton"" onmouseover=""overIcon(this)"" onmouseout=""outIcon(this)"" />")
End If
If blnAttachments Then Response.Write("   <img src=""" & strImagePath & "post_button_file_upload.gif"" onclick=""winOpener(\'RTE_popup_file_atch.asp" & strQsSID1 & "\',\'files\',0,1,775,404)"" title=""" & strTxtFileUpload & """ border=""0"" class=""WebWizRTEbutton"" onmouseover=""overIcon(this)"" onmouseout=""outIcon(this)"" />")
'Popup window for images