trade.asp ASP+ACCESS在线人才招聘网(源代码+论文) - ASP源码程序

www.gusucode.com > ASP+ACCESS在线人才招聘网(源代码+论文) > ASP+ACCESS在线人才招聘网(源代码+论文)\inc\trade.asp

    <!--#include file="../inc/conn.asp"-->
<script>
function changeselect()
{
var num=document.fm1.gtype_search.options[fm1.gtype_search.selectedIndex].value;
switch (num)
{
<%main_id=0
  i=0
  sql="select * from trade_sub order by main_id"
  Set Rst=Server.CreateObject("Adodb.recordSet")
  Rst.Open sql,conn,1,1
  While Not Rst.Eof%>
<%if main_id<>Rst("main_id") then%>
case "<%=Rst("main_id")%>" :
<%sqlt="select count(*) as count from trade_sub where main_id="& Rst("main_id")
  Set Rrs=conn.execute(sqlt)%>
document.fm1.gsubtype_search.options.length=<%=Rrs("count")%>;
<%End If%>
document.fm1.gsubtype_search.options[<%=i%>].text='<%=Rst("sub_name")%>'
document.fm1.gsubtype_search.options[<%=i%>].value=<%=Rst("sub_id")%>;
<%
main_id=Rst("main_id")
Rst.MoveNext
if not Rst.Eof then
  if main_id<>Rst("main_id") then%>
     break;
   <%
    i=0
   else 
    i=i+1
   end If
end if
Wend
Rst.Close%>
break;
default:
document.fm1.gsubtype_search.options.length=1;
document.fm1.gsubtype_search.options[0].text='没有子分类'
document.fm1.gsubtype_search.options[0].value=0;
break;
} 
}
 </script>
  行业一级分类 
  <select name='gtype_search' onChange="javascript:changeselect()" class="imgClass">
 <option value='0' selected>选择分类</option>
<%sql="select * from trade_main order by main_id"
  Rst.Open sql,conn,1,1
  while Not Rst.Eof%>
<option value='<%=Rst("main_id")%>'><%=Rst("main_name")%></option>
<%Rst.Movenext
  Wend
  Rst.close%>
</select><br><br>
  行业二级分类
   <select name='gsubtype_search' class="imgClass">
<option value='0' selected>选择子分类</option>
</select>
<html></html>