← Back to branch summary

~ubuntu-branches/ubuntu/trusty/fusionforge/trusty

« back to all changes in this revision

Viewing changes to plugins/fckeditor/www/_samples/asp/sample02.asp

  • Committer: Bazaar Package Importer
  • Author(s): Roland Mas
  • Date: 2011-04-15 14:55:34 UTC
  • mfrom: (4.1.10 sid)
  • Revision ID: james.westby@ubuntu.com-20110415145534-mvn1nochufjmw177
Tags: 5.0.3-1
New upstream bugfix release.

Show diffs side-by-side

added added

removed removed

Lines of Context:
plugins/fckeditor/www/_samples/asp/sample02.asp
 
1
<%@ CodePage=65001 Language="VBScript"%>
 
2
<% Option Explicit %>
 
3
<!--
 
4
 * FCKeditor - The text editor for Internet - http://www.fckeditor.net
 
5
 * Copyright (C) 2003-2008 Frederico Caldeira Knabben
 
6
 *
 
7
 * == BEGIN LICENSE ==
 
8
 *
 
9
 * Licensed under the terms of any of the following licenses at your
 
10
 * choice:
 
11
 *
 
12
 *  - GNU General Public License Version 2 or later (the "GPL")
 
13
 *    http://www.gnu.org/licenses/gpl.html
 
14
 *
 
15
 *  - GNU Lesser General Public License Version 2.1 or later (the "LGPL")
 
16
 *    http://www.gnu.org/licenses/lgpl.html
 
17
 *
 
18
 *  - Mozilla Public License Version 1.1 or later (the "MPL")
 
19
 *    http://www.mozilla.org/MPL/MPL-1.1.html
 
20
 *
 
21
 * == END LICENSE ==
 
22
 *
 
23
 * Sample page.
 
24
-->
 
25
<% ' You must set "Enable Parent Paths" on your web site in order this relative include to work. %>
 
26
<!-- #INCLUDE file="../../fckeditor.asp" -->
 
27
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
 
28
<html>
 
29
        <head>
 
30
                <title>FCKeditor - Sample</title>
 
31
                <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
 
32
                <meta name="robots" content="noindex, nofollow">
 
33
                <link href="../sample.css" rel="stylesheet" type="text/css" />
 
34
                <script type="text/javascript">
 
35
 
 
36
function FCKeditor_OnComplete( editorInstance )
 
37
{
 
38
        var oCombo = document.getElementById( 'cmbLanguages' ) ;
 
39
        for ( code in editorInstance.Language.AvailableLanguages )
 
40
        {
 
41
                AddComboOption( oCombo, editorInstance.Language.AvailableLanguages[code] + ' (' + code + ')', code ) ;
 
42
        }
 
43
        oCombo.value = editorInstance.Language.ActiveLanguage.Code ;
 
44
}
 
45
 
 
46
function AddComboOption(combo, optionText, optionValue)
 
47
{
 
48
        var oOption = document.createElement("OPTION") ;
 
49
 
 
50
        combo.options.add(oOption) ;
 
51
 
 
52
        oOption.innerHTML = optionText ;
 
53
        oOption.value     = optionValue ;
 
54
 
 
55
        return oOption ;
 
56
}
 
57
 
 
58
function ChangeLanguage( languageCode )
 
59
{
 
60
        window.location.href = window.location.pathname + "?Lang=" + languageCode ;
 
61
}
 
62
                </script>
 
63
        </head>
 
64
        <body>
 
65
                <h1>FCKeditor - ASP - Sample 2</h1>
 
66
                This sample shows the editor in all its available languages.
 
67
                <hr>
 
68
                <table cellpadding="0" cellspacing="0" border="0">
 
69
                        <tr>
 
70
                                <td>
 
71
                                        Select a language:&nbsp;
 
72
                                </td>
 
73
                                <td>
 
74
                                        <select id="cmbLanguages" onchange="ChangeLanguage(this.value);">
 
75
                                        </select>
 
76
                                </td>
 
77
                        </tr>
 
78
                </table>
 
79
                <br>
 
80
                <form action="sampleposteddata.asp" method="post" target="_blank">
 
81
<%
 
82
' Automatically calculates the editor base path based on the _samples directory.
 
83
' This is usefull only for these samples. A real application should use something like this:
 
84
' oFCKeditor.BasePath = '/fckeditor/' ; // '/fckeditor/' is the default value.
 
85
Dim sBasePath
 
86
sBasePath = Request.ServerVariables("PATH_INFO")
 
87
sBasePath = Left( sBasePath, InStrRev( sBasePath, "/_samples" ) )
 
88
 
 
89
Dim oFCKeditor
 
90
Set oFCKeditor = New FCKeditor
 
91
oFCKeditor.BasePath = sBasePath
 
92
 
 
93
If Request.QueryString("Lang") = "" Then
 
94
        oFCKeditor.Config("AutoDetectLanguage") = True
 
95
        oFCKeditor.Config("DefaultLanguage")    = "en"
 
96
Else
 
97
        oFCKeditor.Config("AutoDetectLanguage") = False
 
98
        oFCKeditor.Config("DefaultLanguage")    = Request.QueryString("Lang")
 
99
End If
 
100
 
 
101
oFCKeditor.Value = "<p>This is some <strong>sample text</strong>. You are using <a href=""http://www.fckeditor.net/"">FCKeditor</a>."
 
102
oFCKeditor.Create "FCKeditor1"
 
103
%>
 
104
                        <br>
 
105
                        <input type="submit" value="Submit">
 
106
                </form>
 
107
        </body>
 
108
</html>