Here's an example of using Whizzywig from ASP - use at your own risk:
<% 'abitwhizzy.asp - whizzywig web page editor, demonstrating whizzywig.js 'CONFIGURE HERE ==================================================================== const whizzywig = "inc/whizzywig.js" ' path to whizzywig.js required const cssFile = "inc/style.css" ' choose your stylesheet, or set to "" const imageBrowse = "" ' "" for no image browser const linkBrowse = "" ' "" for no link browser const toolbar = "formatblock bold italic color bullet number image link clean html" 'try "all" if you need more const editarea = "width:100%; height:550px" 'css to size/format editarea 'END CONFIG ======================================================================== const version="<!-- abitwhizzy.asp 051108c -->" response.buffer=true set f = Request("f") if Request("action") = "save" then 'write page and go there edited = Request("edited") if xhtml <> "" then html = "<!DOCTYPE html PUBLIC ""-'W3C'DTD XHTML 1.0 Transitional'EN"" ""http:'www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">" & vbLf html = html & "<html xmlns=""http:'www.w3.org/1999/xhtml"">" & vbLf &"<head>" &vbLf else html = "<!DOCTYPE HTML PUBLIC ""-'W3C'DTD HTML 4.01 Transitional'EN"" ""http:'www.w3.org/TR/html4/loose.dtd"">" & vbLf html = html & "<html>" & vbLf & "<head>" & vbLf end if html = html & "<title>" & Request("t") & "</title>" & vbLf if cssFile <> "" then html = html & "<link rel=""stylesheet"" media=""all"" type=""text/css"" href=""" html = html & cssFile if xhtml <> "" then html = html & """ \>" else html = html & """>" end if html = html & vbLf end if html = html & "</head>" & vbLf & "<body>" & vbLf html = html & edited html = html & vbLf & "</body>" & vbLf & "</html>" & version set fs=Server.CreateObject("Scripting.FileSystemObject") set page=fs.CreateTextFile(Server.MapPath(f),true) page.Write(html) page.Close Response.Redirect(f) else if f <> "" then const openForReading = 1 fileName = Server.Mappath(f) set fso = Server.CreateObject("Scripting.FileSystemObject") if fso.FileExists(filename) then set fp = fso.GetFile(fileName) set txtStream = fp.OpenAsTextStream(openForReading) do while not txtStream.AtEndOfStream strText = txtStream.ReadLine content= content & strText loop txtStream.Close title = "" set re = New RegExp re.Pattern = ".*<title>([^<]*)<\/title>.*" re.IgnoreCase = True re.Global = False title = re.Replace(content,"$1") 'grab the title else Response.Write(f & " not found") end if end if end if %> <html> <head> <title>aBitWhizzy: the Whizzywig page editor</title> <script language="JavaScript" type="text/javascript" src="<% response.write whizzywig %>"></script> </script> <% if xhtml <> "" then response.write "<script language=""JavaScript"" type=""text/javascript"" src=""" & xhtml & """></script>" end if %> </head> <body style="background:buttonface"> <form name="whizzy" id"whizzy" action="<%Response.Write(Request.ServerVariables("SCRIPT_NAME"))%>" method="post" > <input type="hidden" id="action" name="action"> <label for="f">Filename: </label><input name="f" id="f" type="text" value="<% response.write f %>"> <input type="submit" name="open" value="Open" onclick="getElementById('action').value='open'"> <label for="t">Title: </label><input id="t" name="t" type="text" size="30" value="<% response.write title %>"> <input type="button" name="save" value="Save" onclick="insistF()"> <textarea name="edited" id="edited" style="<% response.write editarea %>" > <% response.write content %> </textarea> <script language="JavaScript" type="text/javascript"> buttonPath = "<% response.write buttonPath %>"; cssFile = "<% response.write cssFile %>"; imageBrowse = "<% response.write imageBrowse %>"; linkBrowse = "<% response.write linkBrowse %>"; makeWhizzyWig("edited", "<% response.write toolbar %>"); function insistF() { //check filename given before save if (document.getElementById("f").value == "") { alert("Please supply a filename"); }else { document.getElementById("action").value='save'; syncTextarea(); document.forms.whizzy.submit(); } } </script> </p> <p style="font-size: xx-small;">More about this free editor at <a href="http://www.unverse.net">unverse.net</a></p> <% response.write version %>
Host up to 3 websites for
unlimited websites for $14.99
