asp实现下拉列表框间响应

最新推荐文章于 2021-06-03 22:42:14 发布

tanshi

最新推荐文章于 2021-06-03 22:42:14 发布

阅读量3.3k

点赞数

CC 4.0 BY-SA版权

分类专栏：初识ASP 文章标签： asp sql join button null webbrowser

本文链接：https://blog.youkuaiyun.com/tanshi/article/details/5881452

初识ASP 专栏收录该内容

14 篇文章

订阅专栏

这个ASP脚本展示了如何实现下拉列表框之间的响应。当用户选择班级时，学号下拉框会自动更新为对应班级的学号。查询按钮提交表单到'M_score_Search.asp?h=1'，根据'h'参数判断查询来源，动态构建并执行SQL语句，展示研究生的学位课程、选修课程和实践环节的成绩。

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>   <% flg = 0 '用于判断用户是否选择下拉框 h=Request.QueryString("h") sdate = Request.Form("select") sid = Request.Form("sId") sClass = Request.Form("sClass") set rs=server.createobject("adodb.recordset") set rs_S=server.createobject("adodb.recordset") set rs_X=server.createobject("adodb.recordset") set rs_T=server.createobject("adodb.recordset") If h = 1 Then '-------------------------------------------------- '构造课程成绩查询语句 '-------------------------------------------------- '学位课程 Sql_S="SELECT CK.* FROM 研究生 Right Join (SELECT 学生成绩.学号,KC.*,学生成绩.成绩 FROM 学生成绩 RIGHT JOIN (SELECT 课程信息.课程编号,课程信息.课程名称,学位课程.学分,学位课程.学时,学位课程.考核方式 FROM 课程信息 Right JOIN 学位课程 ON 课程信息.课程编号=学位课程.课程编号 WHERE 1=1" '选修课程 Sql_X="SELECT CK.* FROM 研究生 Right Join (SELECT 学生成绩.学号,KC.*,学生成绩.成绩 FROM 学生成绩 RIGHT JOIN (SELECT 课程信息.课程编号,课程信息.课程名称,选修课程.学分,选修课程.学时,选修课程.考核方式 FROM 课程信息 Right JOIN 选修课程 ON 课程信息.课程编号=选修课程.课程编号 WHERE 1=1" '实践环节 Sql_T="SELECT CK.* FROM 研究生 Right Join (SELECT 学生成绩.学号,KC.*,学生成绩.成绩 FROM 学生成绩 RIGHT JOIN (SELECT 课程信息.课程编号,课程信息.课程名称,实践环节.学分,实践环节.学时,实践环节.考核方式 FROM 课程信息 Right JOIN 实践环节 ON 课程信息.课程编号=实践环节.课程编号 WHERE 1=1" If sdate <>"" and sdate <> "Null" Then Sql_S = Sql_S&" and 学位课程.开课学期='"&sdate&"'" Sql_X = Sql_X&" and 选修课程.开课学期='"&sdate&"'" Sql_T = Sql_T&" and 实践环节.开课学期='"&sdate&"'" flg = 1 End If Sql_S = Sql_S&") AS KC ON 学生成绩.课程编号 = KC.课程编号 WHERE 1=1 " Sql_X = Sql_X&") AS KC ON 学生成绩.课程编号 = KC.课程编号 WHERE 1=1 " Sql_T = Sql_T&") AS KC ON 学生成绩.课程编号 = KC.课程编号 WHERE 1=1 " If sId <> "" and sId <> "Null" Then Sql_S = Sql_S&" and 学生成绩.学号 ='"&sId&"'" Sql_X = Sql_X&" and 学生成绩.学号 ='"&sId&"'" Sql_T = Sql_T&" and 学生成绩.学号 ='"&sId&"'" flg = 1 End If Sql_S = Sql_S&") AS CK ON 研究生.学号 = CK.学号 Where 1=1 " Sql_X = Sql_X&") AS CK ON 研究生.学号 = CK.学号 Where 1=1 " Sql_T = Sql_T&") AS CK ON 研究生.学号 = CK.学号 Where 1=1 " If sClass <>"" and sClass <> "Null" Then Sql_S = Sql_S&" and 研究生.班级='"&sClass&"'" Sql_X = Sql_X&" and 研究生.班级='"&sClass&"'" Sql_T = Sql_T&" and 研究生.班级='"&sClass&"'" 'flg = 1 End If 'Response.Write(Sql_S&"<br>"&Sql_X&"<br>"&Sql_T&"<br>") If sid <> "" and sid <> "Null" Then strSql = "Select 姓名 From 研究生 Where 学号 = '"&sid&"'" rs.open strSql,conn,3,2,1 sname = rs("姓名") rs.Close End If End If %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <link rel="stylesheet" type="text/css" id="css" href="images/style.css" mce_href="images/style.css"> <title>无标题文档</title> <mce:style type="text/css"></mce:style><style type="text/css" mce_bogus="1">.STYLE1 {color: #FF0000}</style> </head> <% dim rslt(5) rslt(0) = "缺考" rslt(1) = "不及格" rslt(2) = "及格" rslt(3) = "中" rslt(4) = "良" rslt(5) = "优" %> <body> <div style="top:0; left:0;"> <table width="95%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#666666"> <tr> <td height="30" background="images/bg_list.gif"><div style="padding-left:10px; font-weight:bold; color:#FFFFFF" mce_style="padding-left:10px; font-weight:bold; color:#FFFFFF">成绩查询</div></td> </tr> <tr> <td bgcolor="#FFFFFF">  <form id="form1" name="form1" method="post" action="M_score_Search.asp"> <% strSql = "Select DISTINCT(班级) From 研究生 order by 班级" rs.open strSql,conn,3,2,1 %> 班级: <select name="sClass" onchange="(document.form1.submit())"> <option value="Null" selected="selected" >--请选择--</option> <% Do While Not rs.Eof If rs("班级") = sClass Then %> <option value="<% =rs("班级") %>" selected="selected" ><% =rs("班级") %></option> <% Else %> <option value="<% =rs("班级") %>"><% =rs("班级") %></option> <% End If rs.MoveNext Loop rs.close %> </select> <label> </label> <% strSql = "Select 学号 From 研究生 Where 班级='"&sClass&"' order by 学号" rs.open strSql,conn,3,2,1 %> 学号:<label> <select name="sId"> <option value="Null" selected="selected" >--请选择--</option> <% Do While Not rs.Eof If rs("学号") = sid Then %> <option value="<% =rs("学号") %>" selected="selected" ><% =rs("学号") %></option> <% Else %> <option value="<% =rs("学号") %>" ><% =rs("学号") %></option> <% End If rs.MoveNext Loop rs.close %> </select> </label> <% strSql = "Select DISTINCT(开课学期) From 学位课程 order by 开课学期 DESC" rs.open strSql,conn,3,2,1 %> 学期: <select name="select"> <option value="Null" selected="selected" >--请选择--</option> <% Do While Not rs.Eof If rs("开课学期") = sdate Then %> <option value="<% =rs("开课学期") %>" selected="selected" ><% =rs("开课学期") %></option> <% Else %> <option value="<% =rs("开课学期") %>"><% =rs("开课学期") %></option> <% End If rs.MoveNext Loop rs.close %> </select> <label> <input type="submit" name="Submit" value="查询" onclick="document.form1.action='M_score_Search.asp?h=1'"/> <input onclick="document.all.WebBrowser.ExecWB(6,1)" type="button" value="打印"> <input onclick="document.all.WebBrowser.ExecWB(6,6)" type="button" value="直接打印"> <input onclick="document.all.WebBrowser.ExecWB(8,1)" type="button" value="页面设置"> <input onclick="document.all.WebBrowser.ExecWB(7,1)" type="button" value="打印预览"> </label> </form> <table table width="100%" border="0" align="center" cellpadding="0" cellspacing="1"/> <tr> <% If flg <> 0 and h = 1 Then %> <% If sid <>"" Then Response.Write("姓名:<font color=#FF0000>"&sname&"</font>  ")%>  <% flg = 0 '此时用于计算是否有成绩信息 rs_S.open Sql_S,conn,3,2,1 If rs_S.Eof Then flg = flg + 1 rs_X.open Sql_X,conn,3,2,1 If rs_X.Eof Then flg = flg + 1 rs_T.open Sql_T,conn,3,2,1 If rs_T.Eof Then flg = flg + 1 %> <% If flg <>3 Then %> <% For i = 1 to rs_S.fields.count-1%> <td height="25" class="td" nowrap="nowrap"><font color=#336699><b><% = rs_S.Fields(i).Name %></b></font></td> <% Next %> <% End If %> <% j=1 Do While not rs_S.Eof if j mod 2=0 then bg="#F1F5F8" else bg="#FFFFFF" end if j=j+1 %> <tr colspan="2" onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='<%=bg%>'" bgcolor="<%=bg%>"> <% For i = 1 to rs.fields.count-1 %> <td align="left" class="td" nowrap="nowrap"><% =rs_S.Fields(i) %> </td> <% Next %> <% rs_S.MoveNext Loop rs_S.Close %>  <% %> <% j=1 Do While not rs_X.Eof if j mod 2=0 then bg="#F1F5F8" else bg="#FFFFFF" end if j=j+1 %> <tr colspan="2" onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='<%=bg%>'" bgcolor="<%=bg%>"> <% For i = 1 to rs_X.fields.count-1 %> <td align="left" class="td" nowrap="nowrap"><% =rs_X.Fields(i) %> </td> <% Next %> <% rs_X.MoveNext Loop rs_X.Close %>  <% %> <% j=1 Do While not rs_T.Eof if j mod 2=0 then bg="#F1F5F8" else bg="#FFFFFF" end if j=j+1 %> <tr colspan="2" onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='<%=bg%>'" bgcolor="<%=bg%>"> <% For i = 1 to rs_T.fields.count-1 If rs_T.Fields(i).Name = "成绩" Then %> <td align="left" class="td" nowrap="nowrap"><% =rslt(CInt(rs_T.Fields(i))) %> </td> <% Else %> <td align="left" class="td" nowrap="nowrap"><% =rs_T.Fields(i) %> </td> <% End If Next %> <% rs_T.MoveNext Loop rs_T.Close %> <% Set rs_S = nothing Set rs_X = nothing Set rs_T = nothing conn.Close Set conn = nothing %> <% If flg = 3 Then Response.Write("--暂无该生成绩信息--")%> <% End If %> </table> </table> </div> <OBJECT id="WebBrowser" height="0" width="0" classid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2" VIEWASTEXT> </OBJECT> </body> </html>

关键部分：

选择班级下拉框，则学号下拉框显示相应班级的学号。

思路：

选择班级后，将表单提交给M_score_Search.asp页

点击查询按钮将表单提交给M_score_Search.asp?h=1页

通过h变量来判断触发提交表单的是下拉框还是按钮，若是下拉框则QueryString获得选择的班级,再通过"Select 学号 From 研究生 Where 班级='"&sClass&"' order by 学号"将学号下拉框显示相应班级的学生

=====================

不知道这种方法好不好，但确实是实现了，呵呵