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

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

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

用JS调用，ASP是在服务器端执行的，你这样调用的方法也是不对的，就算可以也不能在客户端网成菜单的关联，可以先用循环将数据库的信息存贮在数组里，在用JS实现，我这有段代码，是管理无极限树菜单的程序，共你参考一下：

<%
dataurl=Server.MapPath("menutree.mdb")
dim conn,strQuery,rs
set conn = server.CreateObject("adodb.connection")
conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE="&dataurl
strQuery="select * from menufun"
set rs=server.createobject("adodb.recordset")
rs.open strQuery,conn,1,1
allnum=rs.RecordCount
MaxLevel=1 '取得最多的层数
for i=1 to allnum
if rs("PartLevel")>MaxLevel then
MaxLevel=rs("PartLevel")
else
MaxLevel=MaxLevel
end if
rs.movenext
next
rs.close
set rs=nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>菜单树管理</title>
<style type="text/css">

</style>
</head>
<script language="javascript">

</script>
<body bgcolor="#6699CC" topmargin="0">
<table border="0" cellspacing="2" cellpadding="2">
<tr>
<td>添加菜单项</td>
</tr>
</table>
<form name="myform" method="post" action="" style="margin:0">
<table border="0" cellspacing="2" cellpadding="2">
<tr>
<td align="right">菜单项名称：</td>
<td><input name="textfield" type="text" size="25"></td>
</tr>
<tr>
<td align="right">菜单级别：</td>
<td>
<%for i=1 to Maxlevel+1%><input type="radio" name="PartLevel" value="<%=i%>" onClick="javascript:disableds(<%=i%>)">[<b><%=i%></b>]级<%next%>
</td>
</tr>
<tr>
<td align="right">上级菜单：</td>
<td>
<select name="Nclassid1" id="Nclassid1" onChange="changelocation(document.myform.Nclassid1.options[document.myform.Nclassid1.selectedIndex].value,'2')">
<%
dim rsfun,numfun,funcidfun
strQuery1="select * from menufun where sup_funcid='0' and enable<>0"
set rsfun1=server.createobject("adodb.recordset")
rsfun1.open strQuery1,conn,1,1
numfun1=rsfun1.RecordCount
for k=1 to numfun1
%>
<option value="<%=rsfun1("funcid")%>"><%=rsfun1("funcname")%></option>
<%
rsfun1.movenext
next
rsfun1.close
set rsfun1=nothing
%>
</select>
<%
for i=2 to Maxlevel
if Maxlevel-i=0 then
response.Write(" <select name='Nclassid"&i&"'>")
else
%>
<select name="Nclassid<%=i%>" onChange="javascript:changelocation(document.all('Nclassid<%=i%>').options[document.all('Nclassid<%=i%>').selectedIndex].value,'<%=i+1%>')">
<%
end if
%>
</select>
<%
next
%>
</td>
</tr>
<tr>
<td align="right">指向目标：</td>
<td><input name="textfield2" type="text" size="30"></td>
</tr>
<tr>
<td></td>
<td>
<input type="button" name="Submit1" value="确定">
<input type="button" name="Submit2" value="放弃">
<input type="button" name="Submit3" value="恢复" onClick="javascript:alldisableds()">
</td>
</tr>
</table>
</form>
</body>
</html>

相关文章：无极限树http://www.bc-cn.net/bbs/dispbbs.asp?boardID=10&ID=35004&page=1

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

专注于WEB前端交互平台开发：[url=http://blog./]blog.[/url]（富客户端技术（RIA）交流平台）

第 3 楼

得分:0

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

第 4 楼

得分:0

<%
dataurl=Server.MapPath("数据库名")
dim conn,strQuery,rs
set conn = server.CreateObject("adodb.connection")
conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE="&dataurl
strQuery="select * from no1"
set rs=server.createobject("adodb.recordset")
rs.open strQuery,conn,1,1
allnum=rs.RecordCount
rs.close
set rs=nothing
%>
<script language="javascript">

</script>
<select size="1" class="style3" id="select" name="select" onChange="changelocation(document.all('select').options[document.(document.all('select').selectedIndex].value)">
<option value="" selected>出租转让</option>
<option value="" >积压物资</option>
<option value="" >商务合作</option>
<option value="" >求租求购</option>
</select>　　　　　
<select name="scid" size="1"></select>
注意的是：数据库中的字段 no1name 的值必须和 select 中的值对应，也就是说<option value="1" selected>出租转让</option>，当选册该项后就会把数组subcat[]中第二个值等于subcat[][1][]=1的数组元素重新赋给 scid 下拉列表

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

专注于WEB前端交互平台开发：[url=http://blog./]blog.[/url]（富客户端技术（RIA）交流平台）

第 5 楼

得分:0

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

第 6 楼

得分: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编辑过]