省市联动菜单V2.0

文件1:province.asp

<%
Sub SelectProvince(byval Province)
 dim Rs,strSQL,Msg
 Msg = ""
 strSQL="select * from Provinces"
 set Rs = Conn.execute(strSQL)
 while not Rs.eof
  if Rs("province")=Province then
   Msg=Msg & "<option value='" & Rs("Province") & "' selected>" & Rs("Province") & "</option>"
  else
   Msg=Msg & "<option value='" & Rs("Province") & "'>" & Rs("Province") & "</option>"
  end if
  rs.movenext
 wend
 Response.write Msg
 Rs.close()
 Set Rs = Nothing
End Sub
%>

文件2:city.asp

<%
Response.write "<script language =""javascript"">"
Response.write "Citys = new Array();"
dim rs,sql,i
sql = "select b.Province,a.City from Citys a,Provinces b where a.ProvID=b.ProvID "
set rs = Conn.execute(sql)
i = 0
while not rs.eof
Response.write "Citys[" & i & "] =new Array(""" & rs("Province") & ""","""  & rs("City") & """);"
i = i + 1
rs.movenext
wend
rs.close
set rs = nothing
Response.write "function changeselect(selvalue,CityName){"
Response.write "var selvalue = selvalue;"
Response.write " var i;"
Response.write " CityName.length = 0 ;"
Response.write " CityName.options[CityName.length] = new Option(""===请选择==="","""");"
Response.write " for (i = 0 ;i <Citys.length;i++){"
Response.write "   if(Citys[i][0]==selvalue){"
Response.write "    CityName.options[CityName.length] = new Option(Citys[i][1],Citys[i][1]);"
Response.write "  }"
Response.write " }"
Response.write "}"
Response.write "</script>"

%>