基于Ajax1.0 开发的开发包AjaxControlToolkit中的CalendarExtender控件，主要是用来实现日期的选取。普遍用法是用一个文本框，获取焦点时弹出日期面板，选择日期后将日期返回到文本框中。简要提一下关于这个控件的属性及样式（Calendar）设置：

• TargetControlID
  通过该属性设置当哪个控件获取焦点时，弹出日期面板并将日期值返回到这个控件中，通常设置为文本框。
• Format
  通过该属性，设置返回日期的格式。
• PopupButtonID
  通过该属性，设置当哪个控件点击时，弹出日期面板，此控件不授受返回值

        <asp:ScriptManager ID="ScriptManager1" runat="server">
        </asp:ScriptManager>
    <div>
        <br /><br />
        <b>Default Calendar:</b>
        <asp:TextBox ID="Data1" runat="server"></asp:TextBox>
           <cc1:CalendarExtender ID="CalendarExtender1" runat="server" TargetControlID="Data1">
    </cc1:CalendarExtender> 
    <b>Calendar with custom style and Data Format:</b><br />
        <asp:TextBox ID="Data2" runat="server"></asp:TextBox>
        <cc1:CalendarExtender ID="CalendarExtender2" runat="server" TargetControlID="Data2" CssClass="MyCalendar" Format="mm,d,yyyy">
        </cc1:CalendarExtender>
        <br />
        <br />
        <b>Calendar with associated button：</b>
        <asp:TextBox ID="Data3" runat="server"></asp:TextBox>
        <asp:Image ID="Image1" runat="server" ImageUrl="~/Calendar_scheduleHS.png" />
        <cc1:CalendarExtender ID="CalendarExtender3" runat="server" TargetControlID="Data3" PopupButtonID="Image1">
        </cc1:CalendarExtender>

关于CalendarExtende样式设置
　　通常，我们总是喜欢通过CSS样式表来设置控件，直接在VS里设置控件样式只会加重页面的负载，原因是样式直接写入了HTML标记输出到了页面，三个样式相同的控件，意味着要下载三套css样式，如果将样式应用在外部的css文件中，可以大大地提高页面性能。
　　下面的css文件片断，是上例中第二个CalendarExtender控件指向的MyCalender样式类。从中可以看到。CalendarExtender主体的样式设置，是在子类ajax__calendar_container类中进行，其它的样式设置，参照如下：

.MyCalendar .ajax__calendar_container {}{
    border:1px solid #646464;
    background-color: lemonchiffon;
    color: red;
}
.MyCalendar .ajax__calendar_other .ajax__calendar_day,
.MyCalendar .ajax__calendar_other .ajax__calendar_year {}{
    color: black;
}
.MyCalendar .ajax__calendar_hover .ajax__calendar_day,
.MyCalendar .ajax__calendar_hover .ajax__calendar_month,
.MyCalendar .ajax__calendar_hover .ajax__calendar_year {}{
    color: black;
}
.MyCalendar .ajax__calendar_active .ajax__calendar_day,
.MyCalendar .ajax__calendar_active .ajax__calendar_month,
.MyCalendar .ajax__calendar_active .ajax__calendar_year {}{
    color: black;
    font-weight:bold;
}

评论: 2　查看评论　发表评论

最新新闻：
· MySpace中国全面转型：欲争夺数字音乐版权(2010-02-10 14:02)
· 王冉：中国会成全球最大移动互联网市场(2010-02-10 13:42)
· 冷静，社交游戏！(2010-02-10 13:38)
· 百度新宠：网络视频(2010-02-10 13:37)
· 国产软件的“拿来主义”：开源软件、主导权(2010-02-10 13:26)

编辑推荐：.NET Reflector即将商业化

网站导航：博客园首页  个人主页  新闻  闪存  小组  博问  社区  知识库

• HttpWebRequest
  　　HttpWebRequest 类对 WebRequest 中定义的属性和方法提供支持，也对使用户能够直接与使用 HTTP 的服务器交互的附加属性和方法提供支持。
  　　使用 System.Net.WebRequest.Create 方法初始化新的 HttpWebRequest 对象。如果统一资源标识符 (URI) 的方案是 http:// 或 https://，则 Create 返回 HttpWebRequest 对象。
  　　GetResponse 方法向 RequestUri 属性中指定的资源发出同步请求并返回包含该响应的 HttpWebResponse。可以使用 BeginGetResponse 和 EndGetResponse 方法对资源发出异步请求。
  　　当要向资源发送数据时，GetRequestStream 方法返回用于发送数据的 Stream 对象。BeginGetRequestStream 和 EndGetRequestStream 方法提供对发送数据流的异步访问。
  　　对于使用 HttpWebRequest 的客户端验证身份，客户端证书必须安装在当前用户的“我的证书”存储区中。
  　　如果在访问资源时发生错误，则 HttpWebRequest 类将引发 WebException。WebException.Status 属性包含指示错误源的 WebExceptionStatus 值。当 WebException.Status 为 WebExceptionStatus.ProtocolError 时，Response 属性包含从资源接收的 HttpWebResponse。
  　　HttpWebRequest 将发送到 Internet 资源的公共 HTTP 标头值公开为属性，由方法或系统设置；下表包含完整列表。可以将 Headers 属性中的其他标头设置为名称/值对。注意，服务器和缓存在请求期间可能会更改或添加标头。

• HttpWebResponse
  　　此类包含对 WebResponse 类中的属性和方法的 HTTP 特定用法的支持。HttpWebResponse 类用于生成发送 HTTP 请求和接收 HTTP 响应的 HTTP 独立客户端应用程序。
  　　决不要直接创建 HttpWebResponse 类的实例。而应当使用通过调用 HttpWebRequest.GetResponse 所返回的实例。您必须调用 Stream.Close 方法或 HttpWebResponse.Close 方法来关闭响应并将连接释放出来供重用。不必同时调用 Stream.Close 和 HttpWebResponse.Close，但这样做不会导致错误。
  　　从 Internet 资源返回的公共标头信息公开为该类的属性。有关完整的列表，请参见下表。可以从 Headers 属性以名称/值对的形式读取其他标头。

关键代码：

Imports System.Net
Imports System.IO
Imports System.Text.RegularExpressions
Partial Class Default4Class Default4
    Inherits System.Web.UI.Page
    '获取Web页上的数据
    Protected Sub btn_GetResponse_Click()Sub btn_GetResponse_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_GetResponse.Click
        Dim strURL As String = String.Empty
        Dim strResult As String = String.Empty
        Dim hwr As HttpWebRequest = Nothing
        Dim hws As HttpWebResponse = Nothing
        If Me.CheckURL(Me.txtURL.Text, strURL) Then
            hwr = HttpWebRequest.Create(strURL)
            hwr.Method = "Get"
            hws = hwr.GetResponse
            '为避免乱码，对数据流进行了gb2312编码
            Using sr As StreamReader = New StreamReader(hws.GetResponseStream, Encoding.GetEncoding("gb2312"))
                Me.txtResult.Text = sr.ReadToEnd.Trim
            End Using
        Else
            Me.Label_CheckedResult.Text = "无效的URL"
        End If
    End Sub

    '该例程主要是用来匹配输入的ＵＲＬ是否符合标准
    Private Function CheckURL()Function CheckURL(ByVal url As String, ByRef URLReturnValue As String) As Boolean
        If Regex.IsMatch(url.Trim, "http(s)?://([\w-]+\.)+[\w-]+(/[\w- ./?%&=]*)?") Then
            URLReturnValue = url.Trim
            Return True
        Else
            URLReturnValue = String.Empty
            Return False
        End If
    End Function

    '该例程主要检查输入的ＵＲＬ指向的站点是否可用
    Protected Sub btn_CheckURLActive_Click()Sub btn_CheckURLActive_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_CheckURLActive.Click
        Dim strURL As String = String.Empty
        Dim strResult As String = String.Empty
        Dim hwr As HttpWebRequest = Nothing
        Dim hws As HttpWebResponse = Nothing
        If Me.CheckURL(Me.txtURL.Text, strURL) Then
            Try
                hwr = HttpWebRequest.Create(strURL)
                hwr.Method = "HEAD"
                hwr.Timeout = 100
                hws = hwr.GetResponse
                If hws.StatusCode = HttpStatusCode.OK Then
                    Me.Label_CheckedResult.Text = "您输入的URL可以用"
                    Me.btn_GetResponse.Enabled = True
                Else
                    Me.Label_CheckedResult.Text = "您输入的URL不可用"
                    Me.btn_GetResponse.Enabled = False
                End If
            Catch ex As Exception
                Me.Label_CheckedResult.Text = "发生错误，信息如下：" & ex.Message
            End Try
        Else
            Me.Label_CheckedResult.Text = "无效的URL"
        End If
    End Sub
End Class

评论: 4　查看评论　发表评论

最新新闻：
· MySpace中国全面转型：欲争夺数字音乐版权(2010-02-10 14:02)
· 王冉：中国会成全球最大移动互联网市场(2010-02-10 13:42)
· 冷静，社交游戏！(2010-02-10 13:38)
· 百度新宠：网络视频(2010-02-10 13:37)
· 国产软件的“拿来主义”：开源软件、主导权(2010-02-10 13:26)

编辑推荐：.NET Reflector即将商业化

网站导航：博客园首页  个人主页  新闻  闪存  小组  博问  社区  知识库