Ajax级联操作

      Web项目中总是会用到异步操作，现在的异步操作可以用各种各样的控件来实现，但实现原理还是一样的，本人更喜欢使用最原始的Ajax操作去实现异步处理，本文仅献给那些喜欢实现Ajax和项目中要用到Ajax的朋友。
      Ajax实现原理就是客户端通过javascript操作调用服务器端操作，并处理服务器返回结果，同时保证了用户操作的页面不出现刷新操作。
      下面的实现是一个实现了省市区县级联操作的实例：
所在城市：<select name="province" class="input font12" onchange="refreshList(this.options[this.selectedIndex].value,'city');">
<%
Sql = "select * from s_province t order by provcode asc"
Set Rs = Conn.execute(Sql)
Dim i,provcode,citycode,areacode
i=1
Do while not Rs.eof
provcode = Rs("provcode")
If i=1 Then
Response.write "<option value="""&Rs("provcode")&""" selected>"&Rs("provname")&"</option>"
Else
Response.write "<option value="""&Rs("provcode")&""" >"&Rs("provname")&"</option>"
End If
i = i+1
Rs.movenext
Loop
Rs.Close
Set Rs = nothing
%>
</select>

<select name="city" id="city" class="input font12" onchange="refreshList(this.options[this.selectedIndex].value,'area');">
<%
SQL = "select * from s_city t Where t.provcode='"&provcode&"'"
Set Rs = Conn.execute(Sql)
i = 1
Do while not Rs.eof
If i=1 Then citycode = Rs("citycode")
Response.write "<option value="""&Rs("citycode")&""">"&Rs("cityname")&"</option>"
i = i+1
Rs.movenext
Loop
Rs.Close
Set Rs = nothing
%>
</select>
<select name="area" id="area" class="input font12" onchange="refreshList(this.options[this.selectedIndex].value,'street');">
<%
SQL = "select * from s_area t Where t.citycode=