( 6 )定义过程“ ErrInfo ”用于出错时调用该过程显示错误信息,该过程的代码如下所述。 Sub ErrInfo(ByVal Errmess As String) Dim strScript As String strScript = "<script language=javascript>" strScript += "alert('" + Errmess + "');" strScript += "<" strScript += "/" strScript += "script>" RegisterClientScriptBlock("showSaveMessage", strScript) End Sub (读者可打开【光盘】|【源文件】|【实例 96 】|【 96.7.txt 】文件,直接复制) ( 7 )定义【现在预订】按钮的“ OnClick ”事件响应过程为“ Orderbt_Click ”,并将该过程绑定到【现在预订】按钮的“ OnClick ”事件中。“ Orderbt_Click ”过程的源代码如下所述。 Protected Sub Orderbt_Click(ByVal sender As Object, ByVal e As System.EventArgs) Dim Errstr As String HotelConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data/hotel.mdb") conn = New OleDbConnection(HotelConn) If Usercheck() = False Then Errstr = " 请正确登录或正确输入您的注册信息! " ErrInfo(Errstr) Exit Sub End If If Roomcheck() = False Then Errstr = " 您预订客房在您预订时间段中已预订满了! " ErrInfo(Errstr) Exit Sub End If Orderinser() End Sub (读者可打开【光盘】|【源文件】|【实例 96 】|【 96.8.txt 】文件,直接复制) ( 8 )预览效果。保存“ index.apsx ”,在 IE 中预览效果,如图 96-1 所示。 本实例讲解了客房预订业务中最简单的流程:用户注册、登录、验证用户预订客房是否预订满,以完成客房预订业务。本实例没有对服务器控件进行验证,也没有对注册名惟一性的验证进行,有兴趣的读者可以参考实例 76 和实例 77 ,添加相关功能。当提交预订资料时,客房预订业务会把预订资料以电子邮件的方式发给预订客房的用户,本实例也没有对这方面的知识进行讲解,有兴趣的读者可以参考实例 84 中“步骤三 建立订单邮件自动回复”里的相关内容。当提交预订资料时,客房预订业务也会将资料发给酒店的总台,以便更新总台客房预计的相关数据库,由于这方面的知识已经超出 Dreamweaver 的应用范围,所以这里就不再详细介绍了。至此,本实例操作完毕。 更多实例请阅读《Dreamweaver网页设计与制作实例精选》。
|