www.gusucode.com > 漂亮的地方旅游景点景观介绍网站源代码 > admin/road/jdyd.asp
<!--#include file="../config.asp" -->
<!--#include file="../../inc/page.asp" -->
<link href="../inc/mm.css" rel="stylesheet" type="text/css" />
<%
mytit=mytit&"<a href=?>酒店预订管理</a> > "
dim jd
jd=Trim(Request.QueryString("jd"))
select case action
case "del"
call del()
case "show",""
if jd="" then
mytit=mytit&"所有预订信息"
else
mytit=mytit&getmc("jw_inn","id",jd,"mc")&"预订信息列表"
end if
call show()
case "ups"
mytit=mytit&"预订信息详情"
call ups()
end select
'显示
sub show()
sql="select * from jw_jdyd order by id desc"
call record(rs,sql,1)
call head()
%>
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#116BAE">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td id="tit"><%= mytit %></td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
<form name="form1" id="form1" method="post" action="">
<tr>
<td width="3%" align="center" bgcolor="#C5E0F3"><strong>ID</strong></td>
<td width="27%" bgcolor="#C5E0F3"><strong>预订人姓名</strong></td>
<td width="21%" align="center" bgcolor="#C5E0F3"><strong>下单时间</strong></td>
<td width="18%" align="center" bgcolor="#C5E0F3"><strong>酒店</strong></td>
<td width="18%" align="center" bgcolor="#C5E0F3"><strong>房型</strong></td>
<td width="10%" align="center" bgcolor="#C5E0F3"><strong>查看</strong></td>
<td width="3%" align="center" bgcolor="#C5E0F3"><input type="checkbox" name="selectall" onClick="selectit()"/></td>
</tr>
<%
dim i,sz
sz=20
i=sz
dim bgc
%>
<div style="display:none"><% call fenpage(sz,rs,10) %></div>
<%
do while not rs.eof and i>0
if i mod 2=0 then
bgc="#D2E9FF"
else
bgc="#D2E1EE"
end if
%>
<tr id="r<%=rs("id")%>" bgcolor=<%= bgc %> onMouseOver="museing(r<%=rs("id")%>,0,'<%= bgc %>')" onMouseOut="museing(r<%=rs("id")%>,1,'<%= bgc %>')">
<td align="center"><%= rs("id") %></td>
<td><a href="?action=ups&id=<%= rs("id") %>"><%= rs("gname") %></a></td>
<td align="center"><%= rs("ctim") %></td>
<td align="center"><%= getmc("jw_inn","id",rs("jd"),"mc") %></td>
<td align="center"><%= getmc("jw_innfx","id",rs("fx"),"fx") %></td>
<td align="center">
<%
If rs("ck")=1 Then
Response.Write("已查看")
else
Response.Write("未查看")
end if
%></td>
<td align="center"><input name="idstr" type="checkbox" value="<%= rs("id") %>" onclick="td_bgcolor(r<%=rs("id")%>,1);"></td>
</tr>
<%
i=i-1
rs.movenext
loop
%>
<tr>
<td colspan="7" bgcolor="#C5E0F3">
<table width="100%" border="0" cellpadding="2" cellspacing="0">
<tr>
<td width="11%"><input name="del" type="button" class="button_1" id="del" value="删除所选" onmouseup="tjqr('您确定要删除？此操作无法逆转！','?action=del')" onmouseover="this.className='button_2'" onmouseout="this.className='button_1'"/></td>
<td width="89%"><% call fenpage(sz,rs,10) %></td>
</tr>
</table></td>
</tr>
</form>
</table></td>
</tr>
</table></td>
</tr>
</table>
<%
call recordend(rs)
call connend()
call foot()
end sub
'修改
sub ups()
call record(rs,"select * from jw_jdyd where id="&id,3)
if rs.eof then
call cc("记录不存在！")
end if
rs("ck")=1
rs.update
call head()
%>
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#116BAE">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td id="tit"> <%= mytit %></td>
</tr>
<tr>
<td><table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td bgcolor="#D9ECF7">酒店名称：</td>
<td bgcolor="#D9ECF7"><%= getmc("jw_inn","id",rs("jd"),"mc") %></td>
</tr>
<tr>
<td bgcolor="#D9ECF7">房 型：</td>
<td bgcolor="#D9ECF7"><%= getmc("jw_innfx","id",rs("fx"),"fx") %> </td>
</tr>
<tr>
<td bgcolor="#D9ECF7">所 在 地：</td>
<td bgcolor="#D9ECF7"><%= getmc("jw_cityclass","id",getmc("jw_inn","id",rs("jd"),"cityid"),"mc") %></td>
</tr>
<tr>
<td width="12%" bgcolor="#D9ECF7">预订者姓名：</td>
<td width="88%" bgcolor="#D9ECF7"><%= rs("gname") %></td>
</tr>
<tr>
<td bgcolor="#D9ECF7">入住人数：</td>
<td bgcolor="#D9ECF7"><%= rs("renshu") %></td>
</tr>
<tr>
<td bgcolor="#D9ECF7">电 话：</td>
<td bgcolor="#D9ECF7"><%= rs("tel") %></td>
</tr>
<tr>
<td bgcolor="#D9ECF7">传 真：</td>
<td width="88%" bgcolor="#D9ECF7"><%= rs("fax") %></td>
</tr>
<tr>
<td bgcolor="#D9ECF7">E-mail：</td>
<td bgcolor="#D9ECF7"><%= rs("email") %></td>
</tr>
<tr>
<td bgcolor="#D9ECF7">QQ：</td>
<td width="88%" bgcolor="#D9ECF7"><%= rs("qq") %></td>
</tr>
<tr>
<td bgcolor="#D9ECF7">预订房间间数：</td>
<td bgcolor="#D9ECF7"><%= rs("jianshu") %></td>
</tr>
<tr>
<td bgcolor="#D9ECF7">入住日期：</td>
<td width="88%" bgcolor="#D9ECF7"><%= rs("rzrq") %></td>
</tr>
<tr>
<td bgcolor="#D9ECF7">离店日期：</td>
<td bgcolor="#D9ECF7"><%= rs("ldrq") %></td>
</tr>
<tr>
<td bgcolor="#D9ECF7">是否要求接站：</td>
<td width="88%" bgcolor="#D9ECF7">
<%
if rs("sfjz")=0 then
Response.Write("不要求接站")
else
Response.Write("要求接站")
end if
%></td>
</tr>
<tr>
<td bgcolor="#D9ECF7">备 注：</td>
<td bgcolor="#D9ECF7"><%= rs("content") %></td>
</tr>
<tr>
<td bgcolor="#D9ECF7">下单时间：</td>
<td width="88%" bgcolor="#D9ECF7"><%= rs("ctim") %></td>
</tr>
<tr>
<td bgcolor="#D9ECF7">IP：</td>
<td bgcolor="#D9ECF7"><%= rs("ip") %></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
call connend()
call foot()
end sub
'删除
sub del()
'批量删除
dim idstr,iid,i
idstr=replace(Trim(Request.Form("idstr"))," ","")
iid=split(idstr,",")
for i=0 to ubound(iid)
conn.execute("delete * from jw_jdyd where id="&iid(i))
next
call connend()
response.Redirect(request.ServerVariables("HTTP_REFERER"))
end sub
%>