sample01.asp 2.1 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162
  1. <%@ codepage="65001" language="VBScript" %>
  2. <% Option Explicit %>
  3. <!--
  4. * FCKeditor - The text editor for Internet - http://www.fckeditor.net
  5. * Copyright (C) 2003-2009 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 XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  28. <html xmlns="http://www.w3.org/1999/xhtml">
  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. </head>
  35. <body>
  36. <h1>
  37. FCKeditor - ASP - Sample 1
  38. </h1>
  39. <div>
  40. This sample displays a normal HTML form with an FCKeditor with full features enabled.
  41. </div>
  42. <hr />
  43. <form action="sampleposteddata.asp" method="post" target="_blank">
  44. <%
  45. ' Automatically calculates the editor base path based on the _samples directory.
  46. ' This is usefull only for these samples. A real application should use something like this:
  47. ' oFCKeditor.BasePath = '/fckeditor/' ; // '/fckeditor/' is the default value.
  48. Dim sBasePath
  49. sBasePath = Request.ServerVariables("PATH_INFO")
  50. sBasePath = Left( sBasePath, InStrRev( sBasePath, "/_samples" ) )
  51. Dim oFCKeditor
  52. Set oFCKeditor = New FCKeditor
  53. oFCKeditor.BasePath = sBasePath
  54. oFCKeditor.Value = "<p>This is some <strong>sample text</strong>. You are using <a href=""http://www.fckeditor.net/"">FCKeditor</a>."
  55. oFCKeditor.Create "FCKeditor1"
  56. %>
  57. <br />
  58. <input type="submit" value="Submit" />
  59. </form>
  60. </body>
  61. </html>