你好！关于ASP 下拉菜单读取 access 的问题

可以用联动菜单来实现。<!--初始化一下-->

<%ppchoosed = 0

xhchoosed = 0%>

<%choosepp = request.form("pinpai")

choosexh = request.form("xinghao")%>

<!--判断一下有没有选择品牌，有没有选择型号-->

<%Set rs = Server.CreateObject ("ADODB.Recordset")

sql = "select 手机品牌 from 机型 where 手机品牌 = '"&choosepp&"'"

rs.Open sql,conn,1,1

if choosepp = "" then

ppchoosed = 0

else

if rs.recordcount<1 then

choosepp = ""

ppchoosed = 0

else

ppchoosed = 1

end if

end if

rs.close

Set rs = Nothing

if ppchoosed = 1 then

Set rs = Server.CreateObject ("ADODB.Recordset")

sql = "select "&choosepp&" from 机型"

rs.Open sql,conn,1,1

if choosexh = "" then

xhchoosed = 0

else

if rs.recordcount<1 then

choosexh = ""

xhchoosed = 0

else

xhchoosed = 1

end if

end if

rs.close

Set rs = Nothing

else

xhchoosed = 999

end if

Set rs = Server.CreateObject ("ADODB.Recordset")

sql = "select 手机品牌 from 机型"

rs.Open sql,conn,1,1%>

<form name="form1" method="post">

<select name="pinpai" size="1" onChange="submit()">

<%if ppchoosed = 0 then%>

<option value="" selected>请选择品牌</option>

<%end if%>

<%for i = 1 to rs.RecordCount

if rs("手机品牌") <>"" then

if choosepp = rs("手机品牌") then%>

<option value="<%=rs("手机品牌")%>" selected><%=rs("手机品牌")%></option>

<%else%>

<option value="<%=rs("手机品牌")%>"><%=rs("手机品牌")%></option>

<%

end if

end if

rs.MoveNext

next%>

</select>

<%rs.close

Set rs = Nothing%>

<select name="xinghao" size="1" onChange="submit()">

<%if ppchoosed = 0 then%>

<option value="" selected>请选择型号</option>

<%else

Set rs = Server.CreateObject ("ADODB.Recordset")

sql = "select "&choosepp&" from 机型"

rs.Open sql,conn,1,1

if xhchoosed = 0 then%>

<option value="" selected>请选择型号</option>

<%end if%>

<%for i = 1 to rs.RecordCount

if rs(choosepp) <>"" then

if choosexh = rs(choosepp) then%>

<option value="<%=rs(choosepp)%>" selected><%=rs(choosepp)%></option>

<%else%>

<option value="<%=rs(choosepp)%>"><%=rs(choosepp)%></option>

<%end if

end if

rs.MoveNext

next

rs.close

Set rs = Nothing

conn.close

set conn=Nothing

end if

%>

</select>

</form>手机型号 诺基亚 三星摩托罗拉

————————————————————

诺基亚3230 D508 A780

三星 6100 E818 E680

摩托罗拉 QD C208 V3

<select name="fl" id="fl">

<option value="">请选择</option>

<%

sql = "select classname from exam_class order by classorder asc" 'exam_class表名。classname字段名

set drs = conn.execute(sql)'conn是数据库连接

if not drs.eof then

while not drs.eof

response.Write "<option value='"&drs(0)&"' "&se&">"&drs(0)&"</option>"

drs.movenext

wend

end if

drs.close

set drs = nothing

%></select>

---