<%@ CodePage=65001 Language="VBScript"%> <% Option Explicit %> <% ' You must set "Enable Parent Paths" on your web site in order this relative include to work. %> FCKeditor - Sample

FCKeditor - ASP - Sample 4

This sample shows how to change the editor skin.
Select the skin to load: 

<% ' 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, "/_samples" ) ) Dim oFCKeditor Set oFCKeditor = New FCKeditor oFCKeditor.BasePath = sBasePath If Request.QueryString("Skin") <> "" Then oFCKeditor.Config("SkinPath") = sBasePath + "editor/skins/" & Server.HTMLEncode( Request.QueryString("Skin") ) + "/" End If oFCKeditor.Value = "This is some sample text. You are using FCKeditor." oFCKeditor.Create "FCKeditor1" %>