ajax.asp

佛山的公交车查询系统

<!-- #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
%>