REQ: Ajax Post Preview Quick Reply On Same Page

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic


   my forum hirarki:

domain.com/forum/includes/quick_reply_form_inc.asp line 1

<br/>

<div class="msgBody" style="border:6px dashed #eee;background:#eee;width:140px;margin:0 auto ;">

	<div id="txtResults" style="width:100%;height: 20px;padding:10px;text-align:center;">

		<p style="font-style:italic">Ajax Words Count.</p>

	</div>

</div>

<br/>


	'Create the text area

	Response.Write(vbCrLf & "     <textarea name=""message"" id=""message"" cols=""57"" rows=""5"" wrap=""virtual""   onKeyUp=""preview(this.value);""   >")

	Response.Write("</textarea>")


domain.com/js/ajax/ajax_2.js


var xmlHttp


function showResults(str)

{

	xmlHttp=GetXmlHttpObject()

	if (xmlHttp==null)

	{

		alert ("Your browser does not support the XMLHttpRequest object.")

		return

	}

	var url="../forum/plp_getResults.asp"

	url=url+"?username="+str

	url=url+"&sid="+Math.random()

	xmlHttp.onreadystatechange=stateChanged

	xmlHttp.open("GET",url,true)

	xmlHttp.send(null)

}


function stateChanged()

{

	if (xmlHttp.readyState == 0)

	{

		document.getElementById("txtResults").innerHTML = "<p> Search in progress...</p>"; //loading

	}

	else if(xmlHttp.readyState == 1)

	{

		document.getElementById("txtResults").innerHTML = "<p> Search in progress...</p>"; //loaded

	}

  	else if(xmlHttp.readyState == 2)

	{

		document.getElementById("txtResults").innerHTML = "<p> Search in progress...</p>"; //interactive

	}

	else if(xmlHttp.readyState == 3)

	{

		document.getElementById("txtResults").innerHTML = "<p> Loading data...</p>";

	}

	else if (xmlHttp.readyState==4 || xmlHttp.readyState=="complete")

	{

		document.getElementById("txtResults").innerHTML=xmlHttp.responseText 

	} 

} 


function GetXmlHttpObject()

{ 

	var objXMLHttp=null

	try

	{

		objXMLHttp = new ActiveXObject("Msxml2.XMLHTTP"); //later IE

	}

	catch (e) 

	{

	try

	{

    	objXMLHttp = new ActiveXObject("Microsoft.XMLHTTP"); //earlier IE

	}

	catch (e)

	{

		objXMLHttp = null;

	}

}

  	if (objXMLHttp==null)
	{
    	objXMLHttp=new XMLHttpRequest() //IE7, Firefox, Safari
	}
	return objXMLHttp
}

function characterCounter(charNoBox, textFeild) {
	document.getElementById(charNoBox).value = document.getElementById(textFeild).value.length;
}

function countWords(str)
{
	xmlHttp=GetXmlHttpObject()
	if (xmlHttp==null)
	{
		alert ("Your browser does not support the XMLHttpRequest object.")
		return
	}
	var url="../forum/plp_countWords.asp"
	url=url+"?words="+str
	url=url+"&sid="+Math.random()
	xmlHttp.onreadystatechange=stateChanged
	xmlHttp.open("GET",url,true)
	xmlHttp.send(null)
}

function preview(message)
{
	xmlHttp=GetXmlHttpObject()
	if (xmlHttp==null)
	{
		alert ("Your browser does not support the XMLHttpRequest object.")
		return
	}
	var url="../forum/plp_preview.asp"
	url=url+"?pre="+message
	url=url+"&sid="+Math.random()
	xmlHttp.onreadystatechange=stateChanged
	xmlHttp.open("POST",url,true)
	xmlHttp.send(null)
}


domain.com/forum/includes/header.asp


<script language="JavaScript" src="../js/ajax/ajax_2.js"></script>
<script language="javascript" src="includes/default_javascript.js" type="text/javascript"></script>


domain.com/forum/plp_preview.asp
[code]
<% @ Language=VBScript %>
<% Option Explicit %>
<!--#include file="common.asp" -->
<!--#include file="functions/functions_format_post.asp" -->
<!--#include file="includes/emoticons_inc.asp" -->
<!--#include file="RTE_configuration/RTE_setup.asp" -->
<%
'****************************************************************************************
'**  Copyright Notice 
   '**
'**  Web Wiz Guide - Web Wiz Rich Text Editor
'**  http://www.richtexteditor.org
'** 
                                                             '**  Copyright 2002-2005 Bruce Corkhill All Rights Reserved. 
                               '**
'**  This program is free software; you can modify (at your own risk) any part of it 
'**  under the terms of the License that accompanies this software and use it both 
'**  privately and commercially.
'**
'**  All copyright notices must remain in tacked in the scripts and the 
'**  outputted HTML.
'**
'**  You may use parts of this program in your own private work, but you may NOT
'**  redistribute, repackage, or sell the whole or any part of this program even 
'**  if it is modified or reverse engineered in whole or in part without express 
'**  permission from the author.
'**
'**  You may not pass the whole or any part of this application off as your own work.
'** 
  '**  You may not deactivate any adverts or links to Web Wiz Guide and it’s associates
'**  and must remain visible when the pages are viewed unless permission is first granted
'**  by the copyright holder.
'**
'**  This program is distributed in the hope that it will be useful,
'**  but WITHOUT ANY WARRANTY; without even the implied warranty of
'**  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE OR ANY OTHER 
'**  WARRANTIES WHETHER EXPRESSED OR IMPLIED.
'**
'**  You should have received a copy of the License along with this program; 
'**  if not, write to:- Web Wiz Guide, PO Box 4982, Bournemouth, BH8 8XP, United Kingdom.
'** 
   '**
'**  Official support is available for this program through the free support forum at: -
'**  http://www.webwiz.net/forum
'**
'**  Support questions are NOT answered by e-mail ever!
'**
'**  For correspondence or non support questions contact: -

'**
'** Web Wiz Guide, Unit 10E, Dawkins Road Industrial Estate, Poole, Dorset, UK, BH15 4JD
'**
'****************************************************************************************


'Set the response buffer to true as we maybe redirecting
Response.Buffer = True


Dim strPreviewTextarea 			'Holds the Users Message


'Make sure this page is not cached
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 2
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "No-Store"

'Read in the message to be previewed
strPreviewTextarea = Request.QueryString("pre")


'Place format posts posted with the WYSIWYG Editor (RTE)
If Request.Form("browser") = "RTE" Then 
		'Call the function to format WYSIWYG posts
	strPreviewTextarea = WYSIWYGFormatPost(strPreviewTextarea)

'Else standrd editor is used so convert forum codes
Else
	'Call the function to format posts
	strPreviewTextarea = FormatPost(strPreviewTextarea)
End If


'If the user wants forum codes enabled then format the post using them
'If Request.Form("forumCodes") Then strPreviewTextarea = FormatForumCodes(strPreviewTextarea)
strPreviewTextarea = FormatForumCodes(strPreviewTextarea)<