<!--#include file="conn.asp"-->
<%
sqlc="select * from [info] where id=81"
set rsc=server.createobject("adodb.recordset")
rsc.open sqlc,conn,1,1
function DbCombox()
dim rs,sql,msg
sql = "select * from hangye"
set rs = conn.execute(sql)
while not rs.eof
msg = msg & "<option value=""" & rs("hangye") & """>" & rs("hangye") & "</option>"
rs.movenext
wend
rs.close
set rs = nothing
DbCombox = msg
End function
%>
<script language ="javascript" >
SMALLCLASSs = new Array();
<%
dim rs,sql,i
sql = "select * from zihangye"
set rs = Conn.execute(sql)
i = 0
while not rs.eof
%>
SMALLCLASSs[<%=i%>] =new Array("<%=rs("hangye")%>","<%=rs("zihangye")%>");
<%
i = i + 1
rs.movenext
wend
rs.close
set rs = nothing
%>
function changeselect(selvalue){
var selvalue = selvalue;
var i;
document.form2.SMALLCLASS.length = 0 ;
document.form2.SMALLCLASS.options[document.form2.SMALLCLASS.length] = new Option("请选择","");
for (i = 0 ;i <SMALLCLASSs.length;i++){
if(SMALLCLASSs[i][0]==selvalue){
document.form2.SMALLCLASS.options[document.form2.SMALLCLASS .length] = new Option(SMALLCLASSs[i][1],SMALLCLASSs[i][1]);
}
}
}
document.form2.SMALLCLASS.options[document.form2.SMALLCLASS.length] = new Option("请选择","");
</script>
<table>
<tr>
<td height="24">所属主行业</td>
<td>
<select size="1" name="BIGCLASS" onchange ="changeselect(document.form2.BIGCLASS.options[document.form2.BIGCLASS.selectedIndex].value)">
<option value=<%=rsc("hangye")%> selected><%=rsc("hangye")%></option>
<%=DbCombox()%>
</select></td>
<td width="14%">所属子行业</td>
<td width="38%"><select size="1" name="SMALLCLASS">
<option value=<%=rsc(zihangye)%> selected><%=rsc("zihangye")%></option>
</select> </td>
</tr>
</table>