rte_toolbar_inc.asp

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

If blnAdvAddImage Then
	Response.Write("<img src=""" & strImagePath & "post_button_image.gif"" onclick=""winOpener(\'RTE_popup_adv_image.asp" & strQsSID1 & "\',\'insertImg\',0,1,775,402)"" title=""" & strTxtAddImage & """ class=""WebWizRTEbutton"" onmouseover=""overIcon(this)"" onmouseout=""outIcon(this)"" />")
ElseIf blnAddImage Then
	Response.Write("<img src=""" & strImagePath & "post_button_image.gif"" onclick=""winOpener(\'RTE_popup_image.asp" & strQsSID1 & "\',\'insertImg\',0,1,550,360)"" title=""" & strTxtAddImage & """ class=""WebWizRTEbutton"" onmouseover=""overIcon(this)"" onmouseout=""outIcon(this)"" />")
End If
'Popup window for tables
If blnInsertTable Then Response.Write("<img src=""" & strImagePath & "post_insert_table.gif"" onclick=""winOpener(\'RTE_popup_table.asp" & strQsSID1 & "\',\'insertTable\',0,1,400,198)"" title=""" & strTxtInsertTable & """ class=""WebWizRTEbutton"" onmouseover=""overIcon(this)"" onmouseout=""outIcon(this)"" />")
'Popup window for Special Characters
If blnSpecialCharacters Then Response.Write("<img src=""" & strImagePath & "post_button_sp_char.gif"" onclick=""winOpener(\'RTE_popup_special_characters.asp" & strQsSID1 & "\',\'insertTable\',0,1,550,304)"" title=""" & strTxtSpecialCharacters & """ class=""WebWizRTEbutton"" onmouseover=""overIcon(this)"" onmouseout=""outIcon(this)"" />")
'Button Pop up for emoticons
If blnEmoticons Then Response.Write("<img src=""" & strImagePath & "post_button_smiley.gif"" onclick=""winOpener(\'RTE_popup_emoticons.asp" & strQsSID1 & "\',\'emot\',0,1,450,350)"" title=""" & strTxtEmoticons & """ class=""WebWizRTEbutton"" onmouseover=""overIcon(this)"" onmouseout=""outIcon(this)"" />")
If blnAdvAdddHyperlink OR blnAddHyperlink Or blnAttachments OR blnAdvAddImage OR blnAddImage OR blnInsertTable OR blnSpecialCharacters Or blnEmoticons Then Response.Write("');")



'List type and indent toolbar
'------------
If blnOrderList OR blnUnOrderList OR blnOutdent OR blnIndent Or blnHorizontalRule Then Response.Write(vbCrLf & "	document.writeln('<img src=""" & strImagePath & "toolbar_separator.gif"" />")
If blnOrderList Then Response.Write("<img src=""" & strImagePath & "post_button_or_list.gif"" onclick=""FormatText(\'InsertOrderedList\', \'\')"" title=""" & strTxtstrTxtOrderedList & """ class=""WebWizRTEbutton"" onmouseover=""overIcon(this)"" onmouseout=""outIcon(this)"" />")
If blnUnOrderList Then Response.Write("<img src=""" & strImagePath & "post_button_list.gif"" onclick=""FormatText(\'InsertUnorderedList\', \'\')"" title=""" & strTxtUnorderedList & """ class=""WebWizRTEbutton"" onmouseover=""overIcon(this)"" onmouseout=""outIcon(this)"" />")
If blnOutdent Then Response.Write("<img src=""" & strImagePath & "post_button_outdent.gif"" onclick=""FormatText(\'Outdent\', \'\')"" title=""" & strTxtOutdent & """ class=""WebWizRTEbutton"" onmouseover=""overIcon(this)"" onmouseout=""outIcon(this)"" />")
If blnIndent Then Response.Write("<img src=""" & strImagePath & "post_button_indent.gif"" onclick=""FormatText(\'indent\', \'\')"" title=""" & strTxtIndent & """ class=""WebWizRTEbutton"" onmouseover=""overIcon(this)"" onmouseout=""outIcon(this)"" />")
If blnHorizontalRule Then Response.Write("<img src=""" & strImagePath & "post_button_h_rule.gif"" title=""" & strTxtHorizontalRule & """ onclick=""FormatText(\'inserthorizontalrule\', \'\')"" class=""WebWizRTEbutton"" onmouseover=""overIcon(this)"" onmouseout=""outIcon(this)"" />")
If blnOrderList OR blnUnOrderList OR blnOutdent OR blnIndent Or blnHorizontalRule Then Response.Write("');")


Response.Write(vbCrLf & "	document.writeln('</span><br />');")




'***************************
'****	RTE Toolbar 2	****
'***************************

Response.Write(vbCrLf & "	document.writeln('<span id=""ToolBar2"">');")


'Toolbar buttons


'Font type toolbar
'------------
If blnFontStyle OR blnFontType OR blnFontSize Then Response.Write(vbCrLf & "	document.writeln('<img src=""" & strImagePath & "toolbar_separator.gif"" />")
'Font Style
If blnFontStyle Then Response.Write("<img id=""formatblock"" src=""" & strImagePath & "post_button_format.gif"" title=""" & strTxtFontStyle & """ onclick=""FormatText(\'formatblock\', \'\')"" class=""WebWizRTEbutton"" />")
'Font Type
If blnFontType  Then Response.Write("<img id=""fontname"" src=""" & strImagePath & "post_button_font.gif"" title=""" & strTxtFontTypes & """ onclick=""FormatText(\'fontname\', \'\')"" class=""WebWizRTEbutton"" />")
'Font Size
If blnFontSize  Then Response.Write("<img id=""fontsize"" src=""" & strImagePath & "post_button_size.gif"" title=""" & strTxtFontSizes & """ onclick=""FormatText(\'fontsize\', \'\')"" class=""WebWizRTEbutton"" />")
If blnFontStyle OR blnFontType OR blnFontSize Then Response.Write("');")



'Font style toolbar
'------------
If blnBold OR blnItalic OR blnUnderline Then Response.Write(vbCrLf & "	document.writeln('<img src=""" & strImagePath & "toolbar_separator.gif"" />")
If blnBold Then Response.Write("<img src=""" & strImagePath & "post_button_bold.gif"" title=""" & strTxtBold & """ onclick=""FormatText(\'bold\', \'\')"" class=""WebWizRTEbutton"" onmouseover=""overIcon(this)"" onmouseout=""outIcon(this)"" />")
If blnItalic Then Response.Write("<img src=""" & strImagePath & "post_button_italic.gif""  title=""" & strTxtItalic & """ onclick=""FormatText(\'italic\', \'\')"" class=""WebWizRTEbutton"" onmouseover=""overIcon(this)"" onmouseout=""outIcon(this)"" />")
If blnUnderline Then Response.Write("<img src=""" & strImagePath & "post_button_underline.gif"" title=""" & strTxtUnderline & """ onclick=""FormatText(\'underline\', \'\')"" class=""WebWizRTEbutton"" onmouseover=""overIcon(this)"" onmouseout=""outIcon(this)"" />")
If blnBold OR blnItalic OR blnUnderline Then Response.Write("');")



'Stikethrough, super/sub script toolbar
'------------
If blnStrikeThrough OR blnSubscript OR blnSuperscript Then Response.Write(vbCrLf & "	document.writeln('<img src=""" & strImagePath & "toolbar_separator.gif"" />")
If blnStrikeThrough Then Response.Write("<img src=""" & strImagePath & "post_button_strike.gif"" title=""" & strTxtStrikeThrough & """ onclick=""FormatText(\'strikethrough\', \'\')"" class=""WebWizRTEbutton"" onmouseover=""overIcon(this)"" onmouseout=""outIcon(this)"" />")
If blnSubscript Then Response.Write("<img src=""" & strImagePath & "post_button_subscript.gif"" title=""" & strTxtSubscript & """ onclick=""FormatText(\'subscript\', \'\')"" class=""WebWizRTEbutton"" onmouseover=""overIcon(this)"" onmouseout=""outIcon(this)"" />")
If blnSuperscript Then Response.Write("<img src=""" & strImagePath & "post_button_superscript.gif"" title=""" & strTxtSuperscript & """ onclick=""FormatText(\'superscript\', \'\')"" class=""WebWizRTEbutton"" onmouseover=""overIcon(this)"" onmouseout=""outIcon(this)"" />")
If blnStrikeThrough OR blnSubscript OR blnSuperscript Then Response.Write("');")



'Font block format toolbar
'------------
If blnLeftJustify OR blnCentre OR blnRightJustify OR blnFullJustify Then Response.Write(vbCrLf & "	document.writeln('<img src=""" & strImagePath & "toolbar_separator.gif"" />")
If blnLeftJustify Then Response.Write("<img src=""" & strImagePath & "post_button_left_just.gif"" onclick=""FormatText(\'justifyleft\', \'\')"" title=""" & strTxtLeftJustify & """ class=""WebWizRTEbutton"" onmouseover=""overIcon(this)"" onmouseout=""outIcon(this)"" />")
If blnCentre Then Response.Write("<img src=""" & strImagePath & "post_button_centre.gif"" onclick=""FormatText(\'justifycenter\', \'\')"" title=""" & strTxtCentrejustify & """ class=""WebWizRTEbutton"" onmouseover=""overIcon(this)"" onmouseout=""outIcon(this)"" />")
If blnRightJustify Then Response.Write("<img src=""" & strImagePath & "post_button_right_just.gif"" onclick=""FormatText(\'justifyright\', \'\')"" title=""" & strTxtRightJustify & """ class=""WebWizRTEbutton"" onmouseover=""overIcon(this)"" onmouseout=""outIcon(this)"" />")
If blnFullJustify Then Response.Write("<img src=""" & strImagePath & "post_button_justify.gif"" onclick=""FormatText(\'justifyfull\', \'\')"" title=""" & strTxtJustify & """ class=""WebWizRTEbutton"" onmouseover=""overIcon(this)"" onmouseout=""outIcon(this)"" />")
If blnLeftJustify OR blnCentre OR blnRightJustify OR blnFullJustify Then Response.Write("');")



'Text colour toolbar
'------------
If blnTextColour OR blnTextBackgroundColour Then Response.Write(vbCrLf & "	document.writeln('<img src=""" & strImagePath & "toolbar_separator.gif"" />")
If blnTextColour Then Response.Write("<img id=""forecolor"" src=""" & strImagePath & "post_button_colour_pallete.gif"" title=""" & strTxtTextColour & """ onclick=""FormatText(\'forecolor\', \'\')"" class=""WebWizRTEbutton"" onmouseover=""overIcon(this)"" onmouseout=""outIcon(this)"" />")
If RTEenabled = "winIE" AND blnTextBackgroundColour Then Response.Write("<img id=""backcolor"" src=""" & strImagePath & "post_button_fill.gif"" title=""" & strTxtBackgroundColour & """ onclick=""FormatText(\'backcolor\', \'\')"" class=""WebWizRTEbutton"" onmouseover=""overIcon(this)"" onmouseout=""outIcon(this)"" />")
If RTEenabled = "Gecko" AND blnTextBackgroundColour Then Response.Write("<img id=""hilitecolor"" src=""" & strImagePath & "post_button_fill.gif"" title=""" & strTxtBackgroundColour & """ onclick=""FormatText(\'hilitecolor\', \'\')"" class=""WebWizRTEbutton"" onmouseover=""overIcon(this)"" onmouseout=""outIcon(this)"" />")
If blnTextColour OR blnTextBackgroundColour Then Response.Write("');")

Response.Write(vbCrLf & "	document.writeln('</span>');")


'About toolbar
'------------
If blnLCode Then
	Response.Write(vbCrLf & "	document.writeln('<img src=""" & strImagePath & "toolbar_separator.gif"" />")
	Response.Write("<img src=""" & strImagePath & "post_button_about.gif"" onclick=""winOpener(\'RTE_popup_about.asp" & strQsSID1 & "\',\'about\',0,0,400,177)"" title=""" & strTxtAboutRichTextEditor & """ class=""WebWizRTEbutton"" onmouseover=""overIcon(this)"" onmouseout=""outIcon(this)"" />")
	Response.Write("');")
End If
%>