asp酒店房间预约系统设计_毕业论文范文网-论文范文

搜索高级搜索

原创毕业论文

asp酒店房间预约系统设计(二)

作者: 浏览:1026次

免费专业论文
政治工作论文
计算机论文
营销专业论文
工程管理论文范文
医药医学论文范文
法律论文范文
生物专业论文
物理教学论文范文
人力资源论文范文
化学教学论文范文
电子专业论文范文
历史专业论文
电气工程论文
社会学专业论文
英语专业论文
行政管理论文范文
语文专业论文
电子商务论文范文
焊工钳工技师论文
社科文学论文
教育论文范文
数学论文范文
物流论文范文
建筑专业论文
食品专业论文
财务管理论文范文
工商管理论文范文
会计专业论文范文
专业论文格式
化工材料专业论文
英语教学专业论文
电子通信论文范文
旅游管理论文范文
环境科学专业论文
经济论文
人力资源论文范文
营销专业论文范文
财务管理论文范文
物流论文范文
财务会计论文范文
数学教育论文范文
数学与应用数学论文
电子商务论文范文
法律专业论文范文
工商管理论文范文
汉语言文学论文
计算机专业论文
教育管理论文范文
现代教育技术论文
小学教育论文范文
机械模具专业论文
报告,总结,申请书
心理学论文范文
学前教育论文范文

收费计算机专业论文范文

收费计算机专业论文
Delphi
ASP
VB
JSP
ASP.NET
VB.NET
java
VC
pb
VS
dreamweaver
c#.net
vf
VC++
计算机论文

毕业论文范文题目：asp酒店房间预约系统设计(二)，论文范文关键词：asp酒店房间预约系统设计(二)
asp酒店房间预约系统设计(二)毕业论文范文介绍开始：
>
            <tr class="text">
              <td><div align="left"><%= rs_room("room_id") %></div></td>
              <td><div align="left"><%= rs_room("name") %></div></td>
              <td><div align="left"><%= rs_room("type") %></div></td>
              <td><div align="left"><%= rs_room("cost") %></div></td>
              <td>
     <div align="left">
       [<a href="<%= delurl %>">删除</a>]
     [<a href="<%= editurl %>">修改</a>]
    </div>
   </td>
            </tr>
   <%
    rs_room.movenext
    wend
   %>
删除房间
当酒店因为某种原因不能提供预约时，管理员可以将该房间从数据库中删除，删除功能的实现是文件del.asp来实现的，程序清单14是实现删除功能的代码。

图15删除房间成功页面
程序清单14 删除房间实现代码
<%
dim room_id,sql,rs_del
room_id=request("room_id")
if room_id="" then response.Redirect("error.asp")
set rs_del=server.CreateObject("adodb.recordset")
sql = "delete from room where room_id=" & room_id
rs_del.open sql,hotel_conn,3,2
%>
当管理员成功删除指定房间后会显示删除成功界面，如图15所示。
修改房间信息
修改房间信息的功能是修改存在于数据库中的房间信息，包括房间名称、房间类型和费用，但是不能修改房间ID。
修改房间信息功能有admin_edit.asp和admin_editchk.asp两个文件来完成。第一个文件用来接受管理员填写的更新信息，第二个用来检查数据并写入数据库中。图16所示是填写房间信息表单的页面。

图16 修改房间信息
程序清单15 修改房间信息核心代码admin_editchk.asp
<%
   dim err(4)
   dim room_id,room_name,room_type,cost,haveerr,rs_edit,sql
   room_id=request.Form("room_id")
   room_name=request.Form("name")
   room_type=request.Form("type")
   cost=request.Form("cost")
   if len(room_name) > 30 then err(1)="房间名称不能超过30个字符"
   if len(room_name) < 2 then err(1)="房间名称不能少于2个字符"
   if not IsNumeric(cost) then err(2)="费用必须是数字"
   if room_type="" then err(3)="房间类型不能位为空"
   if len(cost) >4 then err(4)="费用不能多于4位数"
   for i=1 to 4
    if err(i)<>"" then haveerr=1
   next
    If haveerr = 0 Then
    set rs_edit=server.CreateObject("adodb.recordset")
    sql = "select * from room where room_id=" & room_id
    rs_edit.open sql,hotel_conn,3,2
    rs_edit("name")=room_name
    rs_edit("type")=room_type
    rs_edit("cost")=cost
    rs_edit.update
    %>
4.添加房间模块
该功能模块的实现是由文件admin_addnew.asp完成的。添加房间的页面如图17所示。其实实现代码比较简单就不再详细论述。

当管理员正确提交了要添加新房间的信息后就会出现如图18所示的成功提示，该功能是由文件admin_addnewchk.asp完成的，其实现代码见程序清单16

图17 添加新房间
程序清单16 添加房间页面关键代码admin_addnewchk.asp
<%
   dim err(3)
   dim haveerr,room_name,room_type,cost,i
   dim rs_add,sql
   room_name=request.Form("name")
   room_type=request.Form("type")
   cost=request.Form("cost")
   if len(room_name) > 30 then err(1)="房间名称不能超过30个字符"
   if len(room_name) < 2 then err(1)="房间名称不能少于2个字符"
   if not IsNumeric(cost) then err(2)="费用必须是数字"
   if len(cost) >4 then err(3)="费用不能多于4位数"
      for i=1 to 3
    if err(i)<>"" then haveerr=1
   next
    If haveerr=0 Then
        set rs_add=server.CreateObject("adodb.recordset")
    sql = "select * from room"
    rs_add.open sql,hotel_conn,3,2
    rs_add.addnew
    rs_add("name")=room_name
    rs_add("room_id")=room_name
    rs_add("type")=room_type
    rs_add("cost")=cost
    rs_add.update
    %>
<%
     for i=1 to 3
     if err(i) <> "" then response.Write("●" & err(i) & "<br>")
     next
     %>
<% End If %>
<%
set rs_add=nothing
%>
5.预约管理模块
预约管理模块包括确认预约和删除预约两部分，确认预约是指在用户已经对指定的预约付款后，管理员在预约数据库中将对应的预约信息修改为为已付款操作；删除预约用于在数据库预约表中出现错误预约或恶意预约后，由管理员强制将其删除。
确认预约页面
酒店房间预约系统规定，用户不能取消已经付款的预约，因为这些预约已经被认为是有效预约。同样，管理员不能删除已经付款的预约。预约列表界面是确认预约页面的一部分，它将为管理员显示所有为付款的预约，并提供“确认预约”和“删除”超链接。
图19所示是显示预约列表页面，图20所示是预约确认成功提示信息页面，它们的实现都由文件admin_chk.asp完成，它们的实现代码见程序清单17

图19 预约列表

图20 预约确认
程序清单17 确认预约功能核心代码admin_chk.asp
<%
    dim preengage_id,rs_preengage,sql,rs_room,datetime
    preengage_id=request("preengage_id")
    set rs_preengage=server.CreateObject("adodb.recordset")
     If preengage_id="" Then
     sql = "select * from preengage where paid = 0"
     rs_preengage.open sql,hotel_conn,3,2
     rs_preengage.movefirst
     %>
     <br>
           <table width="584" border="0" class="table_small">
             <tr>
               <td colspan="6"> </td>
             </tr>
             <tr>
               <td colspan="6" class="text_title"><div align="left">预约确认</div></td>
             </tr>
             <tr>
               <td colspan="6" class="table_title"> </td>
             </tr>
             <tr class="text">
               <td width="86"><div align="left">预约用户</div></td>
               <td width="125" class="text"><div align="left">房间名称</div></td>
               <td width="89"><div align="left">预约日期</div></td>
               <td width="89"><div align="left">预约时间</div></td>
               <td width="61"><div align="left">费用</div></td>
               <td width="104"><div align="left">操作</div></td>
             </tr>
    <%
     while (not rs_preengage.eof)
    %>
             <tr class="text">
               <td><div align="left"><%= rs_preengage("user_name") %></div></td>
               <td class="text">
        <div align="left">
          <%
     set rs_room=server.CreateObject("adodb.recordset")
     sql = "select * from room where room_id=" & rs_preengage("room_id")
     rs_room.open sql,hotel_conn,3,2
     response.Write(rs_room("name"))
     rs_room.close
      %>
          </div></td>
               <td><div align="left"><%= rs_preengage("pyear") & "-" & rs_preengage("pmonth") & "-" & rs_preengage("pday") %></div></td>
               <td><div align="left"><%= rs_preengage("beginhour") & ":00-" & (rs_preengage("beginhour")+1) & ":00" %></div></td>
               <td><div align="left"><%= rs_preengage("cost") %></div></td>
               <td><div align="left">[<a href="admin_chk.asp?preengage_id=<%= rs_preengage("preengage_id") %>">确认预约</a>][<a href="chkcancel.asp?preengage_id=<%= rs_preengage("preengage_id") %>">删除</a>]</div></td>
             </tr>
    <%
     rs_preengage.movenext
     wend
    %>
             <tr>
               <td colspan="6"> </td>
             </tr>
             <tr>
               <td colspan="6"> </td>
             </tr>
           </table>
           <%
     Else
     '已提交preengage_id数据，开始更新预约表preengage的paid字段---------
     sql = "select * from preengage where preengage_id=" & preengage_id
     rs_preengage.open sql,hotel_conn,3,2
     rs_preengage("paid")=1
     rs_preengage.update
     datetime= rs_preengage("pyear") & "-" & rs_preengage("pmonth") & "-" & rs_preengage("pday")
     datetime=datetime & " " & rs_preengage("beginhour") & ":00-" & (rs_preengage("beginhour")+1) & ":00"
     %>
     <br>
           <table width="488" border="0" class="table_small">
             <tr>
               <td> </td>
             </tr>
             <tr>
               <td class="text_title"><div align="left">预约确认成功</div></td>
             </tr>
             <tr>
               <td class="table_title"> </td>
             </tr>
             <tr>
               <td class="text"><div align="left">成功确认ID为<%= rs_preengage("preengage_id") %>的预约，它是在<%= datetime %>的预约，费用为<%= rs_preengage("cost") %>元</div></td>
             </tr>
             <tr>
               <td> </td>
             </tr>
           </table>
           <% End If %>
删除预约页面
图21所示是删除页面成功的提示信息。该功能的实现是由文件chkcancel.asp完成的，在用户面取消预约模块中还会看到该文件的出现，它们的实现都是由该文件完成的。详细代码见程序清单18

程序清单18 删除和取消预约功能的实现chkcancel.asp
<%
dim preengage_id,rs_cancel,rs_del,delok
preengage_id=request("preengage_id")
if preengage_id="" then
response.Redirect("error.asp")
response.End()
end if
if session("user_name")="" and session("admin_name")="" then
response.Redirect("error.asp")
response.End()
end if
set rs_cancel=server.CreateObject("adodb.recordset")
sql = "select * from preengage where preengage_id=" & preengage_id
if session("user_name") <> "" then
sql = sql & "and user_name = '" & session("user_name") &"'"
end if
rs_cancel.open sql,hotel_conn,3,2
if rs_cancel.eof or rs_cancel.bof then
response.Redirect("error.asp")
response.End()
end if
if datediff("h",now,rs_cancel("pyear") & "-" & rs_cancel("pmonth") & "-" & rs_cancel("pday") & " " & rs_cancel("beginhour") & ":00:00") > 24 then
rs_cancel.close
set rs_del=server.CreateObject("adodb.recordset")
sql = "delete from preengage where preengage_id=" & preengage_id
rs_del.open sql,hotel_conn,3,2
delok=1
else
delok=0
end if
%>
6.统计模块
统计模块的功能分为用户统计和预约统计两部分，主要是方便管理员对该酒店运行合理管理。这些功能的实现都是由文件admin_total.asp完成的，请参考程序清单19
程序清单19 统计功能实现核心代码admin_total.asp
<%
set rs_preengage=server.CreateObject("adodb.recordset")
sql = "select count(*) as total from preengage "
rs_preengage.open sql,hotel_conn,3,2
preengage_total=rs_preengage("total")
rs_preengage.close
sql = "select count(*) as total from preengage where paid =1 "
rs_preengage.open sql,hotel_conn,3,2
preengage_paid=rs_preengage("total")
rs_preengage.close
preengage_notpaid = preengage_total - preengage_paid
sql = "select sum(cost) as total from preengage where paid =1"
rs_preengage.open sql,hotel_conn,3,2
money = rs_preengage("total")
rs_preengage.close
sql = "select sum(cost) as total from preengage where paid =0"
rs_preengage.open sql,hotel_conn,3,2
notmoney =rs_preengage("total")
rs_preengage.close
Set rs_user = Server.CreateObject("ADODB.Recordset")
sql = "select count(*) as male from user_reg where sex = '男'"
rs_user.Open sql,hotel_conn,3,2
rs_user_male = rs_user("male")
rs_user.close
sql = "select count(*) as female from user_reg where sex = '女'"
rs_user.Open sql,hotel_conn,3,2
rs_user_female = rs_user("female")
rs_user.close
rs_user_total = rs_user_male + rs_user_female
%>
用户统计实现了统计用户总数和计算男女用户比例的功能，其界面如图22所示。预约统计实现了对预约总数、已付款预约数、实际收入和未付清预约款的统计功能，如图23所示。

图5-22 预约统计

图23 用户统计
第七章、.用户功能模块
用户功能模块主要包括用户登录、用户注册、发表留言、浏览房间信息、查看房间信息、预约房间、取消预约等功能。
1.首页设计
图24所示用户进入网站看到的界面，包括了简单的房间统计，及用户登录系统等功能。

图24 网站首页
程序清单20所示是首页实现的核心代码，即文件index.asp
<%
dim rs_user,room
dim rs_user_total,room_total
Set rs_user = Server.CreateObject("ADODB.Recordset")
sql = "SELECT user_name FROM user_reg"
rs_user.Open sql,hotel_conn,3,2
Set room = Server.CreateObject("ADODB.Recordset")
sql = "SELECT room_id FROM room"
room.Open sql,hotel_conn,3,2
If (rs_user.RecordCount = -1) Then
rs_user_total=0
rs_user.movefirst
While (Not rs_user.EOF)
  rs_user_total = rs_user_total + 1
  rs_user.MoveNext
Wend
else
rs_user_total = rs_user.RecordCount
End If
If (room.RecordCount = -1) Then
room_total=0
room.movefirst
While (Not room.EOF)
  room_total = room_total + 1
  room.MoveNext
Wend
else
room_total = room.RecordCount
End If
%>
<%
If (room_total = -1) Then
room_total=0
While (Not room.EOF)
    room_total = room_total + 1
    room.MoveNext
Wend
If (room.CursorType > 0) Then
    room.MoveFirst
Else
    room.Requery
End If
If (room_numRows < 0 Or room_numRows > room_total) Then
    room_numRows = room_total
End If
room_first = 1
room_last = room_first + room_numRows - 1

If (room_first > room_total) Then
    roomd_first = room_total
End If
If (room_last > room_total) Then
    room_last = room_total
End If

End If
%>
<%
      if not isempty(session("user_name")) then
    set rs_user_name=server.CreateObject("adodb.recordset")
    sql="select * from user_reg where us

首页上一页 1 2 3 4 5 下一页尾页 2/5/5

以上为本篇毕业论文范文asp酒店房间预约系统设计(二)的介绍部分。

本论文在计算机论文栏目，由论文网(www.zjwd.net)整理,更多论文,请点论文范文查找