ASP 二级联动下拉框

<form action="memberEdit.asp" method="post"  name="form1">

<script>
<!--
<%
'二级数据保存到数组
Dim count1,cityRS,citySQL
set cityRS=server.createobject("adodb.recordset")
citySQL="select * from city order by shiorder" 
cityRS.open citySQL,conn,1,1
%>
var subval2 = new Array();
//数组结构：一级根值,二级根值,二级显示值
<%
count1 = 0
do while not cityRS.eof
%>
subval2[<%=count1%>] = new Array('<%=cityRS("Shengid")%>','<%=cityRS("id")%>','<%=cityRS("shiname")%>')
<%
count1 = count1 + 1
cityRS.movenext
loop
cityRS.close
%>
function changeselect1(locationid)
{
    document.form1.city.length = 0;
    document.form1.city.options[0] = new Option('请选择城市','');
    for (i=0; i<subval2.length; i++)
    {
        if (subval2[i][0] == locationid)
        {document.form1.city.options[document.form1.city.length] = new Option(subval2[i][2],subval2[i][1]);}
    }
}
//-->
        </script>
  <select name="province" class="buttonmain" id="province" onChange="changeselect1(this.value)">
  <option value="">请选择省份</option>
  <%
  dim provinceRS,provinceSQL
  set provinceRS = server.createobject("adodb.recordset")
  provinceSQL = "select * from province order by shengorder"
  provinceRS.open provinceSQL,conn,1,1
  do while not provinceRS.eof
    if provinceRS("id") = province then
       response.Write "<option value="&provinceRS("id")&" selected>"&provinceRS("shengname")&"</option>"
    else
       response.Write "<option value="&provinceRS("id")&">"&provinceRS("shengname")&"</option>"
    end if
    
  provinceRS.movenext
  loop
  provinceRS.close
  set provinceRS = nothing
  %>
        </select>
          <select name="city" class="buttonmain" id="city">
    <option value="">请选择城市</option>
       </select> 

</form>