Dreamweaver构建Blog全程实录(10):事件日历
2008-02-23 06:59:14来源：互联网 阅读 ()
既然Doking’s BLOG是学习笔记，那么按日历可以查出所有笔记和笔记回复。
难点分析：是不是要在模板中直接添加Calendar日历控件？不！那是不行的！由于Calendar日历控件是服务器控件，要在含有runat="server"表单该服务器控件，但一页面中只能有一个含有runat="server"表单，不然有时会出现如图10-1所示的错误显示。
图10-1 页面只能有一个含有runat="server"表单的错误
那怎么办？这里是采取嵌入式框架进行转移。
10.1 添加Calendar日历控件
（1）新建一个空白ASP.NET VB动态页。
（2）插入带出runat="server"表单，设置ID=”Calfrm”。
（3）点击ASP.NET快捷菜单下的“更多标签”按钮，在弹出【标签选择器】对话框中选择“ASP.NET 标签”下的“asp Calendar”，如图10-2所示。
图10-2 插入“asp Calendar”标签
（4）按“插入”按钮，弹出【标签编辑器—Calendar】对话框，如图10-3所示。在这个对话中，可以对Calendar日历控件的样式进行设置，由于有中文，在这里就不多讲了。
（5）保存ASP.NET VB动态页为dkCalendar.aspx。在IE中浏览，如图10-4所示。
图10-3 【标签编辑器—Calendar】对话框
图10-4 dkCalendar.aspx在IE中的浏览
在图10-1-4中，可以看到星期的显示太长了，很难看！如果显示为“日、一、二、三、四、五、六”，那就好了。
10.2 修改Calendar的星期显示
（1）在Dreamweaver中打开dkCalendar.aspx，切换到代码视图，寻找如下代码：
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" %>
把它改为：
<%@ Page Language="VB" Debug="true" Culture="zh-CN"%>
（2）点击ASP.NET快捷菜单下的“а：xy”按钮，插入命名空间，如图10-5所示。
（3）此时新添代码：
<%@ Import Namespace="" %>
输入命名空间为System.Globalization，即代码改为：
<%@ Import Namespace="System.Globalization" %>
（4）再添加命名空间System.Threading，结果如图10-6所示。
图10-5 插入命名空间
图10-6 插入命名空间后代码
（5）在代码：
<%@ Import Namespace="System.Treading" %>
之后，空一行，并插入如下代码：
<script runat="server">
Dim dkday‘定义选择日期所产生的链接字符串的全局变量
'改变星期显示的函数
Private Sub Calendar1_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles Calendar1.PreRender
Dim dkwek = System.Threading.Thread.CurrentThread
Dim dknew = System.Globalization.CultureInfo.CurrentCulture.Clone()
dknew.DateTimeFormat.DayNames = New String() {"日", "一", "二", "三", "四", "五", "六"}
dknew.DateTimeFormat.FirstDayOfWeek = DayOfWeek.Sunday
dkwek.CurrentCulture = dknew
End Sub
</script>
（6）选择日历控件Calendar1的原代码，切换到【标签】面板的【属性】选项卡，展开“外观”选项，选择“DayNameFormat”项的下拉菜单，并选择“Full”，如图10-7所示。
（7）保存dkCalendar.aspx，在IE中进行浏览，结果如图10-8所示。
图10-7 选择“DayNameFormat”值为“Full” 图10-8 dkCalendar.aspx修改后在IE浏览
10.3 添加日历事件
（1）在Dreamweaver中打开dkCalendar.aspx，切换到代码视图，选择Calendar1的原代码，右键单击它，在弹出的快捷菜单中选择“编辑标签(E)<asp:calendar>”，如图10-9所示。
图10-9 选择“编辑标签(E)<asp:calendar>”
（2）在弹出【编辑标签—calendar】的对话框中，展开“事件”项，选择“OnSelectionChanged”，在“Calendar —OnSelectionChanged”事件文本区域中，输入“Calendar1_SelectionChanged”，按“确定”按钮，如图10-10所示。
图10-10 编辑OnSelectionChanged事件
（3）在代码<script runat="server">标签中添加如图10-11红色圈所示的代码。
图10-11 添加Calendar1_SelectionChanged事件
（4）在标签<head></head>之间，插入如图10-12红色圈所示的代码。
（5）找标签<body>，将其改为如图10-13红色圈所示的代码。
图10-12 插入javascript函数dkwk
图10-13 修改标签<body>
（6）再次把Calendar1的“DayNameFormat”项的设为“Full”，参照10.2节中的第6步骤。
（7）保存dkCalendar.aspx，打开index.aspx，在page_load函数中添加如下代码：
if Request.QueryString("dkday")<>nothing then
Ztre.CommandText="SELECT * FROM ZTRE WHERE cstr(ZITIME) LIKE '%" &Request.QueryString("dkday")&"%' ORDER BY ZITIME DESC"
else
if (request.QueryString("menanw")<>nothing) or (session("menanw")<>nothing) then
Ztre.CommandText="SELECT * FROM ZTRE WHERE LMID = ? ORDER BY ZITIME DESC"
else
Ztre.CommandText="SELECT * FROM ZTRE ORDER BY ZITIME DESC"
标签：
版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有
- Dreamweaver构建Blog全程实录(10):事件日历 2018-06-23
- Dreamweaver构建Blog全程实录(10):事件日历 2008-02-23
IDC资讯： 主机资讯 注册资讯 托管资讯 vps资讯 网站建设
网站运营： 建站经验 策划盈利 搜索优化 网站推广 免费资源
网络编程： Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术： Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护
软件技巧： 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷
网页制作： FrontPages Dreamweaver Javascript css photoshop fireworks Flash
