会议管理系统的分析与设计 - 图文(5)

<% dim rs set rs=server.CreateObject(\ dim sql:sql=\ rs.open sql,conn,1,1 if not rs.eof then do while not rs.eof response.Write \value='\rs(\rs(\ rs.movenext loop end if set rs1=conn.execute(\ChamberNum,TypeId,ChamberId from [Chamber] where Status='空闲' order by ChamberId\ counts=0 %>

19

5.3.4 预定详细信息界面

图6-4 预定信息界面

实现代码：

20

房间' />

选择 编号 姓名 电话 身份证 用户单位 预订类型 预订数量 房间号码 预计使用时间 预订小时 预交费用 备注 预定时间 是否使用 过期时间 操作 <% dim rs

dim num:num=10

set rs=server.CreateObject(\

dim sql:sql=\rs.open sql,conn,1,1 if not rs.eof then rs.pagesize=num dim pageNum:pageNum=rs.pagecount dim rsNum:rsNum=rs.recordcount dim page:page=cint(request.QueryString(\ if page<=0 or page=\ page=1 end if if page>=pageNum then page=pageNum end if rs.absolutepage=page do while not rs.eof and num>0 %>

21

onMouseOut=\

<%=rs(\ <%=rs(\ <%=rs(\ <%=rs(\ <%=rs(\ <%=rs(\ <%=rs(\ <%=rs(\ <%=rs(\ <%

num=num-1 rs.movenext loop else response.Write(\数据为空！\ end if %>

<% if page=1 then response.Write \上一页)\ else %>

<%end if%>

 当前第

<% end if %>

22