下拉框连动的小例子（数据库版）

asp文件：

<%@ Language=VBScript %>

<%Option Explicit%>









<%

dim conn

dim rs

dim sql

dim count

dim rs1

dim sql1





set conn = server.CreateObject ("adodb.connection")

conn.Open "test","sa",""





sql = "select * from district order by locationid asc"

set rs = conn.execute(sql)

%>

    

        <%

        

        sql1 = "select * from location order by locationname asc"

        set rs1 = conn.Execute (sql1)

        do while not rs1.eof

        %>

        "><%=trim(rs1("locationname"))%>

        <%

        rs1.movenext

        loop

        rs1.close

        set rs1 = nothing

        conn.Close

        set conn = nothing

        %>

    

    

        ==所有地区==

    

数据库：

create table location

(



locationid char(2) not null primary key,

locationname char(50) not null



)





create table district

(



districtid char(3) not null primary key,

districtname char(50) not null,

locationid char(2) not null

)