www.gusucode.com > 漂亮的地方旅游景点景观介绍网站源代码 > admin/road/zdlx.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_zdxl 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="6%" align="center" bgcolor="#C5E0F3"><strong>ID</strong></td>
<td width="38%" bgcolor="#C5E0F3"><strong>预订人姓名</strong></td>
<td width="28%" align="center" bgcolor="#C5E0F3"><strong>下单时间</strong></td>
<td width="25%" 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">
<%
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="5" 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_zdxl 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 width="19%" bgcolor="#D9ECF7">预订者姓名:</td>
<td bgcolor="#D9ECF7"><%= rs("gname") %></td>
</tr>
<tr>
  <td bgcolor="#D9ECF7">性&nbsp;&nbsp;&nbsp;&nbsp;别:</td>
<td bgcolor="#D9ECF7">
<%
if rs("sex")=0 then 
Response.Write("男")
else
Response.Write("女")
end if
%></td>
</tr>
<tr>
  <td bgcolor="#D9ECF7">电&nbsp;&nbsp;&nbsp;&nbsp;话:</td>
<td bgcolor="#D9ECF7"><%= rs("tel") %></td>
</tr>
<tr>
  <td bgcolor="#D9ECF7">传&nbsp;&nbsp;&nbsp;&nbsp;真:</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 bgcolor="#D9ECF7"><%= rs("qq") %></td>
</tr>
<tr>
  <td bgcolor="#D9ECF7">游客人数:</td>
<td width="88%" bgcolor="#D9ECF7"><%= rs("renshu") %></td>
</tr>
<tr>
  <td bgcolor="#D9ECF7">出发日期:</td>
<td bgcolor="#D9ECF7"><%= rs("cfrq") %></td>
</tr>
<tr>
  <td bgcolor="#D9ECF7">出发地点:</td>
<td width="88%" bgcolor="#D9ECF7"><%= rs("cfdd") %></td>
</tr>
<tr>
  <td bgcolor="#D9ECF7">来程交通方式:</td>
<td bgcolor="#D9ECF7">
<%
select case rs("lcjtfs")
case 0
Response.Write("飞机")
case 1
Response.Write("火车")
case 2
Response.Write("客车")
case 3
Response.Write("自驾车")
end select
%></td>
</tr>
<tr>
  <td bgcolor="#D9ECF7">返程日期:</td>
<td width="88%" bgcolor="#D9ECF7"><%= rs("fcrq") %></td>
</tr>
<tr>
  <td bgcolor="#D9ECF7">返程目的地:</td>
<td bgcolor="#D9ECF7"><%= rs("fcdd") %></td>
</tr>
<tr>
  <td bgcolor="#D9ECF7">返程交通方式:</td>
<td width="88%" bgcolor="#D9ECF7">
<%
select case rs("fcjtfs")
case 0
Response.Write("飞机")
case 1
Response.Write("火车")
case 2
Response.Write("客车")
case 3
Response.Write("自驾车")
end select
%></td>
</tr>
<tr>
  <td bgcolor="#D9ECF7">备&nbsp;&nbsp;&nbsp;&nbsp;注:</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_zdxl where id="&iid(i))
next
call connend()
response.Redirect(request.ServerVariables("HTTP_REFERER"))
end sub
%>