getprovince.asp

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

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

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

sql="select CityID, CityPostCode, CityName from ChinaCity where 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"),2)&"-"&rs("CityName") & ","
	rs.movenext
wend
			
rs.close
con.close

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