您的位置：首页 → 网页设计 → ASP实例 → 下拉框连动的小例子（数据库版）

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

时间：2004/11/7 2:51:00来源：本站整理作者：蓝点我要评论(0)

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

)

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论

查看所有0条评论>>

发表评论

我来说两句...

提交评论