简单问题,关于下拉列表互动

yiran700 2004-12-07 01:01:09
选择下拉列表1里的某一项,使下拉列表2的内容发生相应变化.注意:下拉列表1的内容是文件夹ziliao下的子文件夹名,选择下拉列表1之后,下拉列表2里的内容要变成这个子文件夹下的子文件夹名
...全文
206 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
wxf0104 2004-12-23
  • 打赏
  • 举报
回复
<%
Dim Rs_class
Set Rs_class = Server.CreateObject("ADODB.Recordset")
Rs_class.ActiveConnection = CM_unnamedDatabase
Rs_class.Source = " SELECT * FROM cate WHERE parentId=0 "
Rs_class.CursorType = 0
Rs_class.CursorLocation = 2
Rs_class.LockType = 1
Rs_class.Open()
%>
<script language="javascript">
function listoption(src){
var obj = document.class3.fldclass2
removeoption(obj)
document.getElementById("list").src = "listup.asp?lfldno=" + src.value
}
function removeoption(obj){
var len=obj.options.length
var i=len-1
for(i;i>=0;i--){
obj.options[i]=null
}
}
function additem(i,val, txt){
document.class3.fldclass2.options[i] = new Option(txt,val);
}
</script>


<tr>
<td colspan="0" width="" class="Table_InSide"><div align="left">新闻大类 </div></td>
<td colspan="0" width="" class="Table_InSide"><div align="left">
<select name="fldclass" onchange="listoption(this)">
<option value="">--请选择--</option>
<%While NOT Rs_class.EOF%>
<option value="<%=Rs_class.Fields.Item("fldauto").Value%>"><%=Rs_class.Fields.Item("fldname").Value%></option>
<%Rs_class.MoveNext()
Wend
%>
</select>
 </div></td>
</tr>
<tr>
<td colspan="0" width="" class="Table_InSide"><div align="left">新闻2类 </div></td>
<td colspan="0" width="" class="Table_InSide"><div align="left">
<select name="fldclass2">
<option value="">--请选择--</option>
</select>
 </div></td>
</tr>

<iframe id="list" name="list" src ="" style="DISPLAY: none"></iframe>

listup.asp的内容

<%
s_bh=cstr(request("lfldno"))
Dim Rs_class2
Set Rs_class2 = Server.CreateObject("ADODB.Recordset")
Rs_class2.ActiveConnection = CM_unnamedDatabase
Rs_class2.Source = "SELECT * FROM cate WHERE fldclass=" + s_bh
Rs_class2.CursorType = 0
Rs_class2.CursorLocation = 2
Rs_class2.LockType = 1
Rs_class2.Open()
i=1
%>
<Script language=JavaScript>
<%While NOT Rs_class2.EOF%>
parent.additem(<%=i-1%>,"<%=Rs_class2.Fields.Item("fldauto").Value%>","<%=Rs_class2.Fields.Item("fldname").Value%>");
<%i=i+1
Rs_class2.MoveNext()
Wend%>
</Script>
<%
Rs_class2.close()
Set Rs_class2 = Nothing
%>
mengshuai1982 2004-12-17
  • 打赏
  • 举报
回复
study ing
yiran700 2004-12-07
  • 打赏
  • 举报
回复
liuyangxuan(〓阿轩〓)
好像不错,我去试...
liuyangxuan 2004-12-07
  • 打赏
  • 举报
回复
取文件名用FSO就可以,导出数组,批量导入下拉框就可以。用XMLHTTP也可以实现。
qfacy 2004-12-07
  • 打赏
  • 举报
回复
<select name="文件夹" size=1 onChange="document.ThisForm.submit();">
<%
set rs=server.createobject("adodb.recordset")
sql="SELECT * FROM table "
rs.open sql,conn,1
if not rs.eof and not rs.bof then first=rs("id")
if request("文件夹")<>"" then first=request("文件夹")
while not rs.eof and not rs.bof
%>
<option value="<%=rs("id")%>"<%=selected(first,cstr(rs("id")))%>><%=rs("名字")%></option>
<%
rs.movenext
wend
%>
</select>
<select name="文件夹1" size=1>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from table where 字段名=" & firstdept& " "
rs.open sql,conn,1
if not rs.eof and not rs.bof then xx=rs("字段")
if request("文件夹1")<>"" then xx=request("文件夹1")
while not rs.eof and not rs.bof
%>
<option value="<%=rs("字段")%>"<%=selected(xx,rs("字段"))%>>
<%=rs("name")%></option>
<%rs.movenext
wend
%>
</select>
tojworks 2004-12-07
  • 打赏
  • 举报
回复
就是联动菜嘛,查下以前的贴子!

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧