UC知道ASP+ACCESS下拉列表调用数据库
来源：百度知道 编辑：UC知道 时间：2024/06/06 19:37:24
ASP+ACCESS下拉列表调用数据库
数据库名com
表名chengji
提取字段s_no
<select name="peixunzhuanye" id="peixunzhuanye">
<%
sqlzdzy="select * from chengji order by s_no asc"
set rszdzy=server.CreateObject("adodb.recordset")
rszdzy.open sqlzdzy,conn,1,1
do while not rszdzy.eof
%>
<option value="<%= rs("s_no") %>"> </option>
<%
rszdzy.movenext
loop
%>
</select>
数据库名com
表名chengji
提取字段s_no
<select name="peixunzhuanye" id="peixunzhuanye">
<%
sqlzdzy="select * from chengji order by s_no asc"
set rszdzy=server.CreateObject("adodb.recordset")
rszdzy.open sqlzdzy,conn,1,1
do while not rszdzy.eof
%>
<option value="<%= rs("s_no") %>"> </option>
<%
rszdzy.movenext
loop
%>
</select>
<select name="peixunzhuanye" id="peixunzhuanye">
<%
sqlzdzy="select * from chengji order by s_no asc"
set rszdzy=server.CreateObject("adodb.recordset")
rszdzy.open sqlzdzy,conn,3,1
do while not rszdzy.eof
%>
<option value="<%= rs("s_no") %>"> </option>
<%
rszdzy.movenext
loop
%>
</select>
这个貌似没有问题
不知道你的conn文件是什么
和关于conn的定义
给你一个参考一下
<%
dim conn,connstr
on error resume next
connstr="DBQ="+server.mappath(数据库路径/数据库名)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>
问题处在这里
当时没有看出来
<option value="<%= rs("s_no") %>"> </option>
改成
<option value="<%= rs("s_no&qu