<SCRIPT LANGUAGE=javascript>
<!--
var prv=new Array()//医院
var cty=new Array()//级别
var khlb=new Array()//类别
function init(){
<%
dim prv,cty,khlb,i,j,k
dim sq1
i=0
//sq1=document.frm.sq.value
set prv=conn.execute("select yy_mingcheng from sale_manage_khda_mbyyda where dy_bianma='"&s_dy_bianma&"' order by yy_mingcheng")
if not prv.eof then
do while not prv.eof
j=0
k=0
%>
prv[<%=i%>]="<%=trim(prv("yy_mingcheng"))%>";
<%
set cty=conn.execute("select yylb_mingcheng from sale_manage_bianma_yylb as a join sale_manage_khda_mbyyda as b on b.yy_leibie=a.yylb_bianma where b.yy_mingcheng = '"&trim(prv("yy_mingcheng"))&"'")
if not cty.eof then%>
cty[<%=i%>]=new Array()
<%do while not cty.eof%>
cty[<%=i%>][<%=j%>]="<%=trim(cty("yylb_mingcheng"))%>"
<%j=j+1
cty.movenext
loop
end if
cty.close :set cty=nothing
%>
<%
set khlb=conn.execute("select khb_shuoming from sale_base_khlx as a join sale_manage_khda_mbyyda as b on b.khb_bianma=a.khb_bianma where b.yy_mingcheng = '"&trim(prv("yy_mingcheng"))&"'")
if not khlb.eof then%>
khlb[<%=i%>]=new Array()
<%do while not khlb.eof%>
khlb[<%=i%>][<%=k%>]="<%=trim(khlb("khb_shuoming"))%>"
<%k=k+1
khlb.movenext
loop
end if
khlb.close :set khlb=nothing
i=i+1
prv.movenext
loop
end if
prv.close :set prv=nothing
%>
if(prv.length >0){
for(i=0;i<prv.length;i++)
with(document.frm.province)options[length]=new Option(prv[i],prv[i])
document.frm.province.onchange=new Function("go(this.selectedIndex)")
}
}