100分在线等，关于用户选择下拉框某项时，生成另一个下拉框opition的问题～～～！！

jiudon 2005-11-08 08:34:47

两个下拉框，当用户选中第一个下拉框的某项值时，拿该值到DB中搜索出第二个下拉框的内容显示到页面供用户选择，由于数据比较多，不希望在页面加载时，就把第二个下拉框的值给检索出来，请给出解决思路（最好有代码或者相关的例子代码！！）

...全文

217 16 打赏收藏转发到动态举报

写回复

用AI写文章

16 条回复

切换为时间正序

请发表友善的回复…

发表回复

diyager 2005-11-21

打赏
举报

第一个下拉的值是定的所以不说了
第二个如下

<Select Name="***">
<%
IF Request("A")<>"" Then------------这就是判断一下是不是有第一下拉传送的值
Call Sel()
End IF
%>
<option value="">请选择</option>
</select>

<%

Function Sel()
Dim Tempstr
*******数据库连接
IF Not Rs.EOF Then
A = Rs("A")
End IF
Tempstr = "<option value="&A&">"&A&"</option>"
Sel = Tempstr
Function

%>

mgzhenhong 2005-11-21

打赏
举报

哦错了

上面的index.asp 的 head中是js代码忘记了

你自己前后标注一下
<Script>
</Script>

mgzhenhong 2005-11-21

打赏
举报

理论上不难,下面的是我直接刚写的,没有调试.
大概不会有错吧主要看原理明白了就可以自己写

数据库A
ID Name
1 张三
2 李四

数据库B
ID Record
1 ***
1 XXX
2 ○○○
1 PPP
2 TTTT

--------index.asp----------主页面-----

<HTML>
<HEAD>
function MyFunction(){
this.xmlUrl="http://" + location.host + "/xml.asp"
}
var F = new MyFunction;
F.GetSel=function(v,o){
if(o.hasChildNodes()){for(i=o.options.length;i>=0;i--){o.options.remove(i);}}//清空Sel_2
var XML=ActiveXObject("MSXML");
try{XML.URL=F.xmlUrl+"action="+v};
catch(e){alert('下载xml文档失败!');return}
var oRoot=XML.root;
if(!oRoot.children){return}
for(i=0;i<oRoot.children.length;i++){
var NewOption = document.createElement("option")
NewOption.innerText = oRoot.children.item(i).text;
o.options.add(NewOption);
}
}
</HEAD>
<BODY>
<%
SET RS=Server.CreateObject("ADODB.RecordSet")
sql = "SELECT * FROM A"
RS.Open sql,CONN,1,1
Response.write "<SELECT ID='Sel_1' OnChange='F.GetSel(this.options[SelectedIndex].value,Sel_2)'>"
DO WHILE NOT (RS.BOF OR RS.EOF)
Response.write "<OPTION VALUE=" & RS("ID") & ">" & RS("Name") & "</OPTION>"
RS.MoveNext
LOOP
&>
RS.Close
</SELECT>
<SELECT ID="Sel_2">
</SELECT>
</BODY>
</HTML>
--------xml.asp------------用于生成xml文档-----
<?xml version="1.0" encoding="gb2312" ?>

<%
Action = Request.QueryString("action")
sql = "SELECT * FROM B WHERE ID=" & Action
SET RS=Server.CreateObject("ADODB.RecordSet")
RS.Open sql,CONN,1,1
Response.write "<Sel>"
DO WHILE NOT (RS.BOF OR RS.EOF)
Response.write "<options>" & RS("Record") & "</options>"
RS.MoveNext
LOOP
Response.write "</Sel>"
RS.Close
%>

mojide 2005-11-21

打赏
举报

mark2

DerryZhang 2005-11-21

打赏
举报

Mark~~

jiudon 2005-11-08

打赏
举报

哦，好的，我试试看方法一！

thinkming 2005-11-08

打赏
举报

没有代码只有思路

一.方法ASP+HTML
1首先打开页面就装载好第一个<option>值
2当用户选择第一个<option>值时传入页面(如OPtion.asp?optionvalue=optionvalue),同时使用 hidden或其它方法标识用户是选择<option>值后打开页面的,这样就可以对第二个<option>进行读取数据库筛选了

二.方法ASP+XMLHTTP+JAVASCRIPT
此方法可以使用无刷新的原理就是
当用户选择第一个<option>值触发javascript事件(将第一个<option>传入(如OptionXML?optionvalue=optionvalue)),再利用xmlhttp读取其内容就可以.

三.利用框架
这种方法不太实际就是利用父窗和子窗相互进行传值,原理不是建议楼主不采用这种方法