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

📄 qmroute_show.asp

📁 佛山的公交车查询系统
💻 ASP
字号:
🔍 
<!-- #include file="inc/config.asp" -->
<%
qmroute_name=request.QueryString("q")
if qmroute_name="" then
  call ShowErr("请输入线路！","1")
end if
response.Write("<html>")
response.Write("<head>")
response.Write("<title>"&qmroute_name&"</title>")
response.Write("</head>")
response.Write("<body>")
%>
<!-- #include file="top.asp" -->
<%
response.Write("<div id='div_1'>所有与公交线路""<span style='color:#FF0000'>"&qmroute_name&"</span>""有关的信息</div>")
sql="select * from [Bus] where qmbus_name='"& qmroute_name &"'"
rs.open sql,conn,1,3
if rs.eof then 
  response.Redirect("qmroute_suggestion.asp?q="& qmroute_name &"")
else
  bus_rate=rs("qmbus_rate")
  bus_ratebz=rs("qmbus_ratebz")
  if hour(rs("qmbus_starttime"))>0 and hour(rs("qmbus_starttime"))<10 then
    bus_starttime=left(rs("qmbus_starttime"),4)
  else
    bus_starttime=left(rs("qmbus_starttime"),5)
  end if
  if hour(rs("qmbus_endtime"))>0 and hour(rs("qmbus_endtime"))<10 then
    bus_endtime=left(rs("qmbus_endtime"),4)
  else
    bus_endtime=left(rs("qmbus_endtime"),5)
  end if
end if
rs.close
response.Write("<div id='div_2'>")
response.Write("<div id='div_2_1'>"&qmroute_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_2'>票价说明：<br>&nbsp;&nbsp;&nbsp;&nbsp;"&bus_ratebz&"</div><hr style='height:1px; width:750px; color:#ECEEF5;'>")
response.Write("<div id='div_2_3'>")
sqlstr="select * from [Route] where qmroute_name='"& qmroute_name &"'"
rs.open sqlstr,conn,1,3
if not rs.eof then
  qmroute_address=rs("qmroute_address")
  qmroute_addupdate=year(rs("qmroute_addupdate"))&"-"&month(rs("qmroute_addupdate"))&"-"&day(rs("qmroute_addupdate"))
  qmroute_address_old_1=split(qmroute_address,"-")
  Num=ubound(qmroute_address_old_1)
  response.Write("<a href='station_show.asp?q="&qmroute_address_old_1(0)&"'>"&qmroute_address_old_1(0)&"</a>")
  for i=1 to Num
    response.Write(" - <a href='station_show.asp?q="&qmroute_address_old_1(i)&"'>"&qmroute_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(qmroute_name,qmroute_addupdate)
response.Write("</div>")
response.Write("</body>")
response.Write("</html>")
%>
<!-- #include file="bottom.asp" -->

⌨️ 快捷键说明

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