📄 t_ding.asp.bak
字号:
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</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">
从
<input type="text" name="enter_time" value="">
到
<input type="text" name="enter_time1" value="">
<input type="submit" name="Submit" value="列出" >
</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& "'"
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
%> <p> </p><p> </p><p>会员预定查询
</p><table width="95%" border="0" class="textright1">
<%If rs.recordcount>1 then%>
<tr>
<td align=left>共有<%=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%>页）</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
%> <tr bgcolor=<%If flag=1 then%>"#EEFCFF"<%else%>"#FFFFF4"<%End if%>>
<td width="6%" height="22">
<table width="89%" border="0">
<tr>
<td height="30" width="24%">编号</td>
<td height="30" width="26%"><%=rs("list")%></td>
<td height="30" width="30%">入住时间</td>
<td height="30" width="20%"><%=rs("in_time")%> </td>
</tr>
<tr>
<td width="24%">入住期限</td>
<td width="26%"><%=rs("in_days")%></td>
<td height="29" width="24%">入住人数</td>
<td height="29" width="26%"><%=rs("persons")%></td>
</tr>
<tr>
<td width="24%" height="24">标准房</td>
<td width="26%" height="24"><%=rs("room1")%></td>
<td width="30%" height="24">证件号码</td>
<td width="20%" height="24"><%=rs("cardid")%></td>
</tr>
<tr>
<td width="24%" height="26">豪华双人房</td>
<td width="26%" height="26"><%=rs("room2")%></td>
<td height="26" width="24%">付款方式</td>
<td height="26" width="26%"><%=rs("pays")%></td>
</tr>
<tr>
<td width="24%">豪华标准房</td>
<td width="26%"><%=rs("room3")%></td>
<td height="24" width="24%">信用卡类别</td>
<td height="24" width="26%"><%=rs("iden")%></td>
</tr>
<tr>
<td width="24%">标准套房</td>
<td width="26%"><%=rs("room4")%></td>
<td height="26" width="24%">信用卡号码</td>
<td height="26" width="26%"><%=rs("idennub")%></td>
</tr>
<tr>
<td width="24%">豪华行政房</td>
<td width="26%"><%=rs("room5")%></td>
<td height="25" width="24%">持卡人姓名</td>
<td height="25" width="26%"><%=rs("idenname")%></td>
</tr>
<tr>
<td height="27" width="30%">豪华大套间</td>
<td height="27" width="20%"><%=rs("room6")%></td>
<td height="27" width="24%">有效期</td>
<td height="27" width="26%"><%=rs("idendate")%></td>
</tr>
<tr>
<td width="30%">订房时间</td>
<td width="20%"><%=rs("now_time")%></td>
<td width="30%" height="25">
<p>管理</p>
</td>
<td width="20%" height="25"><a href="ne.asp?list=<%=rs("list")%>&cardid=<%=rs("cardid")%>">删除</a></td>
</tr>
<tr>
<td width="30%">是否已撤销</td>
<td width="20%"><%=rs("cutting")%></td>
<td width="30%" height="25"> </td>
<td width="20%" height="25"> </td>
</tr>
</table>
<p> </p>
<tr bgcolor=<%If flag=1 then%>"#EEFCFF"<%else%>"#FFFFF4"<%End if%>>
</tr>
<%count=count+1
rs.MoveNext()
loop
else%> <tr bgcolor="#FFFFF4">
<td width="6%">
<div align="center"></div></td>
<td height="20" width="18%"> </td>
<td width="18%" height="20"> </td>
<td width="27%">
<div align="center"></div></td>
<td width="31%"> </td>
</tr>
<%end if%> <%else%> <%If not rs.eof then%> <%count=24*(page-1)+1
for i=1 to 24
flag=i mod 2
if not rs.eof then%>
<tr bgcolor=<%If flag=1 then%>"#EEFCFF"<%else%>"#FFFFF4"<%End if%>>
<%
else
exit for
end if
count=count+1
rs.MoveNext()
next
else
%>
<table width="89%" border="0">
<tr>
<td height="30" width="24%">编号</td>
<td height="30" width="26%"><%=rs("list")%></td>
<td height="30" width="30%">入住时间</td>
<td height="30" width="20%"><%=rs("in_time")%> </td>
</tr>
<tr>
<td width="24%">入住期限</td>
<td width="26%"><%=rs("in_days")%></td>
<td height="29" width="24%">入住人数</td>
<td height="29" width="26%"><%=rs("persons")%></td>
</tr>
<tr>
<td width="24%" height="24">标准房</td>
<td width="26%" height="24"><%=rs("room1")%></td>
<td width="30%" height="24">证件号码</td>
<td width="20%" height="24"><%=rs("cardid")%></td>
</tr>
<tr>
<td width="24%" height="26">豪华双人房</td>
<td width="26%" height="26"><%=rs("room2")%></td>
<td height="26" width="24%">付款方式</td>
<td height="26" width="26%"><%=rs("pays")%></td>
</tr>
<tr>
<td width="24%">豪华标准房</td>
<td width="26%"><%=rs("room3")%></td>
<td height="24" width="24%">信用卡类别</td>
<td height="24" width="26%"><%=rs("iden")%></td>
</tr>
<tr>
<td width="24%">标准套房</td>
<td width="26%"><%=rs("room4")%></td>
<td height="26" width="24%">信用卡号码</td>
<td height="26" width="26%"><%=rs("idennub")%></td>
</tr>
<tr>
<td width="24%">豪华行政房</td>
<td width="26%"><%=rs("room5")%></td>
<td height="25" width="24%">持卡人姓名</td>
<td height="25" width="26%"><%=rs("idenname")%></td>
</tr>
<tr>
<td height="27" width="30%">豪华大套间</td>
<td height="27" width="20%"><%=rs("room6")%></td>
<td height="27" width="24%">有效期</td>
<td height="27" width="26%"><%=rs("idendate")%></td>
</tr>
<tr>
<td width="30%">订房时间</td>
<td width="20%"><%=rs("now_time")%></td>
<td width="30%" height="25">
<p>管理</p>
</td>
<td width="20%" height="25"><a href="ne.asp?list=<%=rs("list")%>&cardid=<%=rs("cardid")%>">删除</a></td>
</tr>
<tr>
<td width="30%">是否已撤销</td>
<td width="20%"><%=rs("cutting")%></td>
<td width="30%" height="25"> </td>
<td width="20%" height="25"> </td>
</tr>
</table>
<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%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -