How to use FCK Editor in ASP
------------------------------------------------------------------------------------------------------
Download FCK Editor from the following Path
http://ckeditor.com/download
Change the following as per your requirement.
$Width = '100%';
$Height = '200';
$ToolbarSet = 'Default';
<!--#INCLUDE virtual="/fckeditor/fckeditor.asp" -->
<%
' Automatically calculates the editor base path based on the _samples directory.
' This is usefull only for these samples. A real application should use something like this:
' oFCKeditor.BasePath = '/fckeditor/' ; // '/fckeditor/' is the default value.
Dim sBasePath
sBasePath = Request.ServerVariables("PATH_INFO")
sBasePath = Left( sBasePath, InStrRev( sBasePath, "/news_add.asp" ) )
sBasePath="/fckeditor/"
Dim oFCKeditor
Set oFCKeditor = New FCKeditor
oFCKeditor.BasePath = sBasePath
If Request.QueryString("Toolbar") <> "" Then
oFCKeditor.ToolbarSet = Server.HTMLEncode( Request.QueryString("Toolbar") )
End If
oFCKeditor.Value = ""
oFCKeditor.Create "FCKeditor1"
%>
------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------
Download FCK Editor from the following Path
http://ckeditor.com/download
Change the following as per your requirement.
$Width = '100%';
$Height = '200';
$ToolbarSet = 'Default';
<!--#INCLUDE virtual="/fckeditor/fckeditor.asp" -->
<%
' Automatically calculates the editor base path based on the _samples directory.
' This is usefull only for these samples. A real application should use something like this:
' oFCKeditor.BasePath = '/fckeditor/' ; // '/fckeditor/' is the default value.
Dim sBasePath
sBasePath = Request.ServerVariables("PATH_INFO")
sBasePath = Left( sBasePath, InStrRev( sBasePath, "/news_add.asp" ) )
sBasePath="/fckeditor/"
Dim oFCKeditor
Set oFCKeditor = New FCKeditor
oFCKeditor.BasePath = sBasePath
If Request.QueryString("Toolbar") <> "" Then
oFCKeditor.ToolbarSet = Server.HTMLEncode( Request.QueryString("Toolbar") )
End If
oFCKeditor.Value = ""
oFCKeditor.Create "FCKeditor1"
%>
------------------------------------------------------------------------------------------------------
No comments:
Post a Comment