📄 t_ding.asp
字号:
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
td { font-size: 9pt}
body { font-size: 9pt}
-->
</style>
</head>
<body bgcolor="#FFFFFF">
<table bgcolor=#aaaaaa cellpadding=2 cellspacing=1 height=33
width="99%">
<tbody>
<tr bgcolor=#f3f3dd>
<td>
<div align="center"><font style="FONT-SIZE: 14px"> <a href="display.asp">查看会员信息</a>
| <a href="t_ding.asp">操作会员预定</a>| <a href="f_ding.asp">操作非会员预定</a>| </font></div>
</td>
</tr>
</tbody>
</table>
<form method="post" action="t_ding.asp?qq=1">
<div align="center">从
<input type="text" name="enter_time" value="">
到
<input type="text" name="enter_time1" value="">
<input type="submit" name="Submit" value="列出" >
会员预定查询 </div>
</form>
<%qq=request.querystring("qq")
if qq=1 then
enter_time=request.form("enter_time")
enter_time1=request.form("enter_time1")
qq=0
else
enter_time=request.querystring("enter_time")
enter_time1=request.querystring("enter_time1")
end if%> <%if enter_time="" then
enter_time=Trim(date())
enter_time1=Trim(date())
else
enter_time=Trim(enter_time)
enter_time1=Trim(enter_time1)
end if%> <%set conn=server.createobject("ADODB.Connection")
set rs=server.createobject("ADODB.Recordset")
'set rs1=server.createobject("ADODB.Recordset")
conn.open Application("file_jingan1")
time_fir=enter_time+" 00:00:00"
time_end=enter_time1+" 23:59:59.999"
sqlstr="select * from t_dingfang where now_time between '" &time_fir& "' and '" &time_end& "' order by list desc"
rs.open sqlstr,conn,1,1
if rs.eof and rs.bof then
response.write "<p align='center'> 还 没 有 任 何 纪 录</p>"
else
page=Request.QueryString("page")
If page="" then
page=1
else
page=cint(page)
end if
If not rs.eof then
rs.PageSize=4
rs.AbsolutePage=page
End if
%>
<table width="95%" border="0" class="textright1">
<%If rs.recordcount>1 then%>
<tr>
<td align=left>
<div align="center">共有<%=rs.recordcount%>条匹配记录 <%for i=1 to rs.pagecount%><a href="t_ding.asp?page=<%=i%>&enter_time=<%=enter_time%>&enter_time1=<%=enter_time1%>"><%=i%> </a> <%next%>
当前页码是（<%=page%>/<%=rs.pagecount%>页）</div>
</td>
</tr>
<%end if%>
</table>
<%querysubmit=1%>
<%If querysubmit=0 then%> <%If not rs.eof then%> <%count=1
rs.movefirst()
do while not rs.eof
flag=count mod 2
%>
<%count=count+1
rs.MoveNext()
loop
else%>
<%end if%> <%else%> <%If not rs.eof then%> <%count=4*(page-1)+1
for i=1 to 4
flag=i mod 2
if not rs.eof then%>
<table width="89%" border="1" cellpadding="0" cellspacing="0" bordercolorlight="#666666" bordercolordark="#FFFFFF">
<font color=red>本定单 <%
if trim(rs("cutting"))="是" then
response.write "已"
else response.write "未"
end if
%> 撤消 </font>
<tr>
<td bgcolor="#F5F5F5" width="24%">编号</td>
<td width="26%"><%=rs("list")%> </td>
<td bgcolor="#F5F5F5" width="30%">入住时间</td>
<td width="20%"><%=rs("in_time")%> </td>
</tr>
<tr>
<td width="24%" bgcolor="#F5F5F5">入住天数</td>
<td width="26%"><%=rs("in_days")%> </td>
<td bgcolor="#F5F5F5" width="24%">入住人数</td>
<td width="26%"><%=rs("persons")%> </td>
</tr>
<tr>
<td width="24%" bgcolor="#F5F5F5">高级单人房</td>
<td width="26%"><%=rs("room1")%> </td>
<td width="30%" bgcolor="#F5F5F5">证件号码</td>
<td width="20%"><%=rs("idennub")%> </td>
</tr>
<tr>
<td width="24%" bgcolor="#F5F5F5">标准双人房</td>
<td width="26%"><%=rs("room2")%> </td>
<td bgcolor="#F5F5F5" width="24%">付款方式</td>
<td width="26%"><%=rs("pays")%> </td>
</tr>
<tr>
<td width="24%" bgcolor="#F5F5F5">高级双人房</td>
<td width="26%"><%=rs("room3")%> </td>
<td bgcolor="#F5F5F5" width="24%">信用卡类别</td>
<td width="26%"><%=rs("iden")%> </td>
</tr>
<tr>
<td width="24%" bgcolor="#F5F5F5">标准套房</td>
<td width="26%"><%=rs("room4")%> </td>
<td bgcolor="#F5F5F5" width="24%">信用卡号码</td>
<td width="26%"><%=rs("idennub")%> </td>
</tr>
<tr>
<td width="24%" bgcolor="#F5F5F5">高级套房</td>
<td width="26%"><%=rs("room5")%> </td>
<td bgcolor="#F5F5F5" width="24%">持卡人姓名</td>
<td width="26%"><%=rs("idenname")%> </td>
</tr>
<tr>
<td bgcolor="#F5F5F5" width="30%">豪华套房</td>
<td width="20%"><%=rs("room6")%> </td>
<td bgcolor="#F5F5F5" width="24%">有效期</td>
<td width="26%"><%=rs("idendate")%> </td>
</tr>
<tr>
<td width="30%" bgcolor="#F5F5F5">订房时间</td>
<td width="20%"><%=rs("now_time")%> </td>
</tr>
</table>
<hr>
<tr bgcolor=<%If flag=1 then%>"#EEFCFF"<%else%>"#FFFFF4"<%End if%>>
</tr>
<%else
exit for
end if
count=count+1
rs.MoveNext()
next
else%>
<tr bgcolor="#FFFFF4">
<td width="6%">
<div align="center"></div></td>
<td width="18%" height="20"> </td>
<td height="20" width="18%"> </td>
<td width="27%">
<div align="center"></div></td>
<td width="31%"> </td>
</tr>
<%end if%> <%end if%><%end if%>
<hr>
<p> </p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -