为论坛和Blog添加代码高亮显示的功能。

在cnblogs和许多其他论坛、Blog上都有插入程序代码高亮显示的功能。现参考cnblogs的为例，以discuz!NT 2.0 rc2为例，说明如何增加插入代码高亮功能。

cnblogs的代码高亮功能是通过一个共享软件实现的，可以到以下网址下载使用
http://www.actiprosoftware.com/Download/Freeware.aspx

此软件的Api很简单，就是一个Asp.net的控件。可以在网页上输出高亮显示的代码。但我们不想让高亮代码在网页上输出，而是插入到文章中。可以对discuz自带的Editor进行改造，以达到响应的功能。

首先将 ActiproSoftware.CodeHighlighter.Net20.dll、ActiproSoftware.Shared.Net20.dll、CodeHighlighterTest.dll Copy到discuz的bin目录。然后在discuz的页面文件价（aspx/1)下添加InsertCode.aspx文件，内容如下

<% @ Page Language = " C# "   %>
<% @ Import Namespace = " ActiproSoftware.CodeHighlighter "   %>
<% @ Import Namespace = " System.Reflection "   %>

<! DOCTYPE html PUBLIC  " -//W3C//DTD XHTML 1.0 Transitional//EN "   " http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd " >

< script runat = " server " >
     protected   string  ReturnCode;
    
     protected   override   void  OnLoad(EventArgs e)
     ... {
        if (!IsPostBack)
        ...{
            //从配置文件中获取支持的语言列表
            CodeHighlighterConfiguration config = (CodeHighlighterConfiguration)ConfigurationManager.GetSection("codeHighlighter");
            string[] keys = new string[config.LanguageConfigs.Keys.Count];
            config.LanguageConfigs.Keys.CopyTo(keys, 0);
            Array.Sort(keys);
            foreach (string key in keys)
            ...{
                LanguageDropDownList.Items.Add(key);
            }
            //将默认语言设置为C#
            LanguageDropDownList.SelectedIndex = LanguageDropDownList.Items.IndexOf(LanguageDropDownList.Items.FindByText("C#"));
        }
        
        base.OnLoad(e);
    }

     protected   void  Insert_Click( object  sender, EventArgs e)
     ... {
        //初始化控件
        ActiproSoftware.CodeHighlighter.CodeHighlighter ch = new ActiproSoftware.CodeHighlighter.CodeHighlighter();
        ch.LanguageKey = LanguageDropDownList.SelectedValue;
        ch.Text = Code.Text;
        ch.Page = this;
        Type t = ch.GetType();

        //利用反射获取高亮显示的代码
        MethodInfo method = t.GetMethod("a", BindingFlags.NonPublic | BindingFlags.Instance | BindingFlags.Public);
        method.Invoke(ch, null);
        FieldInfo field = t.GetField("i", BindingFlags.NonPublic | BindingFlags.Instance | BindingFlags.Public);
        ReturnCode = (string)field.GetValue(ch);

        //将代码放入 pre 标签中以保持格式，并输出到页面显示
        ReturnCode = JStringEncode("<pre style='background-color:#eeeeee;font-size:13px;BORDER:1px solid #CCCCCC;PADDING-RIGHT: 5px;PADDING-BOTTOM: 4px;PADDING-left: 4px;PADDING-TOP: 4px;WIDTH: 98%;word-break:break-all'>" + ReturnCode + "</pre>");
        ReturnPanel.Visible = true;
    }

     /**/ /// <summary>
    /// 替换掉字符串中的特殊字符，如把 " 替换成 "
    /// </summary>
    /// <param name="str"></param>
    /// <returns></returns>
     public   static   string  JStringEncode(  string  str )
     ... {
        if( str == null )
        ...{
            return string.Empty;
        }
        //替换反斜杠
        str = str.Replace( @"", @"/" );
        //替换回车
        str = str.Replace( " ", @" " );
        str = str.Replace( " ", @" " );
        //替换 " 号
        str = str.Replace( """, "/"" );
        return str;
    }
</ script >

< html xmlns = " http://www.w3.org/1999/xhtml " >

< head runat = " server " >
     < title > 插入源代码 </ title >
</ head >
< body >
     < form id = " form1 "  runat = " server " >
         < div >
             < table id = " Table1 "   class = " tb "  cellspacing = " 0 "  cellpadding = " 3 "  border = " 0 " >
                 < tr >
                     < th align = " right "  style = " width: 80px; " >
                        编程语言: </ th >
                     < td >
                         < asp:DropDownList ID = " LanguageDropDownList "  runat = " server "  Width = " 100px " >
                         </ asp:DropDownList ></ td >
                 </ tr >
                 < tr >
                     < th valign = " top "  align = " right " >
                        代码: </ th >
                     < td >
                         < asp:TextBox ID = " Code "  runat = " server "  Height = " 200px "  TextMode = " MultiLine "  Width = " 500px " ></ asp:TextBox ></ td >
                 </ tr >
                 < tr >
                     < td >
                         & nbsp; </ td >
                     < td >
                         & nbsp; < asp:Button ID = " Insert "  runat = " server "  OnClick = " Insert_Click "  Text = " 确定 "   />& nbsp; & nbsp; & nbsp; < input
                            onclick = " return window.close() "  type = " button "  value = " 关闭 " ></ td >
                 </ tr >
             </ table >
         </ div >
         < asp:Panel ID = " ReturnPanel "  runat = " server "  Visible = " false " >
         < script language = " javascript " >
        window.opener.insertText( " <% = ReturnCode %> " );
        window.close();
         </ script >
         </ asp:Panel >
     </ form >
</ body >
</ html >

然后修改discuz的webconfig，如下所示

  1 <?xml version="1.0" encoding="utf-8" ?>
  2<configuration>
  3    <configSections>
  4        <section name="codeHighlighter" requirePermission="false" type="ActiproSoftware.CodeHighlighter.CodeHighlighterConfigurationSectionHandler, ActiproSoftware.CodeHighlighter.Net20"/>
  5    </configSections>
  6
  7  <system.web>
  8
  9    <compilation 
 10         defaultLanguage="c#"
 11         debug="false"
 12    />
 13     
 14    <authorization>
 15        <allow users="*" /> <!-- 允许所有用户 -->
 16    </authorization>
 17
 18    <trace
 19        enabled="false"
 20        requestLimit="10"
 21        pageOutput="false"
 22        traceMode="SortByTime"
 23        localOnly="true"
 24    />
 25
 26    <!-- 以下为Discuz!NT相关的一些系统设置, 如果有疑问, 请访问 http://nt.discuz.net/config 获得更详细的说明
 27    -->
 28
 29
 30
 31    <!--  注意：此节设置错误信息的显示
 32
 33          "On" 始终显示自定义(友好的)信息。
 34          "Off" 始终显示详细的 ASP.NET 错误信息。
 35          "RemoteOnly" 只对不在本地 Web 服务器上运行的
 36    -->
 37    <customErrors 
 38    mode="RemoteOnly" 
 39    /> 
 40
 41    <!--  注意：此节设置全球化，Discuz!NT由此支持多语言。
 42    -->
 43    <globalization 
 44            requestEncoding="utf-8" 
 45            responseEncoding="utf-8" 
 46            fileEncoding="utf-8"
 47    />
 48
 49    <!--  注意：此节设置是否使用ASP.net表单安全验证，Discuz!NT使用自己的验证。
 50    -->
 51    <pages
 52            validateRequest="false"
 53            enableEventValidation="false"
 54            enableViewStateMac="false"
 55            viewStateEncryptionMode ="Never"
 56    /> 
 57
 58    <!--  注意：此节设置由Discuz!NT接管http请求。不会干涉对非Discuz!NT论坛路径下的请求。
 59    -->
 60    <httpModules>
 61        <add type="Discuz.Forum.HttpModule, Discuz.Forum" name="HttpModule" />
 62    </httpModules>
 63
 64    <xhtmlConformance mode="Legacy"/>
 65
 66    <httpRuntime maxRequestLength="2097151" executionTimeout="3600"/>
 67
 68    <webServices>
 69      <protocols>
 70        <add name="HttpGet" />
 71        <add name="HttpPost"/>
 72      </protocols>
 73    </webServices>
 74
 75
 76 </system.web>
 77
 78    <codeHighlighter>
 79        <cache languageTimeout="3"/>
 80        <keywordLinking enabled="true" target="_blank" defaultKeywordCollectionKey="ActiproKeywords">
 81            <keywordCollection key="ActiproKeywords">
 82                <explicitKeyword tokenKey="IdentifierToken" patternValue="Actipro" url="http://www.actiprosoftware.com" caseSensitive="false"/>
 83                <explicitKeyword tokenKey="IdentifierToken" patternValue="CodeHighlighter" url="http://www.codehighlighter.com" caseSensitive="false"/>
 84            </keywordCollection>
 85        </keywordLinking>
 86        <languages>
 87            <language key="Assembly" definitionPath="~/Languages/Lexers/ActiproSoftware.Assembly.xml"/>
 88            <language key="BatchFile" definitionPath="~/Languages/Lexers/ActiproSoftware.BatchFile.xml"/>
 89            <language key="C#" definitionPath="~/Languages/Lexers/ActiproSoftware.CSharp.xml"/>
 90            <language key="CSS" definitionPath="~/Languages/Lexers/ActiproSoftware.CSS.xml"/>
 91            <language key="HTML" definitionPath="~/Languages/Lexers/ActiproSoftware.HTML.xml"/>
 92            <language key="INIFile" definitionPath="~/Languages/Lexers/ActiproSoftware.INIFile.xml"/>
 93            <language key="Java" definitionPath="~/Languages/Lexers/ActiproSoftware.Java.xml"/>
 94            <language key="JScript" definitionPath="~/Languages/Lexers/ActiproSoftware.JScript.xml"/>
 95            <language key="Lua" definitionPath="~/Languages/Lexers/ActiproSoftware.Lua.xml"/>
 96            <language key="MSIL" definitionPath="~/Languages/Lexers/ActiproSoftware.MSIL.xml"/>
 97            <language key="Pascal" definitionPath="~/Languages/Lexers/ActiproSoftware.Pascal.xml"/>
 98            <language key="Perl" definitionPath="~/Languages/Lexers/ActiproSoftware.Perl.xml"/>
 99            <language key="PHP" definitionPath="~/Languages/Lexers/ActiproSoftware.PHP.xml"/>
100            <language key="PowerShell" definitionPath="~/Languages/Lexers/ActiproSoftware.PowerShell.xml"/>
101            <language key="Python" definitionPath="~/Languages/Lexers/ActiproSoftware.Python.xml"/>
102            <language key="SQL" definitionPath="~/Languages/Lexers/ActiproSoftware.SQL.xml"/>
103            <language key="VB.NET" definitionPath="~/Languages/Lexers/ActiproSoftware.VBDotNet.xml"/>
104            <language key="VBScript" definitionPath="~/Languages/Lexers/ActiproSoftware.VBScript.xml"/>
105            <language key="XAML" definitionPath="~/Languages/Lexers/ActiproSoftware.XAML.xml"/>
106            <language key="XML" definitionPath="~/Languages/Lexers/ActiproSoftware.XML.xml"/>
107        </languages>
108        <lineNumberMargin foreColor="Teal" paddingCharacter=" " visible="true"/>
109        <outlining enabled="true" imagesPath="~/Images/OutliningIndicators/"/>
110        <spacesInTabs count="4"/>
111    </codeHighlighter>
112
113</configuration>

Copy高亮组件的 Languages/Lexers、Images/OutliningIndicators 目录到discuz的指定目录

在discuz的编辑器文件 editor/editor.js，在function discuzcode(cmd, arg)函数中if else组里添加处理insertcode的代码

if  (cmd  ==   " insertcode " )
    {
        window.open('../InsertCode.aspx', null, 'height=500, width=600, toolbar=no, menubar=no, scrollbars=no, resizable=no,location=no, status=no');
    }

修改discuz编辑器文件 editor/ cp_editor.htm 在插入图片后变添加插入代码的命令

< a  id ="posteditor_cmd_insertcode" > 插入代码 </ a >

现在，discuz的blog里就有插入高亮代码的功能了。