（ 3 ）建立数据库链接“ ADconn ”，链接数据库“ C:\ Inetpub\wwwroot\adweb \data\hotel.mdb ”，方法可参考实例 75 。
提示：“ 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 |
提示：也许有人会问为什么不直接用单选按钮列表的数据绑定呢？这由于通过 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
