non_rte_javascript.asp

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

<% @ Language=VBScript %>
<% Option Explicit %>
<!--#include file="common.asp" -->
<!--#include file="RTE_configuration/RTE_setup.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
'**
'****************************************************************************************




'Reset Server Objects
Call closeDatabase()



Response.AddHeader "pragma","cache"
Response.AddHeader "cache-control","public"
Response.CacheControl = "Public"

Dim strTextAreaName
Dim strQuickReply

strTextAreaName = removeAllTags(Request.QueryString("textArea"))
strQuickReply = removeAllTags(Request.QueryString("QR"))

'***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
Response.Write(vbCrLf & "<!--//" & _
vbCrLf & "/* *******************************************************" & _
vbCrLf & "Software: Web Wiz Rich Text Editor(TM) ver. " & strRTEversion & "" & _
vbCrLf & "Info: http://www.richtexteditor.org" & _
vbCrLf & "Copyright: (C)2001-2008 Web Wiz(TM). All rights reserved" & _
vbCrLf & "******************************************************* */" & _
vbCrLf & "//-->")
'***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
%>

//text area name
var textArea = '<% = strTextAreaName %>';

//Have the propmt box turned on by default
var promptOn = true;

//Create toolbar
function WebWizRTEtoolbar(formName){

	document.writeln('<table id="toolbar" width="600" border="0" cellspacing="0" cellpadding="1" class="RTEtoolbar">');
	document.writeln(' <tr>');
	document.writeln('  <td>');<%

'If qquick reply load a different toolbar
If strQuickReply = "true" Then
	%><!--#include file="includes/non_RTE_quick_reply_toolbar_inc.asp" -->
	promptOn = false;<%

'If not quick reply, load standard toolbar
Else
	%><!--#include file="includes/non_RTE_toolbar_inc.asp" --><%
End If
%>
	document.writeln('  </td>');
	document.writeln(' </tr>');
	document.writeln('</table>');

}

//Function to turn on or off the prompt box
function PromptMode(selectMode){
	if (selectMode.options[selectMode.selectedIndex].value == 0){
		promptOn = false;
	}
	else{
		promptOn = true;
	}
}

//function to clear area
function clearWebWizRTE(){
 	if (window.confirm('<% = strResetWarningEditorConfirm %>')){
	 	document.getElementById(textArea).value='';
	}
}

// Function to add the code for bold italic centre and underline, to the message
function AddMessageCode(code, promptText, InsertText){

	if (code != ''){
		if (promptOn == true){
			insertCode = prompt(promptText + '\n[' + code + ']xxx[/' + code + ']', InsertText);
				if ((insertCode != null) && (insertCode != '')){
					document.getElementById(textArea).value += '[' + code + ']' + insertCode + '[/' + code + ']';
				}
		}
		else{
			document.getElementById(textArea).value += '[' + code + '][/' + code + ']';
		}
	}
				
	document.getElementById(textArea).focus();
}

// Function to add the font colours, sizes, type to the message
function FontCode(code, endCode) {

	if (code != ''){
		if (promptOn == true){
			insertCode = prompt('<% = strTxtEnterTextYouWouldLikeIn %> ' + code + '\n[' + code + ']xxx[/' + endCode + ']', '');
				if ((insertCode != null) && (insertCode != '')){
					document.getElementById(textArea).value += '[' + code + ']' + insertCode + '[/' + endCode + ']';
				}
		}
		else{
			document.getElementById(textArea).value += '[' + code + '][/' + endCode + ']';
		}
	}	
	document.getElementById(textArea).focus();
}



//Function to add the URL, indent, list, and Email code to the message
function AddCode(code){

	//For the URL code
	if ((code != '') && (code == 'URL')){
		if (promptOn == true){
			insertText = prompt('<% = strTxtEnterHyperlinkText %>', '');
				
				if ((insertText != null) && (insertText != '') && (code == 'URL')){
					insertCode = prompt('<% = strTxtEnterHeperlinkURL %>', 'http://');
						
						if ((insertCode != null) && (insertCode != '') && (insertCode != 'http://')){					
							document.getElementById(textArea).value += '[' + code + '=' + insertCode + ']' + insertText + '[/' + code + ']';
						}
				}
		}
		else {
			document.getElementById(textArea).value += '[' + code + '= ][/' + code + ']';
		}
	}
	
	
	//For the email code
	if ((code != '') && (code == 'EMAIL')){
		if (promptOn == true){
			insertText = prompt('<% = strTxtEnterEmailText %>', '');
				
				if ((insertText != null) && (insertText != '')){
					insertCode = prompt('<% = strTxtEnterEmailMailto %>', '');
						
						if ((insertCode != null) && (insertCode != '')){					
						document.getElementById(textArea).value += '[' + code + '=' + insertCode + ']' + insertText + '[/' + code + ']';
					}
				}
		}
		else {
			document.getElementById(textArea).value += '[' + code + '= ][/' + code + ']';
		}
	}
	
	//For the image code
	if ((code != '') && (code == 'IMG')){
		if (promptOn == true){	
			insertCode = prompt('<% = strTxtEnterImageURL %>', 'http://');
						
				if ((insertCode != null) && (insertCode != '')){					
				document.getElementById(textArea).value += '[' + code + ']' + insertCode + '[/' + code + ']';
			}			
		}
		else {
			document.getElementById("message").value += '[' + code + '][/' + code + ']';
		}
	}
	
	//For the list code
	if ((code != '') && (code == 'LIST')){
		if (promptOn == true){
			listType = prompt('<% = strTxtEnterTypeOfList %> \n<% = strTxtEnterEnter %> \'1\' <% = strTxtEnterNumOrBlankList %>', '');
			
			while ((listType != null) && (listType != '') && (listType != '1')) {
				listType = prompt('<% = strTxtEnterListError %> \'1\' <% = strTxtEnterNumOrBlankList %>','');               
			}
			
			if (listType != null){			
				var listItem = '1';
				var insertCode = '';
				
				while ((listItem != '') && (listItem != null)) {
					listItem = prompt('<% = strEnterLeaveBlankForEndList %>',''); 
					if (listItem != '') {             
						insertCode += '[li]' + listItem + '[/li]'; 
					}                   
				} 
				
				if (listType == '') {
					document.getElementById(textArea).value += '[' + code + ']' + insertCode + '[/' + code + ']';
				} else {
					document.getElementById(textArea).value += '[' + code + '=' + listType + ']' + insertCode + '[/' + code + '=' + listType + ']';
				} 
				
			}
		}
		else{
			document.getElementById(textArea).value += '[' + code + '][LI] [/LI][LI] [/LI][LI] [/LI][/' + code + ']';
		}			
	}
	
	
	//For the indent
	if ((code != '') && (code == 'INDENT')){
						
			document.getElementById(textArea).value += '      ';				
	}
				
	document.getElementById(textArea).focus();
}

//Function to add the code to the message for the smileys
function AddEmoticon(iconCode) {
 	var txtarea = document.frmMessageForm.message;
 	iconCode = ' ' + iconCode + ' ';
 	if (txtarea.createTextRange && txtarea.caretPos) {
  		var caretPos = txtarea.caretPos;
  		caretPos.text = caretPos.text.charAt(caretPos.text.length - 1) == ' ' ? iconCode + ' ' : iconCode;
  		txtarea.focus();
 	} else {
  		txtarea.value  += iconCode;
  		txtarea.focus();
 	}
}