?? show_fanghao.asp
字號:
<!--#include file="../inc/conn.asp"-->
<!--#include file="checkpwd.asp"-->
<!--#include file="../inc/title.inc"-->
<style>
TD {
FONT-SIZE: 9pt
; color: #000000
}
</style>
<%
'set rs=server.CreateObject("adodb.recordset")
fangjh=trim(request.Form("num"))'證件號'此字段不能用no名否則用做關鍵字查詢時無法查詢
'x="342423198403075457"
sql="select * from [book] where fangjh='"&fangjh&"'"
'response.Write(sql)
'rs.open sql,conn,1,1
set rs=conn.execute(sql)
roomnam=rs("roomid")
'conn.close
sql1="select * from [room] where roomnam='"&roomnam&"'"
set rs1=conn.execute(sql1)
pric=rs1("pric")
'response.Write pric
%>
<table width="788" border="0" cellpadding="0" cellspacing="1">
<!--DWLayoutTable-->
<tr>
<td width="786" height="59"> </td>
</tr>
<tr>
<td height="375" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#3399FF">
<!--DWLayoutTable-->
<tr>
<td width="784" height="374" valign="top"> <form action="tuifang.asp" method="post">
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<!--DWLayoutTable-->
<tr>
<td width="784" height="23" align="center" valign="middle" bgcolor="#3333CC"><font color="#FFFFFF" face="楷體_GB2312"><strong>用戶資料</strong></font></td>
</tr>
<tr>
<td height="321" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#333399">
<!--DWLayoutTable-->
<tr>
<td height="23" colspan="2" align="center" valign="middle"><!--DWLayoutEmptyCell--> </td>
</tr>
<tr>
<td width="314" height="28" align="right" valign="middle"bgcolor="#FFFFFF">姓名：</td>
<td width="467" align="left" valign="middle"bgcolor="#FFFFFF">
<font color="#FF0000">
<% response.Write rs("nam")%>
</font></td>
</tr>
<tr>
<td height="29" align="right" valign="middle" bgcolor="#FFFFFF">證件:</td>
<td align="left" valign="middle" bgcolor="#FFFFFF"><font color="#FF0000"><%=rs("cn")%>
</font></td>
</tr>
<tr>
<td height="28" align="right" valign="middle" bgcolor="#FFFFFF">到達時間：</td>
<td align="left" valign="middle" bgcolor="#FFFFFF"><font color="#FF0000"><%=rs("dtime")%>
</font></td>
</tr>
<tr>
<td height="28" align="right" valign="middle" bgcolor="#FFFFFF">離開時間：</td>
<td align="left" valign="middle" bgcolor="#FFFFFF"> <font color="#FF0000"><%=now()%></font></td>
</tr>
<tr>
<td height="28" align="right" valign="middle" bgcolor="#FFFFFF">人數</td>
<td align="left" valign="middle" bgcolor="#FFFFFF"><font color="#FF0000"><%=rs("renshu")%>
</font></td>
</tr>
<tr>
<td height="28" align="right" valign="middle" bgcolor="#FFFFFF">房間類型</td>
<td align="left" valign="middle" bgcolor="#FFFFFF"><font color="#FF0000"><%=rs("roomid")%>
<input name="roomid" type="hidden" id="roomid" value="<%=rs("roomid")%>">
</font></td>
</tr>
<tr>
<td height="28" align="right" valign="middle" bgcolor="#FFFFFF">房間數</td>
<td align="left" valign="middle" bgcolor="#FFFFFF"><font color="#FF0000"><%=rs("roomnum")%>
</font></td>
</tr>
<tr>
<td height="29" align="right" valign="middle" bgcolor="#FFFFFF">訂單號</td>
<td align="left" valign="middle" bgcolor="#FFFFFF"><font color="#FF0000"><%=rs("num")%>
<input name="ddhao" type="hidden" id="ddhao" value="<%=rs("num")%>">
</font></td>
</tr>
<tr>
<td height="18" align="right" valign="middle" bgcolor="#FFFFFF">房間號：</td>
<td align="left" valign="middle" bgcolor="#FFFFFF"><font color="#FF0000">
<%
if rs("fangjh")="" then
response.Write("已退房！")
else
response.Write rs("fangjh")
end if
%>
<input name="fangjh" type="hidden" id="fangjh" value="<%=rs("fangjh")%>">
</font></td>
</tr>
<tr>
<td height="19" valign="middle" align="right" bgcolor="#FFFFFF">應付金額</td>
<td valign="middle" align="left" bgcolor="#FFFFFF"> <font color="#FF0000">
<%
dim x,y,z
dtime=rs("dtime")
y_dtime=int(year(dtime))
m_dtime=int(month(dtime))
d_dtime=int(day(dtime))
ntime=now()
y_ntime=int(year(ntime))
m_ntime=int(month(ntime))
d_ntime=int(day(ntime))
x=(y_ntime-y_dtime)
y=(m_ntime-m_dtime)
z=(d_ntime-d_dtime)
if x>0 then
tim=x*365+y*30+z
end if
if x=0 then
tim=y*30+z
end if
if tim=0 then
tim=1
end if
response.Write tim
response.Write "天"
response.Write "*"
response.Write pric
response.Write "元"
response.Write "="
response.Write tim*pric
response.Write "元"
%>
</font></td>
</tr>
<tr>
<td height="21" colspan="2" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<!--DWLayoutTable-->
<tr>
<td width="190" height="21"></td>
<td width="254" align="center" valign="middle"><input type="submit" name="Submit" value="確認退房"></td>
<td width="338"></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td height="30" align="right" valign="top"bgcolor="#3333CC"><font color="#FFFFFF">2007-9</font></td>
</tr>
</table>
</form></td>
</tr>
</table></td>
</tr>
<tr>
<td height="2"></td>
</tr>
</table>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -