<% 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 百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读,免费范文网,提供经典小说综合文库会议管理系统的分析与设计 - 图文(5)在线全文阅读。
相关推荐: