tjjg.asp

本科毕业课程设计！学生管理系统！功能相当强大

<!-- #include file="inc/top.asp"-->
<!-- #include file="inc/adminmenu.asp"-->
<%
        kc=request.form("kc")
        bj=request.form("bj")
        xq=request.form("xq")
        
conn = "DBQ=" + server.mappath("sp_class.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"

set rs=server.createobject("adodb.recordset")
    sql="select * from bbs1 where kc like'" & kc & "' and  bj like'" & bj & "' and  xq like'" & xq & "'"
    rs.Open sql,conn,1,1

set rs1=server.createobject("adodb.recordset")
    sql1="select count(bj) as num1 from bbs1 where kc like'" & kc & "' and  bj like'" & bj & "' and  xq like'" & xq & "'and cj<30"
    rs1.Open sql1,conn,1,1
   
   set rs2=server.createobject("adodb.recordset")
    sql2="select count(bj) as num2 from bbs1 where kc like'" & kc & "' and  bj like'" & bj & "' and  xq like'" & xq & "'and cj<60 and cj>=30"
    rs2.Open sql2,conn,1,1
    
    set rs3=server.createobject("adodb.recordset")
    sql3="select count(bj) as num3 from bbs1 where kc like'" & kc & "' and  bj like'" & bj & "' and  xq like'" & xq & "'and cj<70 and cj>=60"
    rs3.Open sql3,conn,1,1

set rs4=server.createobject("adodb.recordset")
    sql4="select count(bj) as num4 from bbs1 where kc like'" & kc & "' and  bj like'" & bj & "' and  xq like'" & xq & "'and cj<80 and cj>=70"
    rs4.Open sql4,conn,1,1

set rs5=server.createobject("adodb.recordset")
    sql5="select count(bj) as num5 from bbs1 where kc like'" & kc & "' and  bj like'" & bj & "' and  xq like'" & xq & "'and cj<90 and cj>=80"
    rs5.Open sql5,conn,1,1

set rs6=server.createobject("adodb.recordset")
    sql6="select count(bj) as num6 from bbs1 where kc like'" & kc & "' and  bj like'" & bj & "' and  xq like'" & xq & "'and cj>90 "
    rs6.Open sql6,conn,1,1


%>


<table width="768"  border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
          <td height="25">
               <table width="768" height="25" border="0" cellpadding="0" cellspacing="0">
                 <tr>
                   <td bgcolor="#EEEEEE">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="unnamed2_14">班级：<%=rs("bj")%></span></td>
                      <td bgcolor="#EEEEEE">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="unnamed2_14">课程：<%=rs("kc")%></span></td>
                         <td bgcolor="#EEEEEE">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="unnamed2_14">学期：<%=rs("xq")%></span></td>
                 </tr>
            </table>               <table width="768" border="0" cellpadding="0" cellspacing="0" height="25">
                 <tr> 
                   <td width="16%" align="center" height="25">30以下</td>
                   <td width="12%" align="center" height="25">30-59分</td>
                   <td width="12%" align="center" height="25">60-69</td>
                   <td width="12%" align="center" height="25">70-79</td>
                   <td width="12%" align="center" height="25">80-89</td>
                   <td width="12%" align="center" height="25">90-100</td>
                   <td width="12%" align="center" height="25">　</td>
                   <td width="12%" align="center" height="25">　</td>
                 </tr>
                </table>                <table width="768" height="22" border="0" cellpadding="0" cellspacing="0">
                  
                  <tr> 
                    <td width="16%" height="25" align="center"><%=rs1("num1")%>人</td>
                    <td width="12%" align="center"><%=rs2("num2")%>人</td>
                    <td width="12%" align="center"><%=rs3("num3")%>人</td>
                    <td width="12%" align="center"><%=rs4("num4")%>人</td>
                    <td width="12%" align="center"><%=rs5("num5")%>　人</td>
                    <td width="12%" align="center"><%=rs6("num6")%>人</td>
                    <td width="12%" align="center">　</td>
                    <td width="12%" align="center">
                    　</td>
       </tr>
<%
rs1.Close 
set rs=nothing
set conn=nothing
rs2.Close 
set rs2=nothing
set conn=nothing

rs3.Close 
set rs32=nothing
set conn=nothing

rs4.Close 
set rs4=nothing
set conn=nothing

rs5.Close 
set rs5=nothing
set conn=nothing

rs6.Close 
set rs6=nothing
set conn=nothing
%>
                </table></td>
        </tr>
</table>
        <table width="768" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td>　</td>
          </tr>
</table>
<!-- #include file="inc/copyr.asp" -->