<script language="JavaScript" src="ChatService.asmx/js"/>

function GetMsg() {
    AtlsChat.ChatService.GetConversation(
    "",     //params
    OnComplete,     //Complete event
    OnTimeout       //Timeout event
    );
    
    return false;
}

function Add() {
    document.getElementById('info').innerHTML = '<span style="background-color: yellow">&nbsp;posting&nbsp;</span>';
    AtlsChat.ChatService.Add(
    document.getElementById('inputName').value.replace('\t','&nbsp;&nbsp;&nbsp;')+'\t'+ document.getElementById('inputMsg').value.replace('\t','&nbsp;&nbsp;&nbsp;'),
    GetMsg,
    OnTimeout
    );
    
    return false;
}
    
function OnComplete(result) 
    {
        document.getElementById('msg').innerHTML = result;
            
        document.getElementById('info').innerHTML = "";
    }

    function OnTimeout(result) 
    {
        document.getElementById('info').innerHTML = "time out";
    }

最后，需要在页面中引用Atlas提供的几个js：

<atlas:Script ID="Script1" runat="server" Path="~/ScriptLibrary/AtlasCompat.js" Browser="Mozilla" />
    <atlas:Script ID="Script2" runat="server" Path="~/ScriptLibrary/AtlasCompat.js" Browser="Firefox" />
    <atlas:Script ID="Script3" runat="server" Path="~/ScriptLibrary/AtlasCompat.js" Browser="AppleMAC-Safari" />
    <atlas:Script ID="Script4" runat="server" Path="~/ScriptLibrary/AtlasCore.js" />
    <atlas:Script ID="Script5" runat="server" Path="~/ScriptLibrary/AtlasCompat2.js" Browser="AppleMAC-Safari" />

 <script type="text/xml-script">
        <page xmlns:script="http://schemas.microsoft.com/xml-script/2005">
            <references>
                <!-- Repath the following src attributes, using regular client relative paths as necessary -->
                <add src="ScriptLibrary/AtlasUI.js" />
                <add src="ScriptLibrary/AtlasControls.js" />
            </references>
            <components>
            </components>
        </page>
   </script>

       Dim win As Window = applicationObject.ActiveWindow
            Dim d As ComponentModel.Design.IDesignerHost = win.Object
            iss = d.GetService(GetType(ComponentModel.Design.ISelectionService))
            Dim c As ComponentModel.Component = iss.PrimarySelection
            Dim pi As Reflection.PropertyInfo = CObj(c).GetType().GetProperty("Visible")
            
            Dim val As Object = pi.GetValue(c, Nothing)
            Dim tc As System.ComponentModel.TypeConverter = ComponentModel.TypeDescriptor.GetConverter(val)
            MsgBox(c.Site.Name & "." & pi.Name & " = " & tc.ConvertToString(val))

这样做有一个问题，当我要取TextBox.Visible这类属性的时候，返回值永远为true，因为reflect的是designer中的textbox对象，它的visible值永远为true。正确的做法是通过PropertyDescriptorCollection来读取Properties window里面的值，代码如下：

  
   
           'query Properties
            Dim properties As System.ComponentModel.PropertyDescriptorCollection
            properties = System.ComponentModel.TypeDescriptor.GetProperties(c)
            Dim prop As System.ComponentModel.PropertyDescriptor
            prop = properties("Visible")
            MsgBox(c.Site.Name & "." & prop.Name & " = " & prop.GetValue(c))

using System;

namespace myconfig
{
    public class MySettings
    {
        public string SomeSetting; //自定义一个string类型的配置信息

        public MySettings()
        {
        }
    }
}

using System;
using System.Configuration;
using System.Xml;

namespace myconfig
{
    public class MyConfigHandler: IConfigurationSectionHandler
    {
        public MyConfigHandler()
        {
        }
    
        public object Create(object parent, object input, XmlNode node) 
        {
            MySettings myset = new MySettings();
            foreach (XmlNode n in node.ChildNodes) 
            {
                switch (n.Name)
                {
                    case("SomeSetting"): //从web.config读取SomeSetting的值
                        myset.SomeSetting = n.InnerText; 
                        break;
                    default:
                        break;
                }
            }

            return myset;

        }

    }
}

    <configSections>
        <section name="MySettings" type="myconfig.MyConfigHandler,myconfig"></section>
    </configSections>
    
    <MySettings>
        <SomeSetting>This is a customer configuration setting.</SomeSetting>
    </MySettings>

其中<configSecions>告诉web.config调用MyConfigHandler来处理MySettings，<MySettings>中保存的就是自定义的配置内容，例如在某个web page中执行如下代码：

        private void Page_Load(object sender, System.EventArgs e)
        {
            // Put user code to initialize the page here
            MySettings myset;
            myset = System.Configuration.ConfigurationSettings.GetConfig("MySettings") as MySettings;

            Response.Write(myset.SomeSetting);
        }

得到的结果将会是在客户端显示This is a customer configuration setting。其实还有另一种更简单的方法，就是利用NameValueFileSectionHandler，但是在添加配置信息时需要像在AppSettings中那样用<add name="" value=""></add>来添加键值，对于自定义配置来说意义不大，具体可以参考msdn中相关的文章。


Justin同学总是push我要多发些技术贴，否则就有点对不起他推荐我到这里来了，过两天有空的话就再写些关于自定义httpHandlers和httpModules的文章吧，hoho，被人push真不爽。