[转:http://www.xz-show.cn/bbs/ShowPost.asp?ThreadID=782] <form name="isc" method="post" action="sanjiliandong.asp">  <table width="572" height="53" border="0" align="center" cellpadding="0" cellspacing="0" style="border:1px solid black;">    <tr align="center">      <td width="177"> <select name="s1">                        <option selected>请选择省</option>                      </select></td>      <td width="191"><select name="s2">                        <option value=" " selected>请选择市</option>                      </select></td>      <td width="204"><select name="s3" >                        <option value=" " selected>请选择县</option>                      </select></td>    </tr>    <tr align="center">      <td>请输入查找关键字：</td>      <td><input name="content" type="text" class="input1"></td>      <td><input name="Submit" type="submit" class="input2" value="查找>>"></td>    </tr>     <%      dim rsy,rsyy,rsyyy      dim strSQLy      dim shengid      dim shiid      dim xianid      dim menu,menu2,menu3      Set rsy = Server.CreateObject("ADODB.Recordset")      Set rsyy = Server.CreateObject("ADODB.Recordset")      Set rsyyy = Server.CreateObject("ADODB.Recordset")      strSQLy = "SELECT * FROM sheng"      rsy.Open strSQLy,Conn,1,1      menu=chr(44)&chr(34)&"请选择省"&chr(34)&chr(44)&chr(34)&"null"&chr(34)&chr(44)&"["&chr(34)&"请选择市"&chr(34)&chr(44)&chr(34)&"null"&chr(34)&chr(44)&"["&chr(34)&"请选择县"&chr(34)&chr(44)&chr(34)&"null"&chr(34)&chr(44)&chr(34)&"null"&chr(34)&"]]"      while not rsy.eof            menu=menu&chr(44)&chr(34)&rsy("shengname")&chr(34)&chr(44)&chr(34)&rsy("shengid")&chr(34)           rsyy.open "select * from shi where shengid="&rsy("shengid"),conn,1,1         menu2=chr(44)&chr(34)&"请选择市"&chr(34)&chr(44)&chr(34)&"null"&chr(34)&chr(44)&"["&chr(34)&"请选择县"&chr(34)&chr(44)&chr(34)&"null"&chr(34)&chr(44)&chr(34)&"null"&chr(34)&"]"         if rsyy.eof then             menu2=right(menu2,len(menu2)-1)            menu=menu&",["&menu2&"]"           else                          while not rsyy.eof                  menu2=menu2&chr(44)&chr(34)&rsyy("shiname")&chr(34)&chr(44)&chr(34)&rsyy("shiid")&chr(34)                 rsyyy.open "select * from xian where shiid="&rsyy("shiid"),conn,1,1                menu3=chr(44)&chr(34)&"请选择县"&chr(34)&chr(44)&chr(34)&"null"&chr(34)&chr(44)&chr(34)&"null"&chr(34)                if rsyyy.eof then                    menu3=right(menu3,len(menu3)-1)                    menu2=menu2&",["&menu3&"]"                else                    while not rsyyy.eof                         menu3=menu3&chr(44)&chr(34)&rsyyy("xianname")&chr(34)&chr(44)&chr(34)&rsyyy("xianid")&chr(34)&",null"                        rsyyy.movenext                    wend                                        menu3=right(menu3,len(menu3)-1)                    menu2=menu2&",["&menu3&"]"                end if                rsyyy.close                rsyy.movenext              wend                            menu2=right(menu2,len(menu2)-1)              menu=menu&",["&menu2&"]"           end if         rsyy.close         rsy.movenext      wend      rsy.close      menu="["&right(menu,len(menu)-1)&"]"       %><script language="JavaScript"><!-- selector = [ "s1", "s2", "s3"];menu = <%=menu%>;function wizz(level){ if( level == 3 ) return; if( level == 0 )  a = menu; else {  str = "menu";  for( i=0; i<level; i++ )   str += "[" + (isc[selector].selectedIndex * 3 + 2)  + "]";  a = eval(str); }  if( a == null ) return;  s = isc[selector[level]];  i = s.length;  while( i > 0 ) s.options[--i] = null; while( i < Math.floor(a.length/3) )  s.options = Option( a[i*3], a[i++*3+1] ); s.onchange = Function("wizz(" + (level+1) + ")"); wizz(level+1);} wizz(0);//--></script>....</form>

评论