help me !!!waiting online..... - ASP技术论坛

问题点数：0 回复次数：7

help me !!!waiting online.....

请问：在同一个页面中，一个下拉框能用另一个下拉框的值吗？如果可以的话为什么下面的代码有错误呢？
<select size="1" class="style3" id="select" name=select >
<option selected>出租转让</option>
<option>积压物资</option>
<option>商务合作</option>
<option>求租求购</option>
</select>　　　　　
<select name="scid" size="1">
<%
dim bc
bc='"select.value"'
set rs0 =server.createobject("adodb.recordset")
sql0="select * from no1 where " no1name='"&bc&"'"
rs0.open sql0,conn,1,1

搜索更多相关主题的帖子: waiting　online　help　

第 2 楼

得分:0

好深奥呀，偶不懂，偶是初学者....
能就我的问题给解决一下吗？？呵呵....先谢啦！！

第 3 楼

得分:0

好的，我试试吧，谢谢你啦！！！

第 4 楼

得分:0

我感觉你是理解错了我的意思了吧：：

<select size="1" class="style3" id="select2" name=select >
<option selected value=出租转让 >出租转让</option>
<option value=积压物资>积压物资</option>
<option value=商务合作>商务合作</option>
<option value=求租求购>求租求购</option>
</select>　　//这个select 的值供下面的select使用　　　
<select name="scid" size="1">
<%
dim bc
bc='select.value' //使用该值
set rs0 =server.createobject("adodb.recordset")
sql0="select * from no1 where " no1name='"&bc&"'"
rs0.open sql0,conn,1,1

set rs =server.createobject("adodb.recordset")
sql="select * from no2 where no1id='"&rs0("no1id")&"'"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.Write "<option selected>请选择类别</option>" 　
else
do while not rs.eof
response.Write "<option value="&rs("no2id")&">"&rs("no2name")&"</option>"
rs.movenext
Loop
end if
%>
</select>
<%
rs.close
rs0.close
set rs=nothing
set rs0=nothing
%>

[此贴子已经被作者于2005-11-25 13:39:02编辑过]

第 5 楼

得分:0

那么在一个页面中一个select 不可以取另一个select的值吗? (:
　不可以用select名.value取值吗？

第 6 楼

得分:0

哦，那如果我想那样用的话应该怎么办呀，但是要求必须在同一个页面中呀？！

第 7 楼

得分:0

<div align="left">
<form action="Aruku.asp" method=post name="form1" id="form1">
<table border="1" cellpadding="0" cellspacing="0" width="604" height="394">
<tr>
<td width="16" height="369" valign="top" bgcolor="#D5DDEA" rowspan="7">　</td>

<td width="582" height="36" valign="middle" bgcolor="#D5DDEA">
<p align="center"><font size="2">  </font><font size="4" color="#FF0000">增加信息</font>
</td>
</tr>
<tr>
<td width="582" height="3" valign="bottom" bgcolor="#D5DDEA"><font size="2">
　 </font></td>
</tr>
<tr>
<td width="582" height="20" valign="top" bgcolor="#D5DDEA"><font size="2"> 
标  题：
<input type="text" name="title" size="57">
</font></td>
</tr>
<tr>
<td width="582" height="227" valign="top" bgcolor="#D5DDEA">
<p align="center"><font size="3">内容:</font><font size="3"><br>
</font><font size="2">
<br>
<textarea rows="11" name="content" cols="77"></textarea>
</font></p> </td>
</tr>
<tr >
<td width="582" valign="middle" bgcolor="#D5DDEA" heitht="1">
<p> </p>
<p><font size="2">日  期： 
<input name="addtime" type="text" value="<% =now %>" size="27">
</font></p>
<p align="left">　</td>
</tr>
<tr>
<td bgcolor="#D5DDEA" heitht="1"><font size=2>选择类别：</font><span class="style3">

<select size="1" class="style3" id="select2" name=select >
<option selected value="出租转让">出租转让</option>
<option value="积压物资">积压物资</option>
<option value="商务合作">商务合作</option>
<option value="求租求购">求租求购</option>
</select>　　　　　
<select name="scid" size="1">
<%
dim bc
bc='select.value'
set rs0 =server.createobject("adodb.recordset")
sql0="select * from no1 where " no1name='"&bc&"'"
rs0.open sql0,conn,1,1

set rs =server.createobject("adodb.recordset")
sql="select * from no2 where no1id='"&rs0("no1id")&"'"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.Write "<option selected>请选择类别</option>" 　
else
do while not rs.eof
response.Write "<option value="&rs("no2id")&">"&rs("no2name")&"</option>"
rs.movenext
Loop
end if
%>
</select>////两个select
<%
rs.close
rs0.close
set rs=nothing
set rs0=nothing
%>
<input type=hidden name=bcid value="<%=rs0("no1id")%>">
</span></td>
</tr>
<tr>
<td width="582" height="1" valign="top" bgcolor="#D5DDEA">
<p align="center">      <br>
  <input type="submit" value="提交" name="B1">        
<input type="reset" value="全部重写" name="B2">      
</td>
</tr>
</table>
</form>
</div>

</body>

</html>

先谢谢啦！！呵呵。。。。

第 8 楼

得分:0

呵呵....
谢谢啦，我刚才改成用两个页面设计了！！真的很感谢你们！！

[此贴子已经被作者于2005-11-25 17:02:58编辑过]