html二级菜单调用asp函数,我的ASP之旅—二级联动菜单制作

以下为引用的内容：

dim sql,i,j

'//读出 Province 表//

set rs_Province=server.createobject("adodb.recordset")

sql="select * from Province order by ProvinceOrder"

rs_Province.open sql,conn,1,1

%>

var selects=[];

selects['xxx']=new Array(new Option('请选择城市……','xxx'));

for i=1 to rs_s.recordcount

%>

selects['']=new Array(

'//读出 City 表//

set rs_City=server.createobject("adodb.recordset")

sql="select * from City where ProvinceID="&rs_Province("id")&" order by ProvinceOrder"

rs_City.open sql,conn,1,1

if rs_City.recordcount>0 then

for j=1 to rs_City.recordcount

if j=rs_City.recordcount then

%>

new Option('',''));

new Option('',''),

end if

rs_City.movenext

next

else

%>

new Option('','0'));

end if

rs_City.close

set rs_City=nothing

rs_Province.movenext

next

rs_Province.close

set rs_Province=nothing

%>

function chsel(){

with (document.form1){

if(province_select.value) {

city_select.options.length=0;

for(var i=0;i

city_select.add(selects[province_select.value][i]);

}

}

}

}