?? s_fangjianguanli.asp
字號(hào):
<!--#include file="../inc/conn.asp"-->
<!--#include file="checkpwd.asp"-->
<!--#include file="../inc/title.inc"-->
<style>
TD {
FONT-SIZE: 9pt
; color: #000000
}
</style>
<%
fangjianhao=request.Form("fangjianhao")
sql1="select * from [fj] where roomname='"&fangjianhao&"'"
'response.Write(sql2)
set rs1=conn.execute(sql1)
if rs1.eof then
response.Write("沒(méi)有此房間請(qǐng)先確定！")
'response.Redirect("fangjianguanli.asp")
%>
<a href="fangjianguanli.asp">返回</a>
<%
else
rs1roomlei=rs1("roomlei")
'response.Write(rs1room)
%>
<table width="788" border="0" cellpadding="0" cellspacing="1">
<!--DWLayoutTable-->
<tr>
<td width="786" height="59"> </td>
</tr>
<tr>
<td height="422" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#3399FF">
<!--DWLayoutTable-->
<tr>
<td width="784" height="422" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<!--DWLayoutTable-->
<tr>
<td height="23" colspan="6" align="center" valign="middle" bgcolor="#3333CC"><font color="#FFFFFF" face="楷體_GB2312"><strong>客房詳情查詢</strong></font></td>
</tr>
<tr>
<td width="218" height="39"> </td>
<td width="117"> </td>
<td width="123"> </td>
<td width="136"> </td>
<td width="148"> </td>
<td width="42"> </td>
</tr>
<tr>
<td height="24"> </td>
<td valign="middle" align="center"background="imgs/tile_sub.gif">
<font color="#FFFFFF"><strong>房間類型</strong></font> </td>
<td valign="middle" align="center"background="imgs/tile_sub.gif"><strong><font color="#FFFFFF">房間號(hào)</font></strong></td>
<td valign="middle" align="center"background="imgs/tile_sub.gif"><font color="#FFFFFF"><strong>狀態(tài)</strong></font></td>
<td> </td>
<td> </td>
</tr>
<tr>
<td height="62"> </td>
<td colspan="3" valign="top">
<%
sql2="select * from [room] where id="&rs1roomlei
'sql2="select * from [fj] where roomlei='"&roomlid&"'"
set rs2=server.CreateObject("adodb.recordset")
'set rs2=conn.execute(sql2)
rs2.open sql2,conn,1,1
'response.Write("123")
'response.Write rs2("roomname")
'response.Write(sql2)
'response.End()
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#0000FF">
<!--DWLayoutTable-->
<tr>
<td width="115" height="42" valign="middle" align="center" bgcolor="#FFFFFF"><%=rs2("roomnam")%></td>
<td width="123" valign="middle" align="center" bgcolor="#FFFFFF"><%=fangjianhao%></td>
<td width="134" valign="middle" align="center" bgcolor="#FFFFFF">
<%
if rs1("ztai")=true then
response.Write("被定")
else
response.Write("未被定")
end if
%>
</td>
</tr>
</table></td>
<td> </td>
<td> </td>
</tr>
<tr>
<td height="279"></td>
<td></td>
<td></td>
<td></td>
<td> </td>
<td> </td>
</tr>
<tr>
<td height="12"></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td valign="top"><a href="fangjianguanli.asp">返回</a></td>
</tr>
<tr>
<td height="282"></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td> </td>
</tr>
<tr>
<td height="30" colspan="6" align="right" valign="top"bgcolor="#3333CC"><font color="#FFFFFF">2007-9</font></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td height="43"> </td>
</tr>
</table>
<%end if%>?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -