步骤二 设计基本页面
（ 1 ）“ index.aspx ”页面结构。打开“ index.aspx ”，该页面是素材直接提供的，初始打开时如图 96-6 所示。图中①、②所示是图像而不是图像按钮，圆角方框①所示的图像其作用是添加“ OnClick ”动作以显示“ Layer1 ”层，该层中添加了一个日历控件，其 ID 为“ MyCalendar1 ”；圆角方框②所示图像的作用是添加“ OnClick ”动作以显示“ Layer2 ”层，该层中添加了一个日历控件，其 ID 为“ MyCalendar2 ”。
提示：“ index.aspx ”初始页面中其他控件的设置情况如表 96-1 所示。
表 96-1 “ index.aspx ”初始页面中其他控件的设置情况
控件对应文本
控件类型
控件 ID
入住时间
asp ：文本框
StartTime
离店时间
asp ：文本框
LastTime
预订数量
asp ：文本框
OrderNum
会员 ID
asp ：文本框
UserID1
会员密码
asp ：文本框
UserPass1
注册 ID
asp ：文本框
UserID
真实姓名
asp ：文本框
UseName
登录密码
asp ：文本框
UserPass
重复密码
asp ：文本框
UserPass2
电子邮件
asp ：文本框
UserEmail
联系电话
asp ：文本框
UserTel
【现在预订】按钮
asp ：按钮
Orderbt
【全部重置】按钮
表单按钮
Submit （其动作为重置表单）
（ 2 ）添加数据集【 RoomData 】。在【服务器行为】面板中添加数据集【 RoomData 】，其在【数据集】对话框中的设置如图 96-7 所示。
（ 3 ）修改 SQL 命令。在【数据集】对话框中单击【高级】按钮，切换到【数据集】高级对话框，将 SQL 命令由 SELECT Pice,RoomID, RoomNum,RoomType FROM tbRoom 改为 SELECT Pice,RoomID, RoomNum, trim(RoomType)+chr(32)+cstr(Pice) As RoomType FROM tbRoom ，如图 96-8 所示。
（ 4 ）添加数据列表。单击 ASP.NET 快捷菜单中的【 asp ：单选按钮列表】，操作如图 96-9 所示。
（ 5 ）为页面添加“ System.Data ”、“ System.Data.OleDb ”、“ System.Globalization ”和“ System.Threading ” 4 个命名空间，如图 96-10 中圆角方框所示。
（ 6 ）定义页面载入过程“ Page_Load ”，该过程的代码如下所述。
Sub Page_Load(ByVal Src As Object, ByVal E As EventArgs)
Dim i As Integer
If Not Page.IsPostBack Then
For i = 0 To RoomData.RecordCount - 1
Dim str1, str2 As String
str1 = RoomData.DefaultView(i).Row("RoomType")
str2 = CStr(RoomData.DefaultView(i).Row("RoomID"))
RoomRadio.Items.Add(New ListItem(str1, str2))
Next
End If
End Sub
程序说明：
该 “ Page_Load ”过程是在第一次载入页面时，为单选按钮列表“ RoomRadio ”添加列表项，添加列表项的标签值等于“ RoomData ”数据集下的字段“ RoomType ”，而选取值等于字段“ RoomID ”。
提示：也许有人会问为什么不直接用单选按钮列表的数据绑定呢？这由于通过 Dreamweaver 进行数据绑定，在程序中经常会出现无法获取单选按钮列表选取值的错误。
（ 7 ）定义“ MyCalendar1_SelectionChanged ”过程，用于响应日历控件“ MyCalendar1 ”的“ SelectionChanged ”事件，该过程的代码如下所述。
Protected Sub MyCalendar1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs)Handles MyCalendar1.SelectionChanged
starttime.text = MyCalendar1.SelectedDate.ToShortDateString
End Sub
（ 8 ）定义“ MyCalendar2_SelectionChanged ”过程，用于响应日历控件“ MyCalendar2 ”的“ SelectionChanged ”事件，该过程的代码如下所述。
Protected Sub MyCalendar2_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs)Handles MyCalendar2.SelectionChanged
lasttime.text= MyCalendar2.SelectedDate.ToShortDateString
End Sub
本新闻共3页,当前在第3页 1 2 3
