Jag håller på med ett cms i asp. Tyvärr så kan jag inte så mycket asp och skulle behöva hjälp med att få en wysiwyg editor att fungera.
Först använde jag http://www.openwebware.com/
Eftersom det bara var att infoga ett JavaScript som ersatte <textarea> med editorn. Men tyvärr funkar inte den editorn som jag vill. Så jag kan inte använda den.
En bättre wysiwyg editor är http://www.fckeditor.net/ som fungerar precis som jag vill. Men jag har lite problem med att få den att fungera och skulle behöva hjälp med det.
Så här är ser textarean ut i mitt cms.
<textarea name="pagedata"><%=pagedata%></textarea>
Men fck editor fungerar inte på så sätt att den bara ersätter textarea, utan man infogar en textarea som ser ut så här:
<textarea rows=""4"" cols=""40"" style=""width: " & sWidthCSS & "; height: " & sHeightCSS & """>" & Server.HTMLEncode( sValue ) & "</textarea>
den behöver lixom vara utformad på samma sätt som i cmset för att det ska fungera. Jag försökte att bara göra så här men det fungerar inte
<textarea rows=""4"" cols=""40"" style=""width: " & sWidthCSS & "; height: " & sHeightCSS & """><%=pagedata%></textarea>
Så här ser koden ut för "pagedata" i cmset:
set updateRS = Server.CreateObject("ADODB.RecordSet")
updateSQL = "SELECT pagename, pagedata, active, directlink from tblPages where ID = " & ID & ";"
updateRS.Open updateSQL, whtConn, 1,3
recordcount = updateRS.recordcount
if recordcount <> 1 then
updateRS.Close
Set updateRS = Nothing
whtConn.Close
Set whtConn = Nothing
response.redirect("default.asp?norecord")
end if
updateRS("pagename") = Presubmit2(request.form("pagename"))
pagedata = Presubmit(request.form("pagedata"))
updateRS("pagedata") = pagedata
updateRS("directlink") = Presubmit2(request.form("directlink"))
updateRS("active") = request.form("active")
updateRS.update
updateRS.Close
set updateRS = Nothing
message = "<p><font color='#FF0000'>Update Successful</font></p>"
end if
Någon som kan hjälpa mig hur jag ska göra?