or

| protected void RadAjaxManager1_AjaxRequest(object sender, Telerik.Web.UI.AjaxRequestEventArgs e) | |
| { | |
| if (e.Argument != "Save") | |
| { | |
| return; | |
| } | |
| //Some codes to save content comes here... | |
| //... | |
| } |
| <%@ Page Language="C#" AutoEventWireup="true" CodeBehind="Editor.aspx.cs" Inherits="ESS.Editor" %> | |
| <%@ Register assembly="Telerik.Web.UI" namespace="Telerik.Web.UI" tagprefix="telerik" %> | |
| <html xmlns="http://www.w3.org/1999/xhtml"> | |
| <head id="Head1" runat="server"> | |
| <title><%=GetTitle() %></title> | |
| <telerik:RadScriptBlock ID="RadScriptBlock1" runat="server"> | |
| <script type="text/javascript"> | |
| function ajaxRequest(operation) | |
| { | |
| var ajaxManager = $find("<%=RadAjaxManager1.ClientID %>"); | |
| ajaxManager.ajaxRequest(operation); | |
| } | |
| </script> | |
| </telerik:RadScriptBlock> | |
| <script type="text/javascript"> | |
| function OnClientLoad(editor, args) | |
| { | |
| editor.fire("ToggleScreenMode"); | |
| } | |
| </script> | |
| </head> | |
| <body> | |
| <form id="form2" runat="server"> | |
| <telerik:RadScriptManager ID="ScriptManager1" runat="server" EnableTheming="True"/> | |
| <div style="text-align: center"/> | |
| <telerik:RadAjaxManager ID="RadAjaxManager1" | |
| runat="server" | |
| OnAjaxRequest="RadAjaxManager1_AjaxRequest"> | |
| </telerik:RadAjaxManager> | |
| <telerik:RadEditor ID="RadEditor1" | |
| Runat="server" | |
| OnClientLoad="OnClientLoad" Height="500px" Width="100%"> | |
| <Content> | |
| </Content> | |
| <CssFiles> | |
| <telerik:EditorCssFile Value="ESS.css" /> | |
| </CssFiles> | |
| </telerik:RadEditor> | |
| <script type="text/javascript"> | |
| RadEditorCommandList["Save"] = function(commandName, editor, oTool) | |
| { | |
| ajaxRequest("Save"); | |
| } | |
| RadEditorCommandList["Cancel"] = function(commandName, editor, oTool) | |
| { | |
| ajaxRequest("Cancel"); | |
| } | |
| </script> | |
| </form> | |
| </body> | |
| </html> | |

| <%@ Assembly Name="Microsoft.SharePoint.ApplicationPages, Version=12.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c"%> |
| <%@ Page Language="vb" |
| Inherits="ExtranetArbaultWssAddon.NouvUsager, ExtranetArbaultWssAddon, Version=1.0.0.0, Culture=neutral, PublicKeyToken=d71c63e255e32165" |
| MasterPageFile="simple.master" %> |
| <%@ Import Namespace="Microsoft.SharePoint.ApplicationPages" %> |
| <%@ Register Tagprefix="SharePoint" Namespace="Microsoft.SharePoint.WebControls" Assembly="Microsoft.SharePoint, Version=12.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c" %> |
| <%@ Register Tagprefix="Utilities" Namespace="Microsoft.SharePoint.Utilities" Assembly="Microsoft.SharePoint, Version=12.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c" %> |
| <%@ Import Namespace="Microsoft.SharePoint" %> |
| <asp:Content ID="Content5" ContentPlaceHolderId="PlaceHolderMain" runat="server"> |
| <telerik:RadTextBox ID="RadTextBox1" runat="server"> |
| </telerik:RadTextBox> |
| </asp:Content> |
| Imports System |
| Imports System.Runtime.InteropServices |
| Imports System.Web.UI |
| Imports System.Web.UI.WebControls |
| Imports System.Web.UI.WebControls.WebParts |
| Imports System.Xml.Serialization |
| Imports Microsoft.SharePoint |
| Imports Microsoft.SharePoint.WebControls |
| Imports Microsoft.SharePoint.WebPartPages |
| Imports Telerik.Web.UI |
| Partial Public Class NouvUsager |
| Inherits Microsoft.SharePoint.WebControls.UnsecuredLayoutsPageBase |
| Protected Overloads Overrides ReadOnly Property AllowAnonymousAccess() As Boolean |
| Get |
| Return True |
| End Get |
| End Property |
| Protected Overloads Overrides ReadOnly Property AllowNullWeb() As Boolean |
| Get |
| Return True |
| End Get |
| End Property |
| Private Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init |
| 'Ajout du scrip manager au besoin |
| Dim scriptManager As RadScriptManager = RadScriptManager.GetCurrent(Me.Page) |
| If scriptManager Is Nothing Then |
| scriptManager = New RadScriptManager |
| Me.Page.Form.Controls.AddAt(0, scriptManager) |
| End If |
| Page.ClientScript.RegisterStartupScript(GetType(NouvUsager), Me.ID, "_spOriginalFormAction = document.forms[0].action;_spSuppressFormOnSubmitWrapper=true;", True) |
| If Me.Page.Form Is Nothing Then |
| Dim formOnSubmitAtt As String = Me.Page.Form.Attributes("onsubmit") |
| If Not String.IsNullOrEmpty(formOnSubmitAtt) AndAlso formOnSubmitAtt = "return _spFormOnSubmitWrapper();" Then |
| Me.Page.Form.Attributes("onsubmit") = "_spFormOnSubmitWrapper();" |
| End If |
| End If |
| Dim test As New RadTextBox |
| Me.Controls.Add(test) |
| End Sub |