⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 route_show.asp

📁 公交查询系统 本系统支持模糊查询
💻 ASP
字号:
<!-- #include file="inc/config.asp" -->
<%
route_name=request.QueryString("q")
if route_name="" then
  call ShowErr("请输入线路!","1")
end if
response.Write("<html>")
response.Write("<head>")
response.Write("<title>"&route_name&"</title>")
response.Write("</head>")
response.Write("<body>")
%>
<!-- #include file="top.asp" -->
<%
response.Write("<div id='div_1'>所有与公交线路""<span style='color:#FF0000'>"&route_name&"</span>""有关的信息</div>")
sql="select * from [Bus] where bus_name='"& route_name &"'"
rs.open sql,conn,1,3
if rs.eof then 
  response.Redirect("route_suggestion.asp?q="& route_name &"")
else
  bus_rate=rs("bus_rate")
  if hour(rs("bus_starttime"))>0 and hour(rs("bus_starttime"))<10 then
    bus_starttime=left(rs("bus_starttime"),4)
  else
    bus_starttime=left(rs("bus_starttime"),5)
  end if
  if hour(rs("bus_endtime"))>0 and hour(rs("bus_endtime"))<10 then
    bus_endtime=left(rs("bus_endtime"),4)
  else
    bus_endtime=left(rs("bus_endtime"),5)
  end if
end if
rs.close
response.Write("<div id='div_2'>")
response.Write("<div id='div_2_1'>"&route_name&"</div>")
response.Write("<div id='div_2_2'>运营时间:"&bus_starttime&"--"&bus_endtime&"&nbsp;&nbsp;&nbsp;&nbsp;票价:"&bus_rate&"</div>")
response.Write("<div id='div_2_3'>")
sqlstr="select * from [Route] where route_name='"& route_name &"'"
rs.open sqlstr,conn,1,3
if not rs.eof then
  route_address=rs("route_address")
  route_addupdate=year(rs("route_addupdate"))&"-"&month(rs("route_addupdate"))&"-"&day(rs("route_addupdate"))
  route_address_old_1=split(route_address,"-")
  Num=ubound(route_address_old_1)
  response.Write("<a href='station_show.asp?q="&route_address_old_1(0)&"'>"&route_address_old_1(0)&"</a>")
  for i=1 to Num
    response.Write(" - <a href='station_show.asp?q="&route_address_old_1(i)&"'>"&route_address_old_1(i)&"</a>")
  next
  response.Write("<span style=""font-size:12px"">(共"& Num+1 &"站)</span>")
end if
rs.close
response.Write("</div>")
call Suggestion(route_name,route_addupdate)
response.Write("</div>")
response.Write("</body>")
response.Write("</html>")
%>
<!-- #include file="bottom.asp" -->

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -