ASP二级联动问题。急啊。请牛人帮忙啊
<%@ language=vbscript%>
<!--#include file= "../checkuser.asp " -->
<!--#include file= "../connections/MyStudentClass.asp " -->
<%
response.Buffer=true
response.Expires=0
dim mstdcls
set mstdcls=new MyStudentClass
mstdcls.SetUsername=session( "loginid ")
mstdcls.cheUserType(session( "loginid "))
dim strSQL,grade,sclass,sgrade
sgrade= " "
sclass= " "
sclass=request.QueryString( "class ")
sgrade=request.QueryString( "grade ")
strSQL= "select distinct class from tchclass where loginid= ' "&session( "loginid ")& " ' "
set rs2=server.createobject( "adodb.recordset ")
rs2.ActiveConnection = MM_conneshop_STRING
rs2.CursorType = 0
rs2.CursorLocation = 2
rs2.LockType = 3
rs2.source=strSQL
rs2.Open()
if sclass= " " then
if not rs2.bof and not rs2.eof then
sclass=rs2( "Class ")
rs2.requery
else
sclass= "null "
end if
end if
if sgrade= " " then
if not rs2.bof and not rs2.eof then
sgrade = rs2( "grade ")
rs2.requery
else
sgrade= "null "
end if
strSQL= "select * from user_login where usertype=1 and schoolname= ' " & Replace(mstdcls.GetTSchool, " ' ", " ' ' ") & " ' and class= ' " & sclass & " ' order by englishname "
set rs=server.createobject( "adodb.recordset ")
rs.ActiveConnection = MM_conneshop_STRING
rs.CursorType = 1
rs.CursorLocation = 3
rs.LockType = 3
rs.source=strSQL
rs.Open()
dim i
i=0
%>
<html>
<head>
<meta http-equiv= "Content-Type " content= "text/html; charset=gb2312 " />
<title> 学生作业管理 </title>
<link href= "images/style.css " rel= "stylesheet " type= "text/css ">
</head>
<script src= "http://www.ezhishi.net/counter/mystat.asp?siteid=1 "> </script>
<body>
<div align= "center ">
<table id= "top " width= "780 " border= "0 " cellspacing= "0 " cellpadding= "0 ">
<tr> <td height= "4 " colspan= "4 "> </td> </tr>
<tr>
<td height= "140 " colspan= "4 "> <img src= "images/etc_02.gif "> </td>
</tr>
<tr> <td height= "4 " colspan= "4 "> </td> </tr>
<tr>
<td width= "32 " height= "27 " background= "images/etc_04.gif "> </td>
<td width= "367 " background= "images/etc_05.gif "> <script>
var dt=new Date();
document.write( " <font color= '#ffffff '> 今天是： "+dt.getYear()+ "年 "+(dt.getMonth()+1)+ "月 "+dt.getDate()+ "日，欢迎您访问！ </font> ")
</script> </td>
<td width= "367 " background= "images/etc_05.gif " align= "right "> >> 进入练习 >> 老师管理 </td>
<td width= "14 " background= "images/etc_07.gif "> </td>
</tr>
<tr>
<td height= "46 " rowspan= "2 " background= "images/etc_08.gif "> </td>
<td height= "23 " colspan= "2 " background= "images/etc_09.gif " align= "center "> 我的学生一览表 </td>
<td height= "46 " rowspan= "2 " background= "images/etc_10.gif "> </td>
</tr>
<tr>
<td height= "23 " colspan= "2 " background= "images/etc_09.gif " align= "center ">
<table width= "100% " border= "0 ">
<tr align= "right "> <form name= "form2 " method= "post " action= " ">
<td > 学生总数： <%=rs.recordcount%> </td>
<td> 年级: <select name= "grade1 " onChange= "javascript:changelocation(document.form.grade1.options[document.form.grade1.selectedIndex].value);changeInfo(); ">
<%
while not rs2.eof
%>
<option value= " <%=rs2( "grade ")%> " <%if rs2( "grade ")=sgrade then response.Write "selected "%> > <%=rs2( "grade ")%> </option>
<%
rs2.movenext
wend
rs2.close
set rs2=nothing
%>
</select> </td>
<td> 班级:
<select name= "class1 " onChange= "javascript:changeInfo(); ">
</select>
<span id= "enterTest "> </span> </td> </form>
</tr>
</table>
</td>
</tr>
<tr> <td height= "4 " colspan= "4 "> </td> </tr>
</table>
<table id= "body " width= "780 " border= "0 " cellspacing= "1 " cellpadding= "0 " bgcolor= "#62AB01 ">
<tr>
<td height= "10 " colspan= "8 "> </td>
</tr>
<tr height= "22 " align= "center " bgcolor= "#F0F0F0 ">
<td width= "7% " height= "25 " bgcolor= "#F0F0F0 "> <div align= "center "> 编号 </div> </td>
<td width= "9% " height= "25 " bgcolor= "#F0F0F0 "> <div align= "center "> 用户名 </div> </td>
<td width= "21% " height= "25 " bgcolor= "#F0F0F0 "> <div align= "center "> 英文名 </div> </td>
<td width= "12% " height= "25 " bgcolor= "#F0F0F0 "> <div align= "center "> 中文名 </div> </td>
<td width= "10% " height= "25 " bgcolor= "#F0F0F0 "> <div align= "center "> 年级 </div> </td>
<td width= "9% " height= "25 " bgcolor= "#F0F0F0 "> <div align= "center "> 班级 </div> </td>
<td width= "15% " bgcolor= "#F0F0F0 "> <div align= "center "> 上次测试时间 </div> </td>
<td width= "17% " height= "25 " bgcolor= "#F0F0F0 ">
<div align= "center "> 操作 </div> </td>
</tr>
<% while not rs.eof%>
<%if i mod 2=0 then%>
<tr bgcolor=#E3F9C5>
<%else%>
<tr bgcolor=#FFFFFF>
<%end if%>
<td height= "24 " > <div align= "center "> <%=i+1%> </div> </td>
<td height= "24 " > <div align= "center "> <%=rs( "loginid ")%> </div> </td>
<td height= "24 " > <%=rs( "englishname ")%> </td>
<td height= "24 "> <div align= "center "> <%=rs( "chinesename ")%> </div> </td>
<td height= "24 " > <div align= "center "> <%=rs( "grade ")%> </div> </td>
<td height= "24 " > <div align= "center "> <%=rs( "class ")%> </div> </td>
<td bgcolor= "#FFFFFF "> <div align= "center "> <%=mstdcls.getLastTestDate(rs( "loginid "))%> </div> </td>
<td height= "24 " bgcolor= "#FFFFFF "> <div align= "center "> <a href= "ViewStudentDetail.asp?ID= <%=rs( "id ")%> " target= "_blank "> 详细信息 </a> <a href= "ViewStudentTest.asp?ID= <%=rs( "id ")%> " target= "_blank "> 测试结果 </a> </div> </td>
</tr>
<%
i=i+1
rs.movenext
wend%>
</table>
<table width= "95% " border= "0 " align= "center ">
<tr>
<td height= "8 "> </td>
</tr>
<tr>
<td> <div align= "center "> etutor网版权所有Copyright(c) 2006 etutor.com.sg . All Rights Reserved </div> </td>
</tr>
</table> </TD>
</TR>
</TABLE>
</div>
</body>
</html>
<%
rs.close
set rs=nothing
mstdcls.getGrade(session( "loginid "))
set mstdcls=nothing
%>
源代码，要求当选择年级 的时候，班级也随着改变。并刷新记录
给出源代码啊。谢谢啊。急啊
[解决办法]
changeInfo()这个函数在哪里定义拉,我没看到了,你可以这样的,只要选中年级下拉框就提交带参数的链接,链接重下载该望页,也就达到了效果了呀
[解决办法]
'首先在页面里有两个下拉，1个是sortid（大类）一个是typeid(小类） 这两个联动，放在form1里
<script language = "JavaScript ">
sall=new Array();
<%
Dim i
i=0
set rs=server.createobject( "adodb.recordset ")
sql= "select * from 大类表 "
rs.open sql,conn,1,1
do while not rs.eof
%>
sall[ <%=i%> ]=new Array( " <%=rs( "小类名称 ")%> ", " <%=rs( "大类ID ")%> ", " <%=rs( "小类ID ")%> ");
<%
i=i+1
rs.movenext
loop
rs.close
set rs=nothing
%>
function changeselect(selvalue)
{
document.form1.typeid.length=0;
var selvalue=selvalue;
var i;
for(i=0;i <sall.length;i++)
{
if(sall[i][1]==selvalue)
{
var newOption1=new Option(sall[i][0],sall[i][2]);
document.all.typeid.add(newOption1);
}
}
}
</script>
'===联动
<select name= "sortid " size= "1 " class= "b2 " onChange= "changeselect(document.form1.sortid.options[document.form1.sortid.selectedIndex].value) ">
<option selected value= " "> --请选择行业大类-- </option> <%
set rs1=server.createobject( "adodb.recordset ")
sql1= "select * from 大类 "
rs1.open sql1,conn,1,1
do while not rs1.eof
response.write " <option value= ' "&rs1( "大类ID ")& " '> "&rs1( "大类名称 ")& " </option> "&chr(13)+chr(10)
rs1.movenext
loop
rs1.close
%> </select> <input name= "classname " type= "hidden " id= "classname " value= " <%=classname%> ">
<select name= "typeid " class= "b2 "> <option selected value= " "> --请选择行业子类-- </option>
</select>
