<%@ codepage="65001" language="VBScript" %>
<% Option Explicit %>
<%
' CKFinder
' ========
' http://ckfinder.com
' Copyright (C) 2007-2012, CKSource - Frederico Knabben. All rights reserved.
'
' The software, this file and its contents are subject to the CKFinder
' License. Please read the license.txt file before using, installing, copying,
' modifying or distribute this file or part of its contents. The contents of
' this file is part of the Source Code of CKFinder.
%>
<% ' You must set "Enable Parent Paths" on your web site in order this relative include to work. %>
CKFinder - Sample - Standalone
CKFinder - Sample - Standalone
CKFinder may be used in standalone mode inside any page, to create a repository
manager with ease. You may define a custom JavaScript function to be called when
an image is selected (double-clicked).
<%
' You can use the "CKFinder" class to render CKFinder in a page:
Dim oFinder
Set oFinder = New CKFinder
oFinder.BasePath = "../../" ' The path for the installation of CKFinder (default = "/ckfinder/").
' The default height is 400.
oFinder.Height = "600"
oFinder.SelectFunction = "ShowFileInfo"
oFinder.Create
' It can also be done in a single line, calling the "static"
' CKFinder_CreateStatic( basePath, width, height, selectFunction ) function:
' CKFinder_CreateStatic "../../", empty, empty, "ShowFileInfo"
%>