[转: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>
评论