asp实现下拉列表框间响应

最新推荐文章于 2021-08-13 16:50:53 发布

tanshi

最新推荐文章于 2021-08-13 16:50:53 发布

阅读量3.3k

点赞数

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

本文链接：https://blog.csdn.net/tanshi/article/details/5881452

版权

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

摘要由CSDN通过智能技术生成

<%@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 研究生.学号 = C