2级联动下拉框 问题
我的代码里选项都是死的
我想把他们从数据库里读出
该怎么写
我的代码:
<%
'说明：
'假设父亲下拉框（省份）的值为：河北省     山西省     山东省；儿子下拉框（城市）的值为：石家庄   保定   邯郸   阳泉   太原   德州   济南   济宁
'河北省对应石家庄   保定   邯郸
'山西省对应阳泉   太原
'山东省对应德州   济南   济宁
%>
<%
'把父亲的值列表和儿子的值列表赋给数组（代替数据库表，道理一样）
dim   arr_shengfen(3),arr_chengshi(8)
arr_shengfen(0)= "河北省 "
arr_shengfen(1)= "山西省 "
arr_shengfen(2)= "山东省 "

arr_chengshi(0)= "石家庄 "
arr_chengshi(1)= "保定 "
arr_chengshi(2)= "邯郸 "
arr_chengshi(3)= "阳泉 "
arr_chengshi(4)= "太原 "
arr_chengshi(5)= "德州 "
arr_chengshi(6)= "济南 "
arr_chengshi(7)= "济宁 "

'判断有没有提交过来的省份，如果没有，则默认省份为河北省
if   request( "shengfen ")= " "   then
      shengfen= "河北省 "  
else
      shengfen=request( "shengfen ")
end   if

response.write   " <form   name=form1   method=post   action=guanlian.asp> "

'给shengfen下拉框赋值，并让它选中提交过来的省份
response.write   " <select   name=shengfen   onchange=tijiao();> "                                                           '注意select下拉框的onchange事件，它在下拉框的被选中的值发生变化时触发，触发后执行javascript函数tijiao()
for   i=0   to   ubound(arr_shengfen)-1
      if   (shengfen=arr_shengfen(i))   then
            response.write   " <option   value= "&arr_shengfen(i)& "   selected> "&arr_shengfen(i)           '如果是传来的省份的值，则选中
      else
            response.write   " <option   value= "&arr_shengfen(i)& "> "&arr_shengfen(i)                             '如果不是传来的省份的值，则不选中
      end   if
next
response.write   " </select> "

'根据shengfen下拉框选中的值，给chengshi下拉框赋相对应的值
if   (shengfen= "河北省 ")   then
      i=0
      j=2
elseif   (shengfen= "山西省 ")   then
      i=3
      j=4
else
      i=5
      j=7
end   if
response.write   " <select   name=chengshi> "
for   m=i   to   j
      response.write   " <option   value= "&arr_chengshi(m)& "> "&arr_chengshi(m)
next
response.write   " </select> "
response.write   " </form> "
%>
<script   language=javascript>
//该函数实现form1表单提交。
//也就是省份下拉框选中的值一发生变化，就提交form到服务器端asp执行，asp根据目前的省份选中的值－－request( "shengfen ")，重新给城市下拉框赋值
function   tijiao()
{
        document.all.form1.submit();  
}
</script>

------解决方案--------------------
<%@LANGUAGE= "VBSCRIPT " CODEPAG