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

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)
%