想实现这样一个联动功能，高分送上

EastLin 2004-04-19 11:17:40

一个数据库的表中存了一些学生的学号和姓名的数据，希望设计这样一个联动表单，在一个下拉列表中显示出所有的学号，选择一个学号后在另一个输入框中显示出该学号学生的姓名。
用ASP Access数据库 JavaScript(或VBScript）实现。

...全文

53 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

bingbingcha 2004-04-19

打赏
举报

论坛FAQ里那么多帖子都是联动的，还有四联动。。呵呵。。绝对满足你的需求

lawdoor 2004-04-19

打赏
举报

<title>菜单连动类的设计</title>
<%
'生成部门与人员列表数组
Response.Write("<script language='javascript'>"&vbcrlf)
Response.Write("var partarray=new Array();"&vbcrlf)
Response.Write("var userarray=new Array();"&vbcrlf)
partsql="select depart_id,depart_name from depart where company_id=1"
set partrs=server.CreateObject("ADODB.RecordSet")
partrs.Open partsql,conn,1,3

partcount=0
if not partrs.EOF and not partrs.BOF then
do while not partrs.EOF and not partrs.BOF
Response.Write("partarray["&partcount&"]='"&partrs("depart_id")&","&partrs("depart_name")&"';"&vbcrlf)
partrs.movenext
partcount=partcount+1
loop
end if

partrs.Close
set partrs=nothing

usersql="select employee_id,employee_name,employee_depart from employee where employee_status=1 and employee_company=1"
set userrs=server.CreateObject("ADODB.RecordSet")
userrs.Open usersql,conn,1,3

usercount=0
if not userrs.EOF and not userrs.BOF then
do while not userrs.EOF and not userrs.BOF
Response.Write("userarray["&usercount&"]='"&userrs("employee_id")&","&userrs("employee_name")&","&userrs("employee_depart")&"';"&vbcrlf)
userrs.MoveNext
usercount=usercount+1
loop
end if

userrs.Close
set userrs=nothing

Response.Write("</script>")
%>
<form name="form1" action="" method="post">
部门：
<select name="coursepart" size=1 onchange="buildman(document.form1.coursepart.options[document.form1.coursepart.selectedIndex].value)">
</select>
<br>
人员：
<select name="courseman" size=1>
</select>
</form>
<script language="javascript">
//生成默认的部门与人员下拉菜单
builddepart();
buildman(partarray[0].split(",")[0]);

//生成部门下拉菜单
function builddepart() {
document.form1.coursepart.length = 0;
var i;
for (i=0;i <partarray.length; i++) {
document.form1.coursepart.options[document.form1.coursepart.length] = new Option(partarray[i].split(",")[1],partarray[i].split(",")[0]);
}
}

//根据部门下拉菜单的值动态生成人员的值
function buildman(partid) {
document.form1.courseman.length=0;
var i;
for (i=0;i<userarray.length;i++) {
if (userarray[i].split(",")[2]==partid) {
document.form1.courseman.options[document.form1.courseman.length]=new Option(userarray[i].split(",")[1],userarray[i].split(",")[0]);
}
}
}
</script>

若白师妹 2004-04-19

打赏
举报

index.asp:如下
<script language="JavaScript">
function check() {
var url=form.xuehao.options[form.xuehao.selectedIndex].value;
navigate("index.asp.asp?xuehao="+url);
</script>
請選擇學號:
<form name=form>
<select name=xuehao onchange="check()">
<% do while not rs.eof%>
<option value="<%=rs("xuehao")%>"><%=rs("xuehao")%></option>
<%rs.movenext
loop%>
<%xuehao=request("xuehao")
if xuehao<>"" then
set rs1=server.createobject("adodb.recordset")
sql1="select name from table where xuehao="&xuehao '看著寫
rs1.open sql1,conn,1,1
if not rs.eof then
%>
姓名:<input type=text name=id value="<%=rs1("name")%>" readonly>
<% else%>
沒有這個學號的姓名!
<% end if
%>

lawdoor 2004-04-19

打赏
举报

二级连动：
<HTML><HEAD><TITLEASP技术</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="../style.css" rel=stylesheet>
<META content="Microsoft FrontPage 4.0" name=GENERATOR></HEAD>
<BODY bgColor=#ffffff topMargin=2 marginheight="4">
<CENTER>
</CENTER>
<CENTER>
<TABLE cellSpacing=0 cellPadding=0 width=755 border=0>
<TBODY>
<TR vAlign=top>
<TD width=755>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="76%" valign="top">
<table border="0" width="100%" cellspacing="1">
<tr>
<td colSpan=4 width="100%" align=center>
<script language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();

subcat[0] = new Array("ASP基础教程","1","1");

subcat[1] = new Array("ASP WEB服务器IIS","1","2");

subcat[2] = new Array("ASP网页设计工具FPAGE","1","3");

subcat[3] = new Array("开发工具VISUAL DEV","1","4");

subcat[4] = new Array("VBSCRIPT语言","1","5");

subcat[5] = new Array("ASPFAQ","2","6");

subcat[6] = new Array("ASP组件","2","7");

subcat[7] = new Array("ASP文摘","2","8");

subcat[8] = new Array("ASP实例","2","9");

subcat[9] = new Array("ASP安全","2","10");

subcat[10] = new Array("PHP教程","3","11");

subcat[11] = new Array("PHPFAQ","3","12");

subcat[12] = new Array("PHP文摘","3","13");

subcat[13] = new Array("PHP实例","3","14");

subcat[14] = new Array("PHP安全","3","15");

subcat[15] = new Array("PHP工具","3","16");

subcat[16] = new Array("数据库教程","5","17");

subcat[17] = new Array("数据库问题","5","18");

subcat[18] = new Array("数据库文摘","5","19");

subcat[19] = new Array("数据库安全","5","20");

subcat[20] = new Array("JSP教程","4","21");

subcat[21] = new Array("JSP文摘","4","22");

subcat[22] = new Array("JSP实例","4","23");

subcat[23] = new Array("JSP安全","4","24");

subcat[24] = new Array("JSP工具","4","25");

subcat[25] = new Array("JSPFAQ","4","26");

subcat[26] = new Array("精品子程序","2","27");

subcat[27] = new Array("ASP.NET","2","28");

onecount=28;

function changelocation(locationid)
{
document.myform.Nclassid.length = 0;

var locationid=locationid;
var i;
for (i=0;i < onecount; i++)
{
if (subcat[i][1] == locationid)
{
document.myform.Nclassid.options[document.myform.Nclassid.length] = new Option(subcat[i][0], subcat[i][2]);
}
}

}
</script>
<form method="post" name="myform" action="ru_query.asp">
文章搜索：
<select name="action" size="1">
<option value="title">文章标题</option>
</select>
<select name="classid" onChange="changelocation(document.myform.classid.options[document.myform.classid.selectedIndex].value)" size="1">
<option selected value="">未指定条件</option>
<option value="1">ASP基础教程</option>
<option value="2">ASP技术</option>
<option value="3">PHP技术</option>
<option value="4">JSP技术</option>
<option value="5">数据库</option>
</select>
<select name="Nclassid" onchange="location='33.asp?id='+this.value">
<option selected value="">未指定条件</option>
</select>

</form>
</td>
</tr>
</table>
</td>
</tr>
</table>
</TD>
</TR>
</TBODY>
</TABLE>
</CENTER>
</BODY></HTML>