LUKIYA'S NEVERLAND

<% ... @ Page Language = " VB " AutoEventWireup = " false " CodeFile = " CuteEditor.aspx.vb " Inherits = " _CuteEditor " %>
<% ... @ Register Assembly = " CuteEditor " Namespace = " CuteEditor " TagPrefix = " CE " %>
<! DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd" >
< html xmlns ="http://www.w3.org/1999/xhtml" >
< head runat ="server" >
< title > web3.cn——给CuteEditor5增加了高亮代码显示功能 </ title >
< script language ="JavaScript" type ="text/javascript" > ...
function ShowMyDialog(button)
... {
// use CuteEditor_GetEditor(elementinsidetheEditor) to get the cute editor instance
var editor = CuteEditor_GetEditor(button);
// show the dialog page , and pass the editor as newwin.dialogArguments
var newwin = showModelessDialog( " insertcode.aspx?_rand= " + new Date().getTime()
,editor, " dialogWidth:600px;dialogHeight:430px " );
}
</ script >
</ head >
< body >
< form id ="form1" runat ="server" >
< div >
< CE:Editor ID ="Editor1" runat ="server" >
</ CE:Editor >
</ div >
</ form >
</ body >
</ html >

Protected Sub Page_Load() Sub Page_Load( ByVal sender As Object , ByVal e As System.EventArgs) Handles Me .Load
Dim pos As Integer

pos = Editor1.ToolControls.IndexOf( " Italic " ) + 20

' 图片位置（Themes/%ThemeName%/Images/csharp.gif）
Dim ctrl As System.Web.UI.WebControls.WebControl
ctrl = Editor1.CreateCommandButton( " MyButton " , " csharp.gif " , " 插入代码 " )

ctrl.Attributes( " onclick " ) = " ShowMyDialog(this) "

' 把按钮加入编辑器中
Editor1.InsertToolControl(pos, " MyButton " , ctrl)
End Sub

<% ... @ Page Language = " VB " AutoEventWireup = " false " CodeFile = " insertcode.aspx.vb " Inherits = " insertcode " %>
<% ... @ Register TagPrefix = " CH " Namespace = " ActiproSoftware.CodeHighlighter " Assembly = " ActiproSoftware.CodeHighlighter.Net20 " %>
<! DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd" >
< html xmlns ="http://www.w3.org/1999/xhtml" >
< head runat ="server" >
< title > web3.cn——插入代码 </ title >
< base target ="_self" />
< style type ="text/css" > ...
body {...} { BACKGROUND-COLOR : #e5e5e5 }
.tb {...} { FONT-SIZE : 13px }
.code {...} { width : 400px ; height : 255px ; }
</ style >
</ head >
< body >
< form id ="form1" runat ="server" >
< table class ="tb" cellspacing ="0" cellpadding ="3" border ="0" >
< tr >
< th align ="right" style ="WIDTH:80px" > 编程语言: </ th >
< td >< asp:DropDownList Runat ="server" ID ="LanguageDropDownList" /></ td >
</ tr >
< tr >
< th align ="right" > 选项: </ th >
< td >< asp:CheckBox Runat ="server" ID ="OutliningEnabledCheckBox" Checked ="True" Text ="允许代码折叠" /> &nbsp; < asp:CheckBox Runat ="server" ID ="LineNumberMarginVisibleCheckBox" Checked ="True" Text ="显示行号" /></ td >
</ tr >
< tr >
< th valign ="top" align ="right" > 代码: </ th >
< td >< asp:TextBox Runat ="server" ID ="CodeTextBox" TextMode ="MultiLine" Rows ="10" Columns ="80" CssClass ="code" /></ td >
</ tr >
< tr >
< td > &nbsp; </ td >
< td >< asp:Button Runat ="server" ID ="HighlightButton" Text ="确 定" OnClick ="HighlightButton_Click" /> &nbsp;&nbsp;&nbsp;&nbsp; < input onclick ="return window.close()" type ="button" value ="关 闭" /></ td >
</ tr >
< tr >
< td ></ td >
< td >< pre >< CH:CODEHIGHLIGHTER id ="Codehighlighter1" runat ="server" OnPostRender ="CodeHighlighter_PostRender" ></ CH:CODEHIGHLIGHTER ></ pre ></ td >
</ tr >
</ table >
< div id ="ScriptOutPut" runat ="server" ></ div >
</ form >
</ body >
</ html >

Partial Class insertcode Class insertcode
Inherits System.Web.UI.Page

Protected Sub Page_Load() Sub Page_Load( ByVal sender As Object , ByVal e As System.EventArgs) Handles Me .Load
Response.Expires = - 1
If Not IsPostBack Then
Dim key As String
Dim config As ActiproSoftware.CodeHighlighter.CodeHighlighterConfiguration = CType (System.Configuration.ConfigurationManager.GetSection( " codeHighlighter " ), ActiproSoftware.CodeHighlighter.CodeHighlighterConfiguration)
For Each key In config.LanguageConfigs.Keys
LanguageDropDownList.Items.Add(key)
Next key

End If
End Sub

Protected Sub HighlightButton_Click() Sub HighlightButton_Click( ByVal sender As Object , ByVal e As System.EventArgs) Handles HighlightButton.Click
' 设置代码的语言
Codehighlighter1.LanguageKey = LanguageDropDownList.SelectedItem.Text
Codehighlighter1.OutliningEnabled = True
Codehighlighter1.Text = CodeTextBox.Text

' 允许代码折叠
Codehighlighter1.OutliningEnabled = OutliningEnabledCheckBox.Checked
' 显示行号
Codehighlighter1.LineNumberMarginVisible = LineNumberMarginVisibleCheckBox.Checked
End Sub

Public Sub CodeHighlighter_PostRender() Sub CodeHighlighter_PostRender( ByVal sender As Object , ByVal e As System.EventArgs)
If IsPostBack Then
Dim html As String = Codehighlighter1.Output
html = html.Replace(vbCr & vbLf, " <br /> " )
Dim divstr As String = " <div style='BORDER-RIGHT: windowtext 0.5pt solid;PADDING-RIGHT: 5.4pt; BORDER-TOP: windowtext 0.5pt solid; PADDING-LEFT: 5.4pt; BACKGROUND: #e6e6e6; PADDING-BOTTOM: 4px;PADDING-TOP: 4px;BORDER-LEFT: windowtext 0.5pt solid;WIDTH: 98%; BORDER-BOTTOM: windowtext 0.5pt solid;word-break:break-all'> "
html = divstr & html & " </div> "

Dim sb As System.Text.StringBuilder = New System.Text.StringBuilder()
sb.Append( " < " )
sb.Append( " script " )
sb.Append( " > " )
sb.Append( " var editor=window.dialogArguments;editor.ExecCommand('PasteHTML',false,' " & html & " ');window.close(); " )
sb.Append( " < " )
sb.Append( " / " )
sb.Append( " script " )
sb.Append( " > " )
ScriptOutPut.InnerHtml = sb.ToString()
End If
End Sub

End Class