admin_masterlook.asp

一个有用的东西 希望大家喜欢 谢谢大家对本站的支持

<!--===============================================================-->
<!--Mfkiqpl旅行社旅游线路预订程序源代码仅供学习或部分旅行社网站用---->
<!--任何单位或个人不得随意修改、截取其中代码或做不法用途------------->
<!--版权归属:mfkiqpl   http://www.zjjnet.com 所有-------------------->
<!--请务必保留以下版权信息------------------------------------------->
<!--作者:mfkiqpl----------------------------------------------------->
<!--QQ:31827726 mail:[e-mail]--------------------------------->
<!--主页地址:http://www.zjjnet.com----------------------------------->
<!----------------欢迎各位站长与本人小站进行友情链接----------------->
<!--===============================================================-->
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
managemode
dim action
action=trim(request("action"))
select case action
case "looknew"
looknew
case "lookall"
lookall
case "listxu"
listxu
case else
response.write("<script>alert('错误的传递参数！');history.back(1);</script>")
end select

sub looknew
%>
<table width="618" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
  <tr align="center" bgcolor="#f5f5f5">
    <td width="190" height="24">预订人姓名</td>
    <td width="120">预订时间</td>
    <td width="130">预订人联系电话</td>
    <td width="110">来游人数</td>
    <td width="62">预订线路</td>
  </tr>
<%
set rs=conn.execute("select id,m_id,m_name,m_xianlu_name,m_phone,m_yudingtime,m_renshuo,m_show from giveme where m_show=false order by m_yudingtime desc")
if rs.eof then
response.write("<tr align=""center""><td height=""24"" colspan=""5"" bgcolor=""#FFFFFF"">暂无新的预订！</td></tr>")
end if
while not rs.eof
%>
  <tr align="center">
    <td height="24" bgcolor="#FFFFFF"><a href="admin_yddel.asp?action=look&id=<%=rs("id")%>" title="查看此预订详细信息">详情</a> <%=mfkiqpl(rs("m_name"))%></td>
    <td bgcolor="#FFFFFF"><%=mfkiqpl(rs("m_yudingtime"))%></td>
    <td bgcolor="#FFFFFF"><%=mfkiqpl(rs("m_phone"))%></td>
    <td bgcolor="#FFFFFF"><%=mfkiqpl(rs("m_renshuo"))%></td>
    <td bgcolor="#FFFFFF"><a href="listxianlu.asp?id=<%=rs("m_id")%>" title="<%=rs("m_xianlu_name")%>" target=_blank>查看线路</a></td>
  </tr>
<%
rs.movenext
wend
closers(rs)
%>
</table>
<table width="618" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="4"></td>
  </tr>
</table>
<table width="618" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="24" align="center" bgcolor="#f5f5f5"><input type="button" name="Submit" value="刷 新" onclick="window.location.reload();"></td>
  </tr>
</table>
<%
end sub
sub lookall
%>
<table width="618" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
  <tr align="center" bgcolor="#f5f5f5">
    <td width="190" height="24">预订人姓名</td>
    <td width="120">预订时间</td>
    <td width="130">预订人联系电话</td>
    <td width="110">来游人数</td>
    <td width="62">预订线路</td>
  </tr>
<%
set rs=conn.execute("select id,m_id,m_name,m_xianlu_name,m_phone,m_yudingtime,m_renshuo,m_show from giveme order by m_yudingtime desc")
if rs.eof then
response.write("<tr align=""center""><td height=""24"" colspan=""5"" bgcolor=""#FFFFFF"">暂没有预订信息！</td></tr>")
end if
while not rs.eof
%>
  <tr align="center">
    <td height="24" bgcolor="#FFFFFF"><%
if not rs("m_show") then
response.write("<img src=images/mfk34.gif>")
end if
%><a href="admin_yddel.asp?action=look&id=<%=rs("id")%>" title="查看此预订详细信息">
详情</a> <%=mfkiqpl(rs("m_name"))%></td>
    <td bgcolor="#FFFFFF"><%=mfkiqpl(rs("m_yudingtime"))%></td>
    <td bgcolor="#FFFFFF"><%=mfkiqpl(rs("m_phone"))%></td>
    <td bgcolor="#FFFFFF"><%=mfkiqpl(rs("m_renshuo"))%></td>
    <td bgcolor="#FFFFFF"><a href="listxianlu.asp?id=<%=rs("m_id")%>" title="<%=rs("m_xianlu_name")%>" target=_blank>查看线路</a></td>
  </tr>

<%
rs.movenext
wend
closers(rs)
%>
</table>

<table width="618" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="4"></td>
  </tr>
</table>
<table width="618" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="24" align="center" bgcolor="#f5f5f5"><input type="button" name="Submit2" value="刷 新" onclick="window.location.reload();"></td>
  </tr>
</table>
<%
end sub
sub listxu
%>
<script>
function ccc(a){
window.opener.form2.xlid.value=a;
alert("你已经选择了ID为 "+a+" 的线路。\r\r按确定开始自动查询，此窗口也将关闭！");
window.opener.form2.submit();
window.close();
}
</script>
<table width="618" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="22" align="center" bgcolor="#f5f5f5">无需记住线路ID，只要点击相应线路既可</td>
  </tr>
</table>

<table width="618" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="4"></td>
  </tr>
</table>
<table width="618" border="0" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
  <tr align="center" bgcolor="#f5f5f5">
    <td height="24">ID号</td>
    <td width="560">线路名称</td>
  </tr>
<%
set rs=conn.execute("select id,x_name from xianlu")
while not rs.eof
%>
  <tr bgcolor="#FFFFFF">
    <td height="24" align="center"><%=rs("id")%></td>
    <td><a style="cursor:hand" onClick="ccc(<%=rs("id")%>);"><%=mfkiqpl(rs("x_name"))%></a></td>
  </tr>
<%
rs.movenext
wend
closers(rs)
%>
</table>
<%
end sub
manageend
%>