admin_yddel.asp

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

<%@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 "look"
look
case "del"
del
case "delall"
delall
case "delok"
delok
case else
response.write("<script>alert('错误的传递参数！');history.back(1);</script>")
end select
sub look
dim id
id=trim(request("id"))
set rs=conn.execute("select * from giveme where id="&id)
if not rs("m_show") then
conn.execute("update giveme set m_show=true where id="&id)
end if
%>
<table width="618" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="22" bgcolor="#f5f5f5">　　[必 填 项 目]</td>
  </tr>
</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="22" bgcolor="#f5f5f5">　　线路名称：<a href="listxianlu.asp?id=<%=rs("m_id")%>" target=_blank><%=rs("m_xianlu_name")%></a></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 bgcolor="#FFFFFF">
    <td width="88" height="22" align="center" bgcolor="#f5f5f5">姓　　名：</td>
    <td width="220"><%=mfkiqpl(rs("m_name"))%></td>
    <td width="88" align="center" bgcolor="#f5f5f5"> 所在地址： </td>
    <td width="222"><%=mfkiqpl(rs("m_address"))%></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="22" align="center" bgcolor="#f5f5f5"> 联系电话： </td>
    <td><%=mfkiqpl(rs("m_phone"))%></td>
    <td align="center" bgcolor="#f5f5f5"> 来游人数： </td>
    <td><%=mfkiqpl(rs("m_renshuo"))%></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="22" align="center" bgcolor="#f5f5f5"> 需要导游： </td>
    <td><%=mfkiqpl(rs("m_daoyou"))%></td>
    <td align="center" bgcolor="#f5f5f5"> 希望拼团： </td>
    <td><%=mfkiqpl(rs("m_pingchuan"))%></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="22" align="center" bgcolor="#f5f5f5"> 预订时间： </td>
    <td><%=mfkiqpl(rs("m_yudingtime"))%></td>
    <td align="center" bgcolor="#f5f5f5"> 来游日期： </td>
    <td><%=mfkiqpl(rs("m_laiyoutime"))%></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="22" align="center" bgcolor="#f5f5f5"> 反程日期： </td>
    <td><%=mfkiqpl(rs("m_huanchengtime"))%></td>
    <td align="center" bgcolor="#f5f5f5"> 补充事项： </td>
    <td><%=mfkiqpl(rs("m_mfk_2"))%></td>
  </tr>
</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="22" bgcolor="#f5f5f5">　　[其 它 信 息]</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 bgcolor="#FFFFFF">
    <td width="88" height="22" align="center" bgcolor="#f5f5f5">  OICQ： </td>
    <td width="220" height="22"><%=mfkiqpl(rs("m_oicq"))%></td>
    <td width="88" height="22" align="center" bgcolor="#f5f5f5"> 年　　龄： </td>
    <td width="222" height="22"><%=mfkiqpl(rs("m_age"))%></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="22" align="center" bgcolor="#f5f5f5"> 电子邮件： </td>
    <td height="22"><%=mfkiqpl(rs("m_email"))%></td>
    <td height="22" align="center" bgcolor="#f5f5f5"> 主页地址： </td>
    <td height="22"><%=mfkiqpl(rs("m_homepage"))%></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="22" align="center" bgcolor="#f5f5f5"> 手机号码： </td>
    <td height="22"><%=mfkiqpl(rs("m_shouji"))%></td>
    <td height="22" align="center" bgcolor="#f5f5f5"> 传　　真： </td>
    <td height="22"><%=mfkiqpl(rs("m_fax"))%></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="22" align="center" bgcolor="#f5f5f5"> 工作单位： </td>
    <td height="22"><%=mfkiqpl(rs("m_gongzuodanwei"))%></td>
    <td height="22" align="center" bgcolor="#f5f5f5"> 身 份证： </td>
    <td height="22"><%=mfkiqpl(rs("m_zhengjian"))%></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="22" align="center" bgcolor="#f5f5f5"> 邮政编码： </td>
    <td height="22"><%=mfkiqpl(rs("m_youbian"))%></td>
    <td height="22" align="center" bgcolor="#f5f5f5">&nbsp;</td>
    <td height="22">&nbsp;</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="60" align="center" bgcolor="#f5f5f5"> 您的想法： </td>
    <td height="60" colspan="3"><%=mfkiqpl(rs("m_mfk"))%></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="60" align="center" bgcolor="#f5f5f5"> 备　　注： </td>
    <td height="60" colspan="3"><%=mfkiqpl(rs("m_mfk_1"))%></td>
  </tr>
</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="22" align="center" bgcolor="#f5f5f5"><input type="button" name="Submit" value="后 退" onclick="window.history.go(-1);"></td>
  </tr>
</table>
<%
closers(rs)
end sub
sub del
set rs=conn.execute("select id,m_show,m_id,m_name,m_phone,m_yudingtime from giveme order by m_yudingtime desc")
%>
<table width="618" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
  <tr align="center" bgcolor="#f5f5f5">
    <td width="155" height="24">预订人姓名</td>
    <td width="158" height="24">预订人联系电话</td>
    <td width="130" height="24">预订时间</td>
    <td width="67" height="24">线路详情</td>
    <td width="67" height="24">预订详情</td>
    <td width="34" height="24">删除</td>
  </tr>
<%
if rs.eof then
response.write("<tr align=""center""><td height=""24"" colspan=""6"" bgcolor=""#FFFFFF"">暂时没有预订信息！</td></tr>")
end if
while not rs.eof
%>
  <tr align="center" bgcolor="#FFFFFF">
    <td height="22">
<%if not rs("m_show") then
response.write("<img src=images/mfk34.gif>")
end if
response.write mfkiqpl(rs("m_name"))%></td>
    <td><%=mfkiqpl(rs("m_phone"))%></td>
    <td><%=mfkiqpl(rs("m_yudingtime"))%></td>
    <td><a href="listxianlu.asp?id=<%=rs("m_id")%>" target="_blank"><img src="images/mfk7.gif" width="10" height="14" border="0"></a></td>
    <td><a href="?action=look&id=<%=rs("id")%>"><img src="images/mfk30.gif" width="16" height="16" border="0"></a></td>
    <td><a href="?action=delok&id=<%=rs("id")%>"><img src="images/mfk26.gif" width="14" height="15" border="0"></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" cellpadding="0" cellspacing="0" bgcolor="#f5f5f5">
  <tr>
    <td height="22" align="center"><input type="button" name="Submit2" value="刷 新" onclick="window.location.reload();"></td>
  </tr>
</table>
<%
end sub

sub delok
dim id
id=trim(request("id"))
conn.execute("delete from giveme where id="&id)
response.write("<script>alert('你选择的预订信息已经删除！按确定重新载入！');window.location='admin_yddel.asp?action=del';</script>")
end sub

sub delall
conn.execute("delete from giveme")
response.write("<script>alert('你选择的预订信息已经删除！按确定返回！');window.history.go(-1);</script>")
end sub

manageend
%>