admin_select_1.asp
来自「旅游管理系统 用ASP+SQL 2」· ASP 代码 · 共 112 行
ASP
112 行
<html>
<head>
<meta name=vs_targetSchema content="HTML 4.0">
<title>特定线路的预订情况查询</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css/css1.css" type="text/css">
<script id=clientEventHandlersVBS language=vbscript>
<!--
Sub ssss_onclick
if form1.text.value="" then
window.alert ("请输入要查找的内容！")
form1.text.focus
else
if not IsNumeric (form1.text.value) then
window.alert ("线路ID必须是数字！"&chr(13)&"如果您不知道请按后面的直接选择线路！")
form1.text.focus
else
form1.submit
end if
end if
End Sub
sub mfkiqpl
window.open "listallxianlu.asp",null,"height=400,width=438, top=0, left=0, toolbar=no, menubar=no, scrollbars=yes,resizable=no,location=no, status=no"
end sub
-->
</script>
</head>
<body bgcolor="#FFFFFF" style="background-color: #999999" text="#000000" topmargin="5">
<!--#include file="includefile/shoubu.asp" -->
<!--#include file="includefile/conn.asp" -->
<%
if session("administrator")<>"administrator" then
Response.Redirect "admin_login.asp"
end if
dim action,id
action=request("action")
id=request("text")
%>
<br>
<form name="form1" method="post" action="admin_select_1.asp?action=select">
<table width="543" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#CCCCCC">
<tr>
<td height="27" bgcolor="#EFEFEF" align="center">输入线路ID：
<input type="text" name="text" size="10" class="input">
<input type="button" name="ssss" value="查找" class="button">
<a id=mfk href ="#" onclick =mfkiqpl>（或按这里直接选择线路）</a></td>
</tr>
</table>
<br>
</form>
<%if action="select" then
if lxs="系统管理员" then
sql="select * from giveme where m_id='"&id&"'"
else
sql="select * from giveme where m_id='"&id&"' and m_lxs='"&lxs&" 'order by id desc"
end if
sql="select * from giveme where m_id='"&id&"'"
rs.open sql,,1,1
if rs.RecordCount = 0 then
%>
<script language =vbscript >
window.alert ("没有这条线路的预订情况！请按确定返回！")
window.location ="admin_select_1.asp"
</script>
<%
else
%>
<br>
<table width="755" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#CCCCCC">
<tr>
<td height="25" width="38" bgcolor="#EFEFEF" align="center">线路ID</td>
<td height="25" width="375" bgcolor="#EFEFEF" align="center">线路名称</td>
<td height="25" width="73" bgcolor="#EFEFEF" align="center">客户名称</td>
<td height="25" width="122" bgcolor="#EFEFEF" align="center">联系电话</td>
<td height="25" width="71" bgcolor="#EFEFEF" align="center">OICQ</td>
<td height="25" width="29" bgcolor="#EFEFEF" align="center">状态</td>
<td height="25" width="39" align="center" bgcolor="#EFEFEF">人数</td>
</tr>
<tr>
<%
while not Rs.eof
%>
<td height="20" width="38" bgcolor="#FFFFFF" align="center"><%=rs("m_id")%></td>
<td height="20" width="375" bgcolor="#FFFFFF"><a href ="admin_seenew_all.asp?id=<%=rs("id")%>" target="_blank" title="点击这里查看此客户预订的祥细情况"> <%=rs("m_xianlu_name")%></a></td>
<td height="20" width="73" bgcolor="#FFFFFF" align="center"><%=rs("m_name")%></td>
<td height="20" width="122" bgcolor="#FFFFFF" align="center"><%=rs("m_phone")%></td>
<td height="20" width="71" bgcolor="#FFFFFF" align="center"><%=rs("m_oicq")%></td>
<td height="20" width="29" bgcolor="#FFFFFF" align="center">
<%if rs("m_show")="1" then%>
<font color ="#ff0000">新</font>
<%else%>
旧
<%end if%>
</td>
<td height="20" width="39" align="center" bgcolor="#FFFFFF"><%=rs("m_renshuo")%></td>
</tr>
<%
Rs.MoveNext
wend
rs.close
conn.close
%>
</table>
<%end if
end if
%>
<br>
<!--#include file="includefile/weibu.asp" -->
</body>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?