evagoras · September 28, 2023 15:05 · evagoras · Sep 28, 2023
diff --git a/checkbox b/checkbox
 <input type="checkbox" onclick="setMode(this.checked)">
diff --git a/cmdexec b/cmdexec
 function cmdExec(cmd,opt) {
   if (isHTMLMode) {
      alert("Please uncheck 'Edit HTML'");
      return;
   }
   idContent.document.execCommand(cmd,"",opt);
   idContent.focus();
 }
diff --git a/cmdexec-bold b/cmdexec-bold
 <img src="images/editor/Bold.gif" alt="Bold" onClick="cmdExec('bold')">
diff --git a/create-iframe b/create-iframe
 <iframe id="idContent" width="600" height="280"></iframe>
diff --git a/designmode b/designmode
 var isHTMLMode = false
   function document.onreadystatechange() {
      idContent.document.designMode = "On";
 }
diff --git a/forecolor b/forecolor
 function foreColor() {
 var arr = showModalDialog("selcolor.asp","", _
 "font-family:Verdana; font-size:12; dialogWidth:45em; dialogHeight:24em" );
 if (arr != null) cmdExec("ForeColor",arr);
 }
diff --git a/img b/img
 <img alt="ForeColor" src="images/editor/fgcolor.gif" onClick="foreColor()">
diff --git a/insert-iframe b/insert-iframe
 <%
 Dim numID
 numID = Request.QueryString("ID")
 %>
 <iframe width="600" height="280" id="idContent" src="getContent.asp?ID=<%=numID%>"></iframe>
diff --git a/insert-image-click b/insert-image-click
 <img src="images/editor/imageLocal.gif" alt="Insert Local Image" onClick="insertImageLocal()">
diff --git a/insert-image-local b/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);
 }
diff --git a/set-mode b/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();
 }
diff --git a/submit-content b/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();
 }
diff --git a/submit-editor b/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>
diff --git a/submit_editor.asp b/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)
 %>
diff --git a/write-from-db b/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
 %>
	function cmdExec(cmd,opt) {
	if (isHTMLMode) {
	alert("Please uncheck 'Edit HTML'");
	return;
	}
	idContent.document.execCommand(cmd,"",opt);
	idContent.focus();
	}
	var isHTMLMode = false
	function document.onreadystatechange() {
	idContent.document.designMode = "On";
	}
	function foreColor() {
	var arr = showModalDialog("selcolor.asp","", _
	"font-family:Verdana; font-size:12; dialogWidth:45em; dialogHeight:24em" );
	if (arr != null) cmdExec("ForeColor",arr);
	}
	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();
	}
	function SubmitContent() {
	if (isHTMLMode) {
	alert("Please uncheck 'Edit HTML'");
	return (false);
	}
	document.editor.YOUR_CONTENT.value = idContent.document.body.innerHTML;
	document.editor.submit();
	}
	<form name="editor" method="post" action="submit_editor.asp">
	<input name="YOUR_CONTENT" type="hidden" value="">
	<input type="button" name="Submit" value="Submit »" onclick="SubmitContent();">
	</form>
	<%
	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)
	%>
	<%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
	%>