Web-based Content Editor using IFrame

checkbox

<input type="checkbox" onclick="setMode(this.checked)">

cmdexec

function cmdExec(cmd,opt) {
   if (isHTMLMode) {
      alert("Please uncheck 'Edit HTML'");
      return;
   }
   idContent.document.execCommand(cmd,"",opt);
   idContent.focus();
}

cmdexec-bold

<img src="images/editor/Bold.gif" alt="Bold" onClick="cmdExec('bold')">

create-iframe

<iframe id="idContent" width="600" height="280"></iframe>

designmode

var isHTMLMode = false
   function document.onreadystatechange() {
      idContent.document.designMode = "On";
}

forecolor

function foreColor() {
var arr = showModalDialog("selcolor.asp","", _
"font-family:Verdana; font-size:12; dialogWidth:45em; dialogHeight:24em" );
if (arr != null) cmdExec("ForeColor",arr);
}

img

<img alt="ForeColor" src="images/editor/fgcolor.gif" onClick="foreColor()">

insert-iframe

<%
Dim numID
numID = Request.QueryString("ID")
%>
<iframe width="600" height="280" id="idContent" src="getContent.asp?ID=<%=numID%>"></iframe>

insert-image-click

<img src="images/editor/imageLocal.gif" alt="Insert Local Image" onClick="insertImageLocal()">

insert-image-local

function insertImageLocal() {
   if (isHTMLMode) {
      alert("Please uncheck 'Edit HTML'");
   return;
   }
   var sImgSrc = showModalDialog("selectImage.asp","", "dialogHeight: 500px; dialogWidth: 400px; dialogTop: px; dialogLeft: px; edge: Raised; center: Yes; help: No; resizable: Yes; status: No;");
   if(sImgSrc!=null) cmdExec("InsertImage",sImgSrc);
}

set-mode

function setMode(bMode) {
   var sTmp;
   isHTMLMode = bMode;
   if (isHTMLMode) {
      sTmp = idContent.document.body.innerHTML;
      idContent.document.body.innerText = sTmp;
   } else {
      sTmp = idContent.document.body.innerText;
      idContent.document.body.innerHTML = sTmp;
   }
   idContent.focus();
}

submit-content

function SubmitContent() {
   if (isHTMLMode) {
      alert("Please uncheck 'Edit HTML'");
      return (false);
   }
   document.editor.YOUR_CONTENT.value = idContent.document.body.innerHTML;
   document.editor.submit();
}

submit-editor

<form name="editor" method="post" action="submit_editor.asp">
<input name="YOUR_CONTENT" type="hidden" value="">
<input type="button" name="Submit" value="Submit &raquo;" onclick="SubmitContent();">
</form>

submit_editor.asp

<%
Dim strContent
strContent = Request.Form("YOUR_CONTENT")
'write HTML source
Replace(Server.HTMLEncode(strContent), vbcrlf, "<br>")
'or simply render it on the browser
Response.Write(strContent)
%>

write-from-db

<%Option Explicit%>
<%
Dim numID 'unique identifier passed through the IFrame
Dim strContent 'returned HTML source from database
numID = Request.QueryString("ID")
If numID <> "" Then
'  do your database query and populate strContent
   Response.Write(strContent)
End If
%>

https://evagoras.com/2011/02/02/web-based-content-editor-using-iframe/