选课系统已选人数
选课系统里面学生选择了某一门课程以后,那一门课程应该显示已经有一人选择了该门课程,但是已选人数显示仍为0.已选人数的字段为“yxrs”,
想出来这样的效果:如果某个学生已经选了课程,就弹出你已经选课了,直接进入到"wdkc"这个页面,
<%
call CheckLogin()'一般用户访问权限判断函数
'Response.Write(Request("kcid"))
'Response.End()
Set rs = Server.CreateObject("adodb.recordset")
rs.open "Select * from 学生表_student where name = '"&Session("XZW_xsID")&"'",conn,1,1
if rs("SXKC") <> "" then
Response.Write("<script>alert('你已经选过课了!');window.location='wdkc.asp';</script>")
else
Call chkt()
rs.open "Select * from 学生表_student where name = '"&Session("XZW_xsID")&"'",conn,1,3
rs("SXKC") = Request("kcid")
rs("yxrs")=rs("yxrs")+1
rs.update
rs.close
Response.Write("<script>alert('选课成功!');window.location='xuanke.asp';</script>")
End If
Function chkt()
kc = Split(Request("kcid"),",")
for i = 0 to Ubound(kc)
Set rs = Server.CreateObject("adodb.recordset")
rs.open "Select * from 教师表_teacher where id = "&kc(i),conn,1,1
kcname = rs("kcmc")
if rs("xzrs") = rs("kcxf") then Response.Write("<script>alert('"&kcname&"已经满了!');window.location='xuanke.asp';</script>") end if
rs.close
next
End Function
%>