getcity.asp

来自「ajax 通过省份名显示城市名称,这个源码经测试通过」· ASP 代码 · 共 27 行

<%@LANGUAGE="VBSCRIPT.Encode" CODEPAGE="65001"%>
<!--#include file="Inc/conn.inc"-->
<%
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.cachecontrol = "no-cache"

provinceId = CInt(request("provinceId"))

set con=getConn()
set rs=getRs()

sql="select CityID, CityPostCode, CityName from ChinaCity where Right(CityPostCode, 2) = '00'"
sql=sql&" and Left(CityPostCode, 2)='"&provinceId&"' and Right(CityPostCode, 4) <> '0000' order by [CityID]"
rs.open sql,con,1,1
			
while not rs.bof and not rs.eof
	outStr=outstr & Left(rs("CityPostCode"), 4)&"-"&rs("CityName") & ","
	rs.movenext
wend
			
rs.close
con.close

outStr=left(outStr, len(outStr)-1)	'remove the last ','
response.Write(outStr)
%>