注册 登录
编程论坛 ASP技术论坛

[求助]下拉菜单和数据库问题

raoyafei 发布于 2007-08-11 10:21, 461 次点击
我要做个下拉菜单从数据库读数据,这个我做到了,但是我要修改此信息时,我想让他的默认选项为我添加数据时的选项该怎么做呢?下面是我的代码,这样不能实现!!5555
diqu=另一个表中读出的数据(此表为我添加信息的表)
<select name="diqu" id="diqu">
<%
set rs2=server.CreateObject("adodb.recordset")
sql2="select * from YZ_Area order by AreaID asc"
rs2.open sql2,conn,1,1
For i = 1 to rs2.RecordCount
if rs2.eof then
Exit For
end if
%>
<option value="<%=rs2("AreaID")%>" <%if diqu=rs2("AreaID") then response.write "selected"%>><%=rs2("AreaName")%></option>
<%
rs2.movenext
next
rs2.close
set rs2=nothing
%>
</select>
6 回复
#2
愿望2007-08-11 10:30
rs2.open sql2,conn,1,3
#3
raoyafei2007-08-11 10:53
不是这个原因,我的意思是,我先添加了数据到数据库中,上面代码是修改页面,比如我添加时选择的是北京,我想在修改时直接显示北京,不显示“请选择”。
#4
raoyafei2007-08-11 11:22
<select name="bm" id="bm">
<option value="" <%if rs("bm")="" then response.write "selected"%>>请选择编码</option>
<option value="a" <%if rs("bm")="a" then response.write "selected"%>>a</option>
<option value="b" <%if rs("bm")="b" then response.write "selected"%>>b</option>
<option value="c" <%if rs("bm")="c" then response.write "selected"%>>c</option>
</select>
不用数据库这个功能可以实现,谁可以帮帮我啊?
#5
madpbpl2007-08-11 11:47
<select name="diqu" id="diqu">
<%
set rs2=server.CreateObject("adodb.recordset")
sql2="select * from YZ_Area order by AreaID asc"
rs2.open sql2,conn,1,3
%>
<option value="<%=rs2("AreaID")%>" selected><%=rs2("AreaName")%></option>

<% For i = 1 to rs2.RecordCount
if rs2.eof then
Exit For
end if
%>
<option value="<%=rs2("AreaID")%>" <%if diqu=rs2("AreaID") then response.write "selected"%>><%=rs2("AreaName")%></option>
<%
rs2.movenext
next
rs2.close
set rs2=nothing
%>
</select>
试试这样行不行。
不过一般不是这样做的,修改文件时要有一个值要传过去的,用来确定你要修改哪个文件。
一般sql会这样写
sql2="select * from YZ_Area where condition order by AreaID asc"
#6
raoyafei2007-08-11 11:48
我自己解决了
程序完全正确,变量的数据类型错了。
#7
raoyafei2007-08-11 11:53

谢谢5楼朋友!
我传了值的,diqu就是另一个表通过ID判断出的值。
我的问题找到了,不是你说的这样,是数据类型错了。

1