station.asp

来自「本地公交路线路查询网源码 公交查询 路线查询 后台添加公交路线 用」· ASP 代码 · 共 34 行

ASP
34
字号
<!-- #include file="inc/config.asp" -->
<%
station_char = request.QueryString("char")
if station_char="" then
  call ShowErr("请输入站点!","1")
end if
response.Write("<html>")
response.Write("<link type='text/css' href='css/index.css' rel='stylesheet'>")
response.Write("<script language='javascript' type='text/javascript' src='js/qm.js'></script>")
response.Write("<head>")
response.Write("<title>与字母"& station_char &"开头的公交站点列表</title>")
response.Write("</head>")
response.Write("<body>")
%>
<!-- #include file="top.asp" -->
<%
response.Write("<div id='div_1'>所有与字母"& station_char &"开头的公交站点列表</div>")
response.Write("<div id='div_2'>")
sql="select * from [Station] where qmstation_char='"& station_char &"'"
rs.open sql,conn,1,3
if rs.eof then
  response.Redirect("station_suggestion.asp?q="& station_char &"")
else
  While (Not rs.eof)
	Response.Write "<a href=""station_show.asp?q="&rs("qmstation_name")&""">"&rs("qmstation_name")&"</a>"
	rs.movenext
  Wend 
end if
rs.close
response.Write("</div>")
response.Write("</body>")
response.Write("</html>")
%>
<!-- #include file="bottom.asp" -->

⌨️ 快捷键说明

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