<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>车次查询</title>
<link rel="stylesheet" href="css1.css" type="text/css"> 
<STYLE type=text/css>TD {
	FONT-SIZE: 9pt; LINE-HEIGHT: 14px
}
A {
	COLOR: #000000; TEXT-DECORATION: none
}
A:hover {
	COLOR: #000000; TEXT-DECORATION: underline
}
#ancf {
	COLOR: #ffffff; TEXT-DECORATION: none
}
#bd {
	FONT-SIZE: 9pt
}
.style3 {
	COLOR: #ff0000
}
</STYLE>
</head>

<body>
<center>
<%response.Write("<table width=""777"" border=""0"" cellpadding=""0"" cellspacing=""3"">")
 response.Write(" <!--DWLayoutTable-->")%>

  <tr> 
    <td width="100%" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="2">
        <!--DWLayoutTable-->
        <tr> <td width="160" valign="top"><!--#include file="leftmenu.asp"--></td>
          <td width="100%" valign="top">
		  <%
		  if request("checi")="" then
		   response.Write("<center><table cellspacing=1 CLASS=""table1"" height=""100%""><tr><td CLASS=""td1"" height=""100%""><font color=000000>对不起，没有找到"&request("checi")&"次列车。</font></td></tr></table></center>")
		else

		  set rs=Server.CreateObject("Adodb.Recordset")
		  sql="select * from [stationinfo] where checi like '"&request("checi")&"/%' or checi like '%/"&request("checi")&"' or checi='"&request("checi")&"' order by stationno"
		  rs.open sql,trainconn,1,1
		  if rs.eof or rs.bof then
		  response.Write("<center><table cellspacing=1 CLASS=""table1"" height=""100%""><tr><td CLASS=""td1"" height=""100%""><font color=000000>对不起，没有找到"&request("checi")&"次列车。</font></td></tr></table></center>")
		  else
		response.Write(" <center> <table cellspacing=1 CLASS=""table1""> <tr><td colspan=4 CLASS=""td1""><font color=000000>当前列车："&rs("checi")&" 次</font></td></tr>")
		response.Write(" <tr>  <td CLASS=""td2""><font color=000000>停靠站</font></td> <td CLASS=""td2""><font color=000000>到达时刻</font></td> <td CLASS=""td2""><font color=000000>开车时刻</font></td> <td CLASS=""td2""><font color=000000>里程</font></td></tr> ")

		  for i =  1 to rs.recordcount
		  %>
		<%response.Write(" <tr> <TD VAlign=top CLASS=""td3""><div align=center>")
		 if rs("name")=request("flag") or rs("name")=request("flag1") or rs("name")="信阳" then response.Write("<font color=red><b>")
		 response.Write(rs("name"))
		 if rs("name")=request("flag") or rs("name")=request("flag1") then response.Write("</b></font>")
response.write("</div></TD> <TD VAlign=top CLASS=""td3""><div align=center>"&rs("arrtime")&"</div></TD> <TD VAlign=top CLASS=""td3""><div align=center>"&rs("starttime")&"</div></TD> <TD VAlign=top CLASS=""td3""><div align=center>"&rs("distance")&"</div></TD> </tr>")
   
		rs.movenext
		next
	
		response.Write(" </TABLE> </center><center><a href='javascript:history.go(-1)'>返回</a> </center>")
		end if
		 end if
		response.Write("</td></tr></table></td></tr>") %>
    <tr> 
      <td valign="top"><!--DWLayoutEmptyCell-->&nbsp;</td>
    </tr>
<%
    response.Write("</table></center></body></html>")
%>
<!--#include file="bottom.asp"-->


