看看我下面的代码该怎么写,我想实现的是在第一个列表框里改变了所属的省,第二个列表框里自动填上该省所属的市
省的表名:hxf_province(内有两字段:province和provid,前一字段放的是省名,后一字段放的是省名对应该的编号,一一对应没有,如是安徽省对应是的1,北京对应的是2....)
市的表名:hxf_city(内有两字段:city和provid,前一字段是市名,后一字段放的是该市所属省的编号)
我的代码如下:
<!--#include file="conn.asp"-->
<script language=javascript>
    function chkprovchange()
      {
      **************
      }

<select name="selectprov" onchange="javascript:chkprovchange()">
    <%
      set rs=server.createobject("adodb.recordset")
      sql="select * from hxf_province"
      rs.open sql,conn,1,1
      do until rs.eof
      response.write("<option value="&rs("province)&")>"="&rs("province)&"</option>)
      rs.movenext
      loop
    %>
<select name="selectcity" >
    <%
      set rs=server.createobject("adodb.recordset")
      sql="select * from hxf_city where ************** "
      rs.open sql,conn,1,1
      do until rs.eof
      response.write("<option value="&rs("city)&")>"="&rs("city)&"</option>)
      rs.movenext
      loop
    %>
哪位朋友有时间帮我看看上面两处**************该填上些什么代码才能实现我上面要求的功能.先谢谢了.

个人感觉用ajax比较好 明天我给你弄个你这种方法的例子 睡觉了先

本人QQ:1006273056有机会认识一下,交个朋友吧,如果不嫌弃的话

假设你的此文件名为：city.asp

<!--#include file="conn.asp"-->
<script language=javascript>
    function chkprovchange()
      {
      location="city.asp?province="+document.getElementByName("selectprov").value;
      }

<select name="selectprov" onchange="javascript:chkprovchange()">
    <%
      set rs=server.createobject("adodb.recordset")
      sql="select * from hxf_province"
      rs.open sql,conn,1,1
      do until rs.eof
      response.write("<option value="&rs("province)&")>"="&rs("province)&"</option>)
      rs.movenext
      loop
    rs.close
    %>
<select name="selectcity" >
    <%
      sql="select * from hxf_city where provid=(select provid from hxf_province where province='"&trim(request.querystring("province"))&"')"
      rs.open sql,conn,1,1
      do until rs.eof
      response.write("<option value="&rs("city)&")>"="&rs("city)&"</option>)
      rs.movenext
      loop
    %>

我去试一下看看

<script language="javascript">
subcat=new Array();
<%
Dim i
i=0
Set Rs=Server.Createobject("Adodb.Recordset")
Sql="Select * From Hxf_city"
Rs.Open Sql,Conn,1,1
Do while Not Rs.Eof
%>
subcat[<%=i%>]=new Array("<%=Rs("ProId")%>","<%=Rs("City")%>");
<%
i=i+1
Rs.Movenext
Loop
Rs.Close
%>
function chkprovchange(Pid){
  document.all.City.length = 0;
    document.all.City.options[0] = new Option('请选择市','');
    for (i=0; i<subcat.length;i++){
      if (subcat[i][0] == Pid){
        document.all.City.options[document.all.City.length] = new Option(subcat[i][1], subcat[i][1]);
    }
  } 
} 
</script>
<select name="Province" onchange="chkprovchange(this.value)">
  <option>请选择省</option>
  <%
  Set Rs=Conn.Execute("Select * From Hxf_province Order By Provid Desc")
  Do While Not Rs.Eof
  %>
  <option value="<%=Rs("Provid")%>"><%=Rs("Province")%></option>
  <%
  Rs.Movenext
  Loop
  Rs.Close
  Set Rs=Nothing
  %>
</select>
<select name="City" onchange="alert(this.value)">
  <option>请选择市</option>
</select>

<!--#include file="conn.asp"-->
<script language=javascript>
function chkprovchange(){
    location="city.asp?province="+document.getElementByName("selectprov").value;
}
</script>

<select name="selectprov" onchange="javascript:chkprovchange()">
<%
    set rs=server.createobject("adodb.recordset")
    sql="select * from hxf_province"
    rs.open sql,conn,1,1
    if not(rs.eof and rs.bof) then
        rs.movefirst
        while not rs.eof
            response.write "<option value='"&rs("province")&")>"&rs("province")&"</option>"
            rs.movenext
        wend
    end if
    rs.close
%>
</select>
<select name="selectcity" >
<%
    sql="select * from hxf_city where provid=(select provid from hxf_province where province='"&trim(request.querystring("province"))&"')"
    rs.open sql,conn,1,1
    if rs.eof and rs.bof then
        response.Write "<script>alert('None city !')</script>"
        rs.close:set rs=nothing
        response.End()
    else
        rs.movefirst
        while not rs.eof
            response.write "<option value='"&rs("city")&"'>"&rs("city")&"</option>"
            rs.movenext
        wend 
        rs.close:set rs=nothing
    end if
%>
</select>

<!--#include file="conn.asp"-->
<script language=javascript>
function chkprovchange(){
    location="city.asp?province="+document.getElementByName("selectprov").value;
}
</script>

<select name="selectprov" onchange="javascript:chkprovchange()">
<%
    set rs=server.createobject("adodb.recordset")
    sql="select * from hxf_province"
    rs.open sql,conn,1,1
    if not(rs.eof and rs.bof) then
        rs.movefirst
        while not rs.eof
            response.write "<option value='"&rs("provid")&")>"&rs("province")&"</option>"
            rs.movenext
        wend
    end if
    rs.close
%>
</select>
<select name="selectcity" >
<%
    sql="select * from hxf_city where provid="&trim(request.querystring("province"))
    rs.open sql,conn,1,1
    if rs.eof and rs.bof then
        response.Write "<script>alert('None city !')</script>"
        rs.close:set rs=nothing
        response.End()
    else
        rs.movefirst
        while not rs.eof
            response.write "<option value='"&rs("city")&"'>"&rs("city")&"</option>"
            rs.movenext
        wend 
        rs.close:set rs=nothing
    end if
%>
</select>

[[it] 本帖最后由 lackyking 于 2008-12-2 12:30 编辑 [/it]]