ajax.asp

来自「是一个公交信息查询系统」· ASP 代码 · 共 18 行

<!-- #include file="inc/config.asp" -->
<% Response.Charset="gbk"%> 
<%
if Request.QueryString.Count>0 Then
	char = Request.QueryString("char")
	stype = Request.QueryString("stype")
	sqlstr="select * from [Station] where qmstation_char='" & char & "'"
	rs.open sqlstr,conn,1,3
	Response.Write "<select name=""station"" onchange=""setq"& stype &"(this.value);"">"
	Response.Write "<option value="""">再选择站点名称</option>"
	while (not rs.eof)
		Response.Write "<option value="""&rs("qmstation_name")&""">"&rs("qmstation_name")&"</option>"
		rs.movenext
	Wend
	rs.close
	Response.Write "</select>"
End if
%>