level 5
无敌VS超人
楼主
代码：<!--#include file=conn.asp -->
<script language=javascript >
sall=new Array();
<%
dim i
i=0
set rs=server.CreateObject("adodb.recordset")
sql="select xs,ldqx from chengji GROUP BY xs,ldqx "
rs.open sql,link,1,1
if not rs.eof then
do until rs.eof
%>
sall[<%=i%>]=new Array("<%=rs("xs")%>","<%=rs("ldqx")%>");
<%
i=i+1
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
function changeselect(selvalue)
{
document.all.xl.length=0;
var selvalue=selvalue;
var i;
for(i=0;i<sall.length;i++)
{
if(sall[i][0]==selvalue)
{
var newOption1=new Option(sall[i][2],sall[i][1]);
document.all.xl.add(newOption1);
}
}
}
function display()
{
document.all("div").value=document.all("dl").value;
}
</script>
<body>
<form id="form1" name="form1" method="post" action="search.asp">
<p>选择县市：
<label></label>
<select name="dl" ID="dl" onChange="changeselect(document.all.dl.options[document.all.dl.selectedIndex].value)">
<option>请选择</option>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select xs from chengji GROUP BY xs"
rs.open sql,link,1,1
do while not rs.eof
%>
<option value="<%=rs("xs")%>"><%=rs("xs")%></option>
<%
rs.movenext
loop
rs.close
set rs=nothing
link.close
set link=nothing
%>
</select>
<select name="xl" ID="xl">
<option>请选择</option>
</select>
<input type="submit" name="Submit" value="生成" />
<input type="reset" name="Submit2" value="重置" />
</p>
<p><input name="FieldName" type="text" id="FieldName" >
</p>
</form>
</body>
请大神们帮忙修改
