source: companies/celepar/news_admin/templates/celepar/fckeditor/to_delete/_samples/asp/sample01.asp @ 763

Revision 763, 2.1 KB checked in by niltonneto, 15 years ago (diff)

Importação inicial do Expresso da Celepar

Line 
1<%@  codepage="65001" language="VBScript" %>
2<% Option Explicit %>
3<!--
4 * FCKeditor - The text editor for internet
5 * Copyright (C) 2003-2006 Frederico Caldeira Knabben
6 *
7 * Licensed under the terms of the GNU Lesser General Public License:
8 *              http://www.opensource.org/licenses/lgpl-license.php
9 *
10 * For further information visit:
11 *              http://www.fckeditor.net/
12 *
13 * "Support Open Source software. What about a donation today?"
14 *
15 * File Name: sample01.asp
16 *      Sample page.
17 *
18 * File Authors:
19 *              Frederico Caldeira Knabben (fredck@fckeditor.net)
20-->
21<% ' You must set "Enable Parent Paths" on your web site in order this relative include to work. %>
22<!-- #INCLUDE file="../../fckeditor.asp" -->
23<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
24<html xmlns="http://www.w3.org/1999/xhtml">
25<head>
26        <title>FCKeditor - Sample</title>
27        <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
28        <meta name="robots" content="noindex, nofollow" />
29        <link href="../sample.css" rel="stylesheet" type="text/css" />
30</head>
31<body>
32        <h1>
33                FCKeditor - ASP - Sample 1
34        </h1>
35        <div>
36                This sample displays a normal HTML form with an FCKeditor with full features enabled.
37        </div>
38        <hr />
39        <form action="sampleposteddata.asp" method="post" target="_blank">
40                <%
41' Automatically calculates the editor base path based on the _samples directory.
42' This is usefull only for these samples. A real application should use something like this:
43' oFCKeditor.BasePath = '/fckeditor/' ; // '/fckeditor/' is the default value.
44Dim sBasePath
45sBasePath = Request.ServerVariables("PATH_INFO")
46sBasePath = Left( sBasePath, InStrRev( sBasePath, "/_samples" ) )
47
48Dim oFCKeditor
49Set oFCKeditor = New FCKeditor
50oFCKeditor.BasePath     = sBasePath
51oFCKeditor.Value        = "This is some <strong>sample text</strong>. You are using <a href=""http://www.fckeditor.net/"">FCKeditor</a>."
52oFCKeditor.Create "FCKeditor1"
53                %>
54                <br />
55                <input type="submit" value="Submit" />
56        </form>
57</body>
58</html>
Note: See TracBrowser for help on using the repository browser.