1500字范文 > asp毕业设计——基于asp+sqlserver的酒店预定管理系统设计与实现（毕业论文+程序源码

asp毕业设计——基于asp+sqlserver的酒店预定管理系统设计与实现（毕业论文+程序源码

时间：2018-08-03 11:10:09

基于asp+sqlserver的酒店预定管理系统设计与实现（毕业论文+程序源码）

大家好，今天给大家介绍基于asp+sqlserver的酒店预定管理系统设计与实现，文章末尾附有本毕业设计的论文和源码下载地址哦。需要下载开题报告PPT模板及论文答辩PPT模板等的小伙伴，可以进入我的博客主页查看左侧最下面栏目中的自助下载方法哦

文章目录：

基于asp+sqlserver的酒店预定管理系统设计与实现（毕业论文+程序源码）1、项目简介2、资源详情3、关键词：4、毕设简介5、资源下载

1、项目简介

大酒店管理信息系统中不能通过互联网方式进行客房预订，通过本次设计主要实现通过互联网方式进行客房预订。让客户足不出户坐在家里就能预订出自己想要的客房。主要功能有：酒店简介、客房简介、客房报价、客房预订信息提交，预订信息查询及修改，删除，等等）管理员信息查询、回复预订信息等功能，真正实现酒店的无纸化，电子信息化、无距离限制的进行客房信息的预订。本次设计使用了asp作为开发工具，是一个b/s结构的WEB应用系统

2、资源详情

项目难度：中等难度

适用场景：相关题目的毕业设计

配套论文字数：8416个字41页

包含内容：整套源码+完整毕业论文

3、关键词：

数据库应用与开发 asp ACCESS SQLSERVEER B/S模式客房预订

4、毕设简介

提示：以下为毕业论文的简略介绍，项目源码及完整毕业论文下载地址见文末。

第一章研究的现状及设计目标

1.1 现行研究存在的问题及解决的方法

存在的问题：不能通过互联网方式进行客房预订，主要解决能够在网上就能进行客房预订，也就是我们所说的B/S系统，这样能够实现网络的内联与外联。

解决的办法：要能通过互联网方式进行客房预订。增加一台WEB服务器，用ASP书写B/S模式预订系统，使得客户不要出门就能预订自己想要的客房。

1.2 本课题要达到的设计目标

通过本次设计主要实现通过互联网方式进行客房预订。让客户足不出户坐在家里就能预订出自己想要的客房。主要功能有：酒店简介、客房简介、客房报价、客房预订信息提交，预订信息查询及修改，删除，等等）管理员信息查询、回复预订信息等功能，真正实现酒店的无纸化，电子信息化、无距离限制的进行客房信息的预订。

第二章要解决的几个关键问题

2.1设计中要解决的问题

2.2具体实现中采用的关键技术

本文要解决的几个关键的技术：

1．怎样通过ASP技术实现数据库的添加、删除、修改。

2．如何配置WEB服务器

第三章系统结构及模型

3.1 设计实现的策略和算法描述

系统的总体任务是实现客房预订管理信息系统的系统化、规范化和自动化。系统功能分析是在系统开发的总体任务的基础上完成的。本系统中主要完成的功能主要有：

A：酒店简介，能让客户能够对酒店有一个了解，比地理位置、规模、档次等。

B:客房信息查询，能够在网上了解到客房的样子、客房的档次。

C:客房价格的查询,让客户能够知道他根据自身的情况订购出适合自己的客房。

D:客房的预订登记。

E:管理员密码验证、管理员回复预订信息、管理员删除预订信息以及修改预订信息及修改管理员的用户名和密码。

F:系统功能模块设计

对上述各项功能进行集中、分块，按照结构化程序设计的要求，得到如图系统功能模块图：

3.2设计的模型及数据结构

数据库在一个信息管理信息系统中占有非常重要的地位，数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。合理的数据库结构设计可以提高数据存储的效率，保证数据的完整和一致。同时，合理的数据库结构也将有利于程序的实现。

设计数据库系统时应该首先充分了解用户各个方面的需求，包括现有的以及将来可能增加的需求。

A:数据库需求分析

用户的需求具体体现在各种信息的提供、保存、更新和查询，这就要求数据库结构能充分满足各种信息的输出和输入，收集基本数据，数据结构以及数据处理的流程，组成一份详尽的数据字典，为后面的具体设计打下基础。

针对本系统的需求，通过对系统的所要需求和数据流程分析，设计如下面所示的数据项和数据结构：

房间基本信息：包括的数据项有：房间编号，房间名称，备注，当前状态等。

操作员信息：包括的数据项有：操作员编号，操作员姓名，操作员密码，权限等。

预订信息：包括的数据项有：预订编号，预订日期，预订人姓名，公司、地址、城市、省份、国别、邮政编码、E-MAIL、电话、传真、入住日期、离开日期、入住夜数、房间数、入住成人数、客房类型、床位要求、支付方式、特殊要求等。为了安全起见，最好加上IP地址字段。

有了上面的数据结构，数据项和数据流程，我们就能进行下面的数据库设计。得到上面的数据项和数据结构以后，就可以设计出能够满足用户需求的各种实体，以及它们之间的关系，为后面的逻辑结构设计打下基础，这些实体包含各种具体信息，通过相互之间的作用形成数据的流动。

本系统根据上面的设计规划出实体有：客房实体、操作员实体、预订实体。各个实体具体的描述E-R图如下：

操作员实体：

预订实体：

B:数据库逻辑结构设计

现在需要将上面的数据库概念结构转化为ACCESS2000数据库系统所支持的实际数据库模型，也就是数据库的逻辑结构，在上面近况体以及实体之间关系的基础上，形成数据库中的表格以及各个表格之间的关系。

该系统数据库中各个表格的设计结果如下面的几个表格所示，每个表格表示在数据库中的一个表：

这样一个客房基本信息表就建好了，其它两个表也是同样如此。

上面数据库设计好后，有关数据库结构的所有后台工作已经完成，现在将实现信息管理系统中各个功能模块的实现。

我们一般制作B/S系统的程序，一般都在DREAMWAVER来设计的，当然制作的工具很多，本系统我是采用ASP脚本写的，用DREAMWAVER工具制作的。

第四章系统的实现技术

4.1各模块详述系统各部分的实现方法

大酒店简介，主要功能是让客户了解大酒店的规模情况。

主要功能，显示大酒店客房情况，包括点击放大图片，查询房价、或预订房间。

功能是显示房间的价格，让客户了解房价的情况。

客房的预订登记信息

4.2 程序流程

<%page = Request.QueryString("page")action = Request.QueryString("action")action_e = Request.Form("action_e")set Conn=Server.CreateObject("ADODB.Connection")’ 连接数据库Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("\data\data.mdb")%>’ “\data\data.mdb”指定数据库的路径<html><head><title>大酒店客房网上预订管理系统</title><meta name="keywords" content="大酒店客房网上预订管理系统"><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><link rel="stylesheet" href="gbstyle.css" type="text/css"><style type="text/css"></style></head><script language="JavaScript"></script><body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" bgcolor="#FFFFFF"><table width="760" border="0" cellpadding="0" cellspacing="0" align="center"><tr><td width="199" align="center" height="16"><img border="0" src="images/Zc-interhotel.GIF" width="425" height="26"></td><td width="331" align="center" height="16"><img border="0" src="images/Zc-interhotel.GIF" width="333" height="26"></td></tr></table><table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="boder"><tr> <td valign="top"><table width="760" border="0" cellpadding="0" cellspacing="0" align="center" bgcolor="#F0F0F0"><tr><td width="627" height="16" align="right" valign="middle" background="images/top_01.gif"><strong><img border="0" src="images/TOP.jpg" width="755" height="100"></strong></td></tr><tr><td height="16" valign="top"> </td></tr><tr><td height="72" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" class="notice"><tr bgcolor="f9f9f9"> <td width="20" valign="top"> </td><td width="160" valign="top" bgcolor="#cde0a0"><div align="center"><strong>大酒店客房网上预订管理系统</strong> <br><br><strong><font color="#FF6600" size="2"><a href="/index.asp" target="_blank">返回首页</a></font></strong></div></td><td width="20" valign="top" background="images/line2.gif" bgcolor="#cde0a0"> </td><td valign="top" bgcolor="#cde0a0"> <br> 欢迎您使用大酒店客房预订系统！在本系统您可方便地在网上预订大酒店客房。您只需按提示填完下面订房表并发送至大酒店销售部，我们将尽快给您答复。请务必将您的E-mail地址或电话、传真告诉我们，以便联系。若您有任何问题或要求，请<a href="mailto:info@">与我站联系</a>。<strong><br></strong></td></tr></table></td></tr></table></td></tr><tr> <td height="46" valign="top"><table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#F0F0F0"><tr> <td align="center" valign="top" class="input1"> <%''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''主程序Select Case action_eCase ""Case "Add_New" ‘添加客房预定的信息Call Add_New_Execute() 调用客房预订的函数Case "reply" ‘客房预订的回复Call Reply_Execute() 调用客房预订的函数Case "admin" ‘管理员登录Call Admin_Login_Execute() 调用管理员登录模块Case "EditPWD" 修改当前操作员密码Call EditPWD_Execute() 调用修改当前操作员密码模块Case "Edit" 修改预订信息Call Edit_Execute() 调用修改预订信息End SelectCall Main_Menu() 进入管理员调用主菜单Select Case action ‘选择调用情况Case "UbbHelp"Call UbbHelp()Case "Admin_Login" 管理员登录 Call Admin_Login() 调用管理员登录模块Case "Exit"如果选择退出管理员登录Call Exit_Admin() 调用了退出管理员登录Call View_Words() 调用浏览预订信息浏览模块Case ""Call View_Words() 调用浏览预订信息浏览模块Case "Add_New"如果是“添加预订信息” Call Add_New()调用“添加预订信息”Case "reply"如果是回复预订信息Call Reply() 调用回复预订信息模块Case "View_Words"如果是浏览预订信息Call View_Words()调用浏览预订信息模块Case "Delete"如果是删除预订信息Call Delete() 调用删除预订信息模块Call View_Words() 调用预订浏览信息模块Case "EditPWD" 如果是是修改密码Call EditPWD() 调用修改密码模块Case "Edit" 如果是编辑预订信息Call Edit() 调用编辑预订信息模块End SelectCall Copyrights()调用版权信息%> </td></tr></table><HR width="95%" color=#000000 noShade SIZE=1> <table width="760" height="43" border="0" align="center" cellpadding="0" cellspacing="0"><tr> <td align="center" bgcolor="#F0F0F0" height="22"> <font color="#000000"> 程序设计：康宾  大丰广播电视大学</font><p></p></td></tr><tr> <td background="images/top_01.gif" height="21"> </td></tr></table></td></tr></table><%'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''添加一条新预订信息%><% Sub Add_New() %><table width="760" border="0" cellspacing="1" cellpadding="4" align="center"><form name="new" method="post" action="ydgl.asp"><tr> <td align="center"> <font size="6" face="黑体" color="#000000">预订登记</font> </td></tr><tr> <td align="right"> <P align="left"><STRONG><FONT color=#ff0000>(</FONT><FONT color=#ff0000 size=2>填表时请注意：凡标有*的项目为订房必需内容)</FONT></STRONG></P> <P align="left"><FONT face=宋体>姓名</FONT><FONT face=宋体 size=2> <INPUT maxLength=256 size=15 name=姓名> </FONT><FONT face=宋体 color=#ff0000 size=2>* </FONT><FONT face=宋体 color=#ff0000><FONT color=#000000>公司</FONT> <INPUT maxLength=256 size=35 name=公司> </FONT></P> <P align="left"><FONT face=宋体>地址</FONT><FONT face=宋体 size=2> <INPUT maxLength=256 size=35 name=地址> </FONT></P> <P align="left"><FONT face=宋体>城市</FONT><FONT face=宋体 size=2> <INPUT maxLength=256 size=15 name=城市> </FONT><FONT face=宋体>省份</FONT><FONT face=宋体 size=2> <INPUT maxLength=256 size=15 name=省份> </FONT></P> <P align="left"><FONT face=宋体>国别</FONT><FONT face=宋体 size=2> <INPUT maxLength=256 size=15 name=国别> </FONT><FONT face=宋体>邮政编码 </FONT><FONT face=宋体 size=2><INPUT maxLength=256 size=15 name=邮编> </FONT></P> <P align="left"><FONT face=宋体>E-Mail 地址</FONT><FONT face=宋体 size=2> <INPUT maxLength=256 size=35 name=email> </FONT><FONT face=宋体 color=#ff0000 size=2>* </FONT></P> <P align="left"><FONT face=宋体>电话</FONT><FONT face=宋体 size=2> <INPUT maxLength=256 size=15 name=电话> <FONT color=#ff3366>*</FONT></FONT></P> <P align="left"><FONT face=宋体>传真 </FONT><FONT face=宋体 size=2><INPUT maxLength=256 size=15 name=传真> </FONT></P> <P align="left"><FONT face=宋体>入住日期 <INPUT maxLength=256 size=10 name=入住日期> <FONT color=#ff0000>* </FONT>离开日期 <INPUT maxLength=256 size=10 name=离开日期> </FONT><FONT face=宋体 color=#ff0000 size=2>* </FONT></P> <P align="left"><FONT face=宋体>入住夜数 <INPUT maxLength=256 size=2 name=入住夜数> <FONT color=#ff0000>* </FONT>房间数 <INPUT maxLength=256 size=2 name=房间数> <FONT color=#ff0000>* </FONT>入住成人数 <INPUT maxLength=256 size=2 name=入住成人数> </FONT><FONT face=宋体 color=#ff0000>* </FONT></P> <P align="left"><FONT face=宋体>客房类型 <SELECT size=1 name=房间类型> <OPTION selected>套房</OPTION> <OPTION>三人间</OPTION> <OPTION>豪华单人间</OPTION> <OPTION>标准间</OPTION> <OPTION>商务套房</OPTION></SELECT> 床位要求 <SELECT size=1 name=床位要求> <OPTION value=bed-plus-not selected>不加床</OPTION> <OPTION value=bed-plus>加床</OPTION></SELECT> 请您 <a target="_blank" href="fjjs.asp">查看客房</a> 或 <a href="http://price.asp" target="_blank">了解价格</a></FONT></P> <P align="left"><FONT face=宋体>支付方式 <SELECT size=1 name=支付方式> <OPTION value=RM selected>人民币</OPTION> <OPTION value=CK>支票</OPTION> <OPTION value=PC>牡丹卡</OPTION> <OPTION value=MT>万事达卡</OPTION> <OPTION value=JC>JCB</OPTION> <OPTION value=GW>长城金卡</OPTION> <OPTION value=GR>长城卡</OPTION> <OPTION value=DI>大来卡</OPTION> <OPTION value=AE>运通卡</OPTION> <OPTION value=BX>不限</OPTION></SELECT> </FONT><FONT face=宋体 color=#ff0000 size=2>* </FONT></P> <P align="left"> <P align="left">您若有其他特殊要求，请留言：(您的预订将在大酒店回复后生效) </P><FONT size=2> <P align="left"><FONT face=宋体><TEXTAREA name=特殊要求 rows=6 cols=65 type="textarea"></TEXTAREA> </FONT></P></FONT> <p> </td></tr><tr align="center"> <td> <input type="hidden" name="action_e" value="Add_New"> <input type="submit" name="Submit" value="" class="submit"> <input type="reset" name="Submit2" value="" class="reset"> </td></tr></form></table><br><% End Sub %><% ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''管理员回复预订信息%><% Sub Reply() %> <table width="499" border="0" cellspacing="1" cellpadding="4" align="center"><form name="reply" method="post" action="ydgl.asp"><tr><td colspan="2" align="center"><font color="#000000">回复预订信息</font></td></tr><tr><td align="right" valign="top">预订信息内容：</td><td><textarea name="reply" cols="50" rows="5" class="input1"></textarea></td></tr><tr align="center"><td colspan="2"><input type="hidden" name="action_e" value="reply"> <input type="hidden" name="id" value="<%=Request.QueryString("id")%>"><input type="submit" name="Submit3" value="提交" ID="Submit1" class="input1"> <input type="reset" name="Submit22" value="重写" class="input1"></td></tr></form></table><% End Sub %><%''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''%><% Sub Main_Menu() %><table width="760" border="0" cellspacing="0" cellpadding="0" align="center"><tr> <td align="center"> <br><a href="ydgl.asp?action=Add_New"> <img src="images/tjly.gif" alt="预订信息登记" width="60" height="25" class="bian"></a> <a href="ydgl.asp?action=View_Words"><img src="images/ckly.gif" alt="查看预订信息" width="60" height="25" class="bian"></a><% If Session("Admin")="Login" Then %> <a href="ydgl.asp?action=Exit"><img src="images/tcgl.gif" alt="退出管理" width="60" height="25" class="bian"></a><% Else %> <a href="ydgl.asp?action=Admin_Login"><img src="images/glly.gif" alt="管理预订信息" width="60" height="25" class="bian"></a><% End If %>   <% If Session("Admin")="Login" Then %> <a href="ydgl.asp?action=EditPWD"><img src="images/xgmm.gif" alt="修改密码" width="60" height="25" class="bian"></a> <% End If %> </td> </tr></table><br><% End Sub ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''查看预订信息Sub View_Words() Set Rs = Server.CreateObject("ADODB.RecordSet")Sql="Select * From words Order By 日期 Desc"Rs.Open Sql,Conn,1,1if rs.recordcount=0 thenResponse.Write"没有预订信息！"Response.Endend ifTotalRecord=Rs.RecordCountRs.PageSize =10 '每页显示预订的数目PageSize = Rs.PageSizePageCount=Rs.PageCountIf page="" Then Rs.AbsolutePage = 1ElseRs.AbsolutePage = pageEnd If%><table width="499" border="0" cellspacing="1" cellpadding="4" align="center"><tr> </tr></table><table width="499" border="0" cellspacing="0" cellpadding="0" align="center"><tr><td><p align="center"><img src="IMAGES/line.gif" width="470" height="1"></td></p></tr></table><br><%do while i < PageSize And not rs.eof %><table width="760" border="0" cellspacing="1" cellpadding="4" align="center" style="table-layout:fixed;word-break:break-all"><tr> <td align="right" rowspan="7" height="26" valign="top" width="9"> <font color="#000000"> </font> <br> </td><td width="75" align="right"><span class="style5">姓名：</span> </td><td width="230"><%=Rs("姓名")%></td><td width="50" align="right"> </td><td valign="top" width="89"> </td></tr><tr> <%If Rs("公司")<>"" Then%><td align="right" width="75"> <span class="style5">主页地址： </span> </td><td colspan="3"><b><font color="#FF3300"><a href="<%=Rs("公司")%>" target="_blank"><%=Rs("公司")%></a></font></b></td><%End If%></tr><tr> <td width="75" align="right" valign="top"><strong><b>E-Mail：</b></strong></td><td width="230"><%=Rs("地址")%></td><td align="right" width="50"><b>日期：</b></td><td width="89" align="left"><font color="#000000"> </font><%=Left(Rs("日期"),9)%></td></tr><tr> <td valign="top" width="75" align="right"> <b>留言内容：</b></td><td colspan="3"><%=Rs("请您留言")%></td></tr><tr> <%If Rs("回复")<>"" Then%><td align="right" valign="top" width="75"><b><span class="style4">回复：</span></b> </td><td colspan="3"><font color="#FF6600"><%=Ubb(unHtml(Rs("回复")))%></font></td><%End If%></tr><tr> <td align="right" valign="top"> </td><td colspan="3"> <% If Session("Admin") = "Login" Then %><a href="ydgl.asp?action=Delete&id=<%=Rs("id")%>">【删除】</a> <a href="ydgl.asp?action=reply&id=<%=Rs("id")%>">【回复】</a> <a href="ydgl.asp?action=Edit&id=<%=Rs("id")%>">【编辑】</a> <% End If %> </td></tr></table><table width="760" border="0" cellspacing="0" cellpadding="0" align="center"><tr><td height="16" background="images/line.gif"></td></tr></table><%rs.movenexti=i+1loopRs.CloseSet Rs = Nothing%><table width="760" border="0" cellspacing="1" cellpadding="4" align="center"><tr> <td align="right" height="20">共有<%=TotalRecord%>条预订信息分页 <%For m = 1 To PageCount%>[<a href="ydgl.asp?page=<%=m%>"><%=m%></a>] <%Next%></td><td align="right"> </td></tr></table><% End Sub %><%''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''管理员登陆接口%><% Sub Admin_Login() %><br><table width="760" border="0" cellspacing="1" cellpadding="4" align="center"><form name="reply" method="post" action="ydgl.asp"><tr> <td colspan="2" align="center">管理登录</td></tr><tr><td align="right" valign="top" width="105">用户名：</td><td width="226"><input type="text" name="username" class="input1"></td></tr><tr><td align="right" valign="top" width="105">密码：</td><td width="226"><input type="password" name="password" class="input1"> <input type="hidden" name="action_e" value="admin"></td></tr><tr align="center"><td colspan="2"><input type="submit" name="Submit32" value="" class="b"></td></tr></form></table><br><% End Sub%><% ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''%><% Sub Copyrights()%><% End Sub%><%Sub UbbHelp()%> <div align="left"><table width="499" border="0" cellspacing="1" cellpadding="4" align="center"><tr> <td height="20" colspan="4" align="center"> </td></tr><tr> <td width="17"><div align="right"></div></td><td width="74"> </td><td width="308"> </td><td width="63"> </td></tr><tr> <td width="17" height="20"><div align="right"></div></td><td width="74" height="20"> </td><td width="308" height="20"> </td><td width="63" height="20"> </td></tr><tr> <td width="17"><div align="right"></div></td><td width="74"> </td><td width="308"> </td><td width="63"> </td></tr><tr> <td width="17" height="20"><div align="right"></div></td><td width="74" height="20"> </td><td width="308" height="20"> </td><td width="63" height="20"> </td></tr><tr> <td width="17"><div align="right"></div></td><td width="74"> </td><td width="308"> </td><td width="63"> </td></tr><tr> <td width="17"><div align="right"></div></td><td width="74"> </td><td width="308"> </td><td width="63"> </td></tr><tr> <td width="17"><div align="right"></div></td><td width="74"> </td><td width="308"> </td><td width="63"> </td></tr></table><%End Sub%></div><%Sub EditPWD()%><table width="499" border="0" cellspacing="1" cellpadding="4" align="center"><form name="editpwd" method="post" action="ydgl.asp"><tr> <td colspan="2" align="center"> <b>修改密码</b></td></tr><tr> <td align="right" valign="middle" width="105" height="38">旧用户名：</td><td width="226" height="38" align="left"> <input type="text" name="oldusername" class="input1"></td></tr><tr> <td align="right" valign="middle" width="105" height="38">新用户名：</td><td width="226" height="38" align="left"> <input type="text" name="username" class="input1"></td></tr><tr> <td align="right" valign="middle" width="105" height="38">确认新用户名：</td><td width="226" height="38" align="left"> <input type="text" name="username_c" class="input1"></td></tr><tr> <td align="right" valign="middle" width="105" height="38"> 旧密码： </td><td width="226" height="38" align="left"> <input type="password" name="oldpwd" class="input1"></td></tr><tr><td align="right" valign="middle" width="105">新密码： </td><td width="226" align="left"><input type="password" name="newpwd" class="input1"></td></tr><tr> <td align="right" valign="middle" width="105" height="38">确认新密码：</td><td width="226" align="left" height="38"> <input type="password" name="newpwd_c" class="input1"><input type="hidden" name="action_e" value="EditPWD"></td></tr><tr align="center"> <td colspan="2"> <input type="submit" name="EditPWD" value="修改密码" class="input1"></td></tr></form></table><%End Sub%><% Sub Edit() %><%Set Rs = Server.CreateObject("ADODB.RecordSet")Sql="Select * From words Where 编号="&Request.QueryString("id")Rs.Open Sql,Conn,1,1%><table width="499" border="0" cellspacing="1" cellpadding="4" align="center"><form name="reply" method="post" action="ydgl.asp"><tr> <td colspan="2" align="center"> 编辑预订信息</td></tr><tr> <td align="right" valign="top"> 来客预订内容： </td><td> <textarea name="words" cols="50" rows="5" class="input1"><%=Rs("words")%></textarea></td></tr><tr align="center"> <td align="right">回复：</td><td align="left"><textarea name="reply" cols="50" rows="5" class="input1"><%=Rs("回复")%></textarea></td></tr><tr align="center"> <td colspan="2"> <input type="hidden" name="action_e" value="Edit"><input type="hidden" name="id" value="<%=Request.QueryString("id")%>"><input type="submit" name="Submit" value="修改预订信息" id="Submit" class="input1"><a href="ydgl.asp?action=View_Words">返回</a></td></tr></form></table><% End Sub %></body></html><%''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''添加新预订信息到数据库Sub Add_New_Execute()If Request.Form("姓名")="" ThenResponse.Write "<br>错误类型： 姓名不能为空"Response.Write "<br>"Response.Write "<a href=""ydgl.asp?action=Add_New""><br>返回</a><br><br><table width=100% border=0 cellspacing=0 cellpadding=0><tr><td><img src=images/bottom.gif width=530 height=27 border=0></td> </tr></table>"Response.EndEnd IfIf Len(Request.Form("姓名"))>20 ThenResponse.Write "<br>错误类型： 姓名不能太长"Response.Write "<br>"Response.Write "<a href=""ydgl.asp?action=Add_New""><br>返回</a><br><br><table width=100% border=0 cellspacing=0 cellpadding=0><tr><td><img src=images/bottom.gif width=530 height=27 border=0></td> </tr></table>"Response.EndEnd IfSet Rs = Server.CreateObject("ADODB.RecordSet")Sql="Select * From words"Rs.Open Sql,Conn,2,3Rs.AddNewRs("姓名")=Server.HTMLEncode(Request.Form("姓名"))Rs("公司")=Server.HTMLEncode(Request.Form("公司"))Rs("地址")=Server.HTMLEncode(Request.Form("地址"))Rs("城市")=Server.HTMLEncode(Request.Form("城市"))Rs("省份")=Server.HTMLEncode(Request.Form("省份"))Rs("国别")=Server.HTMLEncode(Request.Form("国别"))Rs("邮政编码")=Server.HTMLEncode(Request.Form("邮编"))Rs("E-mail")=Server.HTMLEncode(Request.Form("email"))Rs("电话")=Server.HTMLEncode(Request.Form("电话"))Rs("传真")=Server.HTMLEncode(Request.Form("传真"))Rs("入住日期")=Server.HTMLEncode(Request.Form("入住日期"))Rs("离开日期")=Server.HTMLEncode(Request.Form("离开日期"))Rs("入住夜数")=Server.HTMLEncode(Request.Form("入住夜数"))Rs("房间数")=Server.HTMLEncode(Request.Form("房间数"))Rs("入住成人数")=Server.HTMLEncode(Request.Form("入住成人数"))Rs("客房类型")=Server.HTMLEncode(Request.Form("房间类型"))Rs("床位要求")=Server.HTMLEncode(Request.Form("床位要求"))Rs("支付方式")=Server.HTMLEncode(Request.Form("支付方式"))Rs("请您留言")=Server.HTMLEncode(Request.Form("特殊要求"))rs("日期")=dateRs.UpdateRs.CloseSet Rs = NothingEnd Sub'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''验证管理员登陆Sub Admin_Login_Execute()username = Server.HTMLEncode(Request.Form("username"))password = Server.HTMLEncode(Request.Form("password"))If username = "" OR password = "" ThenResponse.Write "<br>错误类型： 用户名或者密码为空"Response.Write "<br>"Response.Write "<a href=""ydgl.asp?action=Admin_Login""><br>返回</a><br><br><table width=100% border=0 cellspacing=0 cellpadding=0><tr><td><img src=images/bottom.gif width=530 height=27 border=0></td> </tr></table>"Response.EndEnd IfSet Rs = Server.CreateObject("ADODB.RecordSet")Sql="Select * From admin"Rs.Open Sql,Conn,1,1If username = Rs("username") AND password = Rs("password") ThenSession("Admin") = "Login"ElseResponse.Write "<br>错误类型： 用户名或者密码不对，登陆失败"Response.Write "<br>"Response.Write "<a href=""ydgl.asp?action=Admin_Login""><br>返回</a><br><br><table width=100% border=0 cellspacing=0 cellpadding=0><tr><td><img src=images/bottom.gif width=530 height=27 border=0></td> </tr></table>"Response.EndEnd IfRs.CloseSet Rs = NothingEnd SubSub EditPWD_Execute()oldusername=Server.HTMLEncode(Request.Form("oldusername")) ‘从客户端返回旧用户名username = Server.HTMLEncode(Request.Form("username")) ‘从客户端返回新用户名username_c = Server.HTMLEncode(Request.Form("username_c")) ‘从客户端再次返回新用户名oldpwd = Server.HTMLEncode(Request.Form("oldpwd")) ‘从客户端返回旧密码newpwd = Server.HTMLEncode(Request.Form("newpwd")) ‘从客户端返回新密码newpwd_c = Server.HTMLEncode(Request.Form("newpwd_c")) ‘从客户端再次新密码If username = "" OR username_c="" Then 如果新用户名或旧用户名为空的话则：Response.Write "新旧用户名均不能为空" 提示出错信息Response.End ‘退出过程End IfIf oldpwd = "" OR newpwd = "" OR newpwd_c="" Then 如果新旧密码为空的话则Response.Write "新旧密码均不能为空" 则提示出错信息Response.End 退出过程End IfIf username<>username_c Then 如果两次新用户名输入不相同的话则Response.Write "新填写的两个新用户名不一致，请重新填写" 提示出错信息Response.End 退出过程End IfIf newpwd<>newpwd_c Then 如果两次新密码输入不同话则Response.Write "新填写的两个密码不一致，请重新填写" 提示出错信息Response.End 退出过程End IfSet Rs = Server.CreateObject("ADODB.RecordSet") 生成一个ADODB对象Sql="Select * From admin" 从ADMIN表中查询所有的记录Rs.Open Sql,Conn,2,3If Rs("password")=oldpwd And Rs("username")=oldusername Then如果旧用户名或旧密码与输入的用户名和密码相同的话，表示验证成功，则修改数据Rs("username")=username 把新用户名给USERNAME字段Rs("password")=newpwd 把新密码比给PASSWORD字段Rs.Update 保存信息 Else 否则的话则显示错误信息Response.Write "你的旧密码填写不对或者旧用户名不对，修改不成功" ‘显示错误信息Response.End 退出过程End IfRs.Close ‘关闭数据库连接Set Rs = Nothing ‘释放内存End Sub ‘结束过程Sub Exit_Admin()Session.AbandonEnd Sub''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''删除数据Sub Delete()'删除数据Conn.Execute("Delete * From words Where id="&Request.QueryString("id"))End Sub'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''回复信息添加到数据库Sub Reply_Execute()Set Rs = Server.CreateObject("ADODB.RecordSet") 创建一个ADODB对象Sql="Select reply From words Where id="&Request.Form("id") 从预订信息中查询回复信息Rs.Open Sql,Conn,2,3Rs("回复") = Server.HTMLEncode(Request.Form("reply")) 将查询信息复值给“回复”字段Rs.Update 保存信息Rs.Close 关闭RS对象Set Rs=Nothing释放内存End Sub结束过程Sub Edit_Execute() 修改预订回复Set Rs = Server.CreateObject("ADODB.RecordSet")Sql="Select * From words Where 编号="&Request.Form("id")Rs.Open Sql,Conn,2,3Rs("请您留言") = Server.HTMLEncode(Request.Form("特殊要求"))Rs("回复") = Server.HTMLEncode(Request.Form("reply"))Rs.UpdateRs.CloseSet Rs=NothingEnd SubConn.CloseSet Conn = Nothing%><%function unHtml(content)unHtml=contentif content <> "" thenunHtml=replace(unHtml,"&","&")unHtml=replace(unHtml,"<","<")unHtml=replace(unHtml,">",">")unHtml=replace(unHtml,chr(34),""")unHtml=replace(unHtml,chr(13),"<br>")unHtml=replace(unHtml,chr(32)," ")'unHtml=ubb(unHtml)end ifend functionfunction Convert(ubb,CovT)cText=ubbstartubb=1do while Covt="url" or Covt="color" or Covt="font" or Covt="size"startubb=instr(startubb,cText,"["&CovT&"=",1)if startubb=0 then exit doendubb=instr(startubb,cText,"]",1)if endubb=0 then exit doLcovt=Covtstartubb=startubb+len(lCovT)+2text=mid(cText,startubb,endubb-startubb)codetext=replace(text,"[","["&chr(176),1,-1,1)codetext=replace(codetext,"]",chr(176)&"]",1,-1,1)'codetext=replace(codetext,"{:em","{;em",1,-1,1)codetext=replace(codetext,"/","/"&chr(176),1,-1,1)select case CovTcase "color"cText=replace(cText,"[color="&text&"]","<font color='"&text&"'>",1,1,1)cText=replace(cText,"[/color]","</font>",1,1,1)case "font"cText=replace(cText,"[font="&text&"]","<font face='"&text&"'>",1,1,1)cText=replace(cText,"[/font]","</font>",1,1,1)case "size"if IsNumeric(text) thenif text>6 then text=6if text<1 then text=1cText=replace(cText,"[size="&text&"]","<font size='"&text&"'>",1,1,1)cText=replace(cText,"[/size]","</font>",1,1,1)end ifcase "url"cText=replace(cText,"[url="&text&"]","<a href='"&codetext&"' target=_blank>",1,1,1)cText=replace(cText,"[/url]","</a>",1,1,1)case "email"cText=replace(cText,"["&CovT&"="&text&"]","<a href=mailto:"&text&">",1,1,1)cText=replace(cText,"[/"&CovT&"]","</a>",1,1,1)end selectloopstartubb=1dostartubb=instr(startubb,cText,"["&CovT&"]",1)if startubb=0 then exit doendubb=instr(startubb,cText,"[/"&CovT&"]",1)if endubb=0 then exit doLcovt=Covtstartubb=startubb+len(lCovT)+2text=mid(cText,startubb,endubb-startubb)codetext=replace(text,"[","["&chr(176),1,-1,1)codetext=replace(codetext,"]",chr(176)&"]",1,-1,1)'codetext=replace(codetext,"{:em","{;em",1,-1,1)codetext=replace(codetext,"/","/"&chr(176),1,-1,1)select case CovTcase "url"cText=replace(cText,"["&CovT&"]"&text,"<a href='"&codetext&"' target=_blank>"&codetext,1,1,1)cText=replace(cText,"<a href='"&codetext&"' target=_blank>"&codetext&"[/"&CovT&"]","<a href="&codetext&" target=_blank>"&codetext&"</a>",1,1,1)case "email"cText=replace(cText,"["&CovT&"]","<a href=mailto:"&text&">",1,1,1)cText=replace(cText,"[/"&CovT&"]","</a>",1,1,1)case "html"codetext=replace(codetext,"<br>",chr(13),1,-1,1)codetext=replace(codetext," ",chr(32),1,-1,1)Randomizerid="temp"&Int(100000 * Rnd)cText=replace(cText,"[html]"&text,"代码片断如下：<TEXTAREA id="&rid&" rows=15 style='width:100%' class='bk'>"&codetext,1,1,1)cText=replace(cText,"代码片断如下：<TEXTAREA id="&rid&" rows=15 style='width:100%' class='bk'>"&codetext&"[/html]","代码片断如下：<TEXTAREA id="&rid&" rows=15 style='width:100%' class='bk'>"&codetext&"</TEXTAREA><INPUT οnclick=runEx('"&rid&"') type=button value=运行此段代码 name=Button1 class='Tips_bo'> <INPUT οnclick=JM_cc('"&rid&"') type=button value=复制到我的剪贴板 name=Button2 class='Tips_bo'>",1,1,1)case "img"cText=replace(cText,"[img]"&text,"<a href="&chr(34)&"about:<img src="&codetext&" border=0>"&chr(34)&" target=_blank><img src="&codetext,1,1,1)cText=replace(cText,"[/img]"," vspace=2 hspace=2 border=0 alt=::点击图片在新窗口中打开::></a>",1,1,1)case "code"cText=replace(cText,"[code]"&text,"以下内容为程序代码<hr noshade>"&codetext,1,1,1)cText=replace(cText,"以下内容为程序代码<hr noshade>"&codetext&"[/code]","以下内容为程序代码<hr noshade>"&codetext&"<hr noshade>",1,1,1)case "quote"atext=replace(text,"[img]","",1,-1,1)atext=replace(atext,"[/img]","",1,-1,1)atext=replace(atext,"[swf]","",1,-1,1)atext=replace(atext,"[/swf]","",1,-1,1)atext=replace(atext,"[html]","",1,-1,1)atext=replace(atext,"[/html]","",1,-1,1)'atext=replace(atext,"{:em","{;em",1,-1,1)atext=SplitWords(atext,350)atext=replace(atext,chr(32)," ",1,-1,1)cText=replace(cText,"[quote]"&text,"<blockquote><hr noshade>"&atext,1,1,1)cText=replace(cText,"<blockquote><hr noshade>"&atext&"[/quote]","<blockquote><hr noshade>"&atext&"<hr noshade></blockquote>",1,1,1)end selectloopConvert=cTextend functionfunction AutoURL(ubb)cText=ubbstartubb=1dostartubb=1endubb_a=0endubb_b=0endubb=0startubb=instr(startubb,cText,"http://",1)if startubb=0 then exit doendubb_b=instr(startubb,cText,"<",1)endubb_a=instr(startubb,cText," ",1)endubb=endubb_aif endubb=0 thenendubb=endubb_bend ifif endubb_b<endubb and endubb_b>0 thenendubb=endubb_bend ifif endubb=0 thenlenc=ctextendubb=len(lenc)+1end if'response.write startubb&","&endubbif startubb>endubb then exit dotext=mid(cText,startubb,endubb-startubb)'response.write text'codetext=replace(text,"/","/"&chr(176),1,-1,1)codetext=text'response.write text&","urllink="<a href='"&codetext&"' target=_blank>"&codetext&"</a> "'response.write urllinkurllink=replace(urllink,"/","/"&chr(176),1,-1,1)cText=replace(cText,text,urllink,1,1,1)loopAutoURL=cTextend function%>

第五章性能的测试与分析

5.1 测试实例的研究与选择

使用ASP开发基于WEB数据库应用程序，首先需要建立一个使ASP及WEB数据库运行的平台。

省略

第六章结束语

一个完整的B/S模式的客房预订系统就到此结束了，通过了本系统的系统设计，包括功能模块设计、数据库结构设计等，系统设计为整个程序构建了框架，各个功能模块实现各个细节部分。

通过对本系统的设计与制作，让我学会开发一整套开发软件系统的方法。使得我对电子商务这一个概念有一个全新的认识。可以说和书本上的电子商务有一个很大的区别，也可以这样说，是对书本上学到的知识的一种升华。

首先要感谢大酒店给我一个实习锻炼的机会，给我一次施展才华的舞台。在此还要感谢我的指导老师，在我制作本论文的过程，给了我很多帮助与鼓励、技术上的指导，有他的大力的帮助，才使得本论文顺利的完成。同时也让我学会走上工作岗位做事要踏实、勤学好问的精神。

参考文献：

1．信息管理应用系统的开发人民邮电出版社李祥胜编著

2. ASP网络编程技术与实例人民邮电出版社胡标编著

3. Dreavewaver MX网站设计详解上海大学出版社张之明编著