📄 index.asp

📁 学生信息化管理系统,目前最完美的学生信息化管理系统,界面美观,操作方面,个性化设置.一套软件管理多所学校.
💻 ASP
字号:
<% Set hdobj = Server.CreateObject("HD.comOpen")'请保证此行在最前面
Connkaa = hdobj.WeekaaConn()%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<META HTTP-EQUIV="luxiaoqing" CONTENT="no-cache">
<STYLE TYPE="text/css">
<!--
BODY {
	background-image: url(../Image/bg.gif);
	background-position: center;
	background-repeat: repeat;
	background-attachment: fixed;
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
	background-color: #3399FD;
} 

.style4 {
	color: #FFFFFF;
	font-size: 14px;
}
.style5 {color: #FF0000}
body,td,th {
	font-size: 12px;
}
a:link {
	color: #CC0000;
	text-decoration: none;
}
a:visited {
	text-decoration: none;
	color: #CC0000;
}
a:hover {
	text-decoration: none;
}
a:active {
	text-decoration: none;
}
.tables {
background-image: url(../Image/bigbg.jpg);
background-repeat: no-repeat;

}
-->
</STYLE>
<script language="Javdescript" type="text/Javdescript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</script>

</head>

<body onmouseover="self.status='红笛软件[http://weekaa.com/red]';return true">
<table width="1003" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="150" align="center" valign="bottom"><img src="../Image/bigbga.jpg" width="1003" height="150"></td>
  </tr>
  <tr>
    <td height="28" align="center" valign="bottom" background="../Image/bg01a.jpg">&nbsp;</td>
  </tr>
  <tr>
    <td height="600" align="center" valign="top" bgcolor="#3399fd"><table width="80%" border="0" cellspacing="0" cellpadding="0">
	 <tr>
        <td height="25" align="center">　</td>
      </tr>
      <tr>
        <td height="60" align="center" valign="middle" bgcolor="#FFFFFF"><table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#4472D2">
          <tr>
             <form name="form1" method="post" action=""><td height="60" align="center" valign="middle">
         
          <span class="style5">
          <%Call hdobj.Solist("student", "La")%>
          内容
          <input name="Lb" type="text" id="Lb" size="10">
          </span>学期
          <input name="Lc" type="text" id="Lc" size="10">课程<input name="Ld" type="text" id="Ld" size="10">类别<input name="Le" type="text" id="Le" size="10">
          <input type="submit" name="Submit" value="提交">
         </td> 
             </form>
          </tr>
        </table>     </td>
      </tr>
      <tr>
        <td height="25" align="center">&nbsp;</td>
      </tr>
      <tr>
        <td height="25" align="center" background="../Image/bg01.jpg">&nbsp;</td>
      </tr>
      <tr>
        <td height="100" align="center" bgcolor="#FFFFFF" class="style5"><%call RusPer("oo")%></td>
      </tr>
      <tr>
        <td height="25" align="center" background="../Image/bg01.jpg">&nbsp;</td>
      </tr>
      
    </table>
    </td>
  </tr>
  <tr>
    <td height="25" align="center" valign="top" bgcolor="#3399FD">&nbsp;</td>
  </tr>
  <tr>
    <td height="25" align="center" valign="top" background="../Image/bg01a.jpg">&nbsp;</td>
  </tr>
</table>


</body>
</html>
<%

sub RusPer(loi)
La = Request("La")
Lb = Request("Lb")
Lc = Request("Lc")
Ld = Request("Ld")
Le = Request("Le")
if Le="" then
Le="期末"
end if
if Le="全部" or Le="所有" then
Le=""
end if
F9=0
F8=0
F7=0
F6=0
F5=0
F4=0
F3=0
F2=0
F1=0
F0=0
Set rc = Server.CreateObject("ADODB.RecordSet")



if La<>"" and Lb<>"" then
Lon=La &" like '%"& Lb &"%' and"
Loi=La &" like '%"& Lb &"%' "
else
Lon=""
end if






if Lc="" then
if Ld="" then
if Le="" then
if La<>"" and Lb<>"" then
sqlc = "Select * From [StuRus] where "& Loi &" order by f desc"
else
sqlc = "Select * From [StuRus] order by f desc"
end if
else
sqlc = "Select * From [StuRus] where "& Lon &" g like '%"& Le &"%' order by f desc"
end if
else
if Le="" then
sqlc = "Select * From [StuRus] where "& Lon &" d like '%"& Ld &"%' order by f desc"
else
sqlc = "Select * From [StuRus] where "& Lon &" d like '%"& Ld &"%' and g like '%"& Le &"%' order by f desc"
end if
end if
else
if Ld="" then
if Le="" then
sqlc = "Select * From [StuRus] where "& Lon &" c like '%"& Lc &"%' order by f desc"
else
sqlc = "Select * From [StuRus] where "& Lon &" c like '%"& Lc &"%' and g like '%"& Le &"%' order by f desc"
end if
else
if Le="" then
sqlc = "Select * From [StuRus] where "& Lon &" c like '%"& Lc &"%' and d like '%"& Ld &"%' order by f desc"
else
sqlc = "Select * From [StuRus] where "& Lon &" c like '%"& Lc &"%' and d like '%"& Ld &"%' and g like '%"& Le &"%' order by f desc"
end if
end if
end if

rc.Open Sqlc,Connkaa,1,3

response.write "<table width='90%' align='center' border='0' cellspacing='1' cellpadding='0' bordercolor='#E8E8E8'>"
response.write "<tr align='center' height='25'><td width='10%'>姓名"
response.write "</td><td  width='20%'>班级"
response.write "</td><td  width='20%'>学期"
response.write "</td><td  width='20%'>课程"
response.write "</td><td  width='20%'>成绩类别"
response.write "</td><td  width='10%'>成绩"
response.write "</td></tr>"
do while not rc.eof
rcID=rc("ID")
rca=rc("a")
rcb=rc("b")
rcc=rc("c")
rcd=rc("d")
rce=rc("e")
rcf=rc("f")
rcg=rc("g")
if rcf<>"" then
rsNf=rcf*1
else
rsNf=0
end if
if rsNf>=90 then
F9=F9 + 1
Bg="#ff0000"
end if
if rsNf>=80 and rsNf<90 then
Bg="#EE11D2"
F8=F8 + 1
end if
if rsNf>=70 and rsNf<80 then
Bg="#F087FC"
F7=F7 + 1
end if
if rsNf>=60 and rsNf<70 then
Bg="#8380F0"
F6=F6 + 1
end if
if rsNf>=50 and rsNf<60 then
Bg="#C3C3C3"
F5=F5 + 1
end if

if rsNf>=40 and rsNf<50 then
Bg="#C3C3C3"
F4=F4 + 1
end if
if rsNf>=30 and rsNf<40 then
Bg="#D1D1D1"
F3=F3 + 1
end if
if rsNf>=20 and rsNf<30 then
Bg="#D9D9D9"
F2=F2 + 1
end if
if rsNf>=10 and rsNf<20 then
Bg="#D9D9D9"
F1=F1 + 1
end if
if rsNf<10 then
Bg="#E3E3E3"
F0=F0 + 1
end if
 
response.write "<tr align='center' height='25'><td width='10%'>"
Set rs = Server.CreateObject("ADODB.RecordSet")
sqls = "Select * From [Student] where ID="&rca
rs.Open Sqls,Connkaa,1,3
if rs.eof then
response.write rca
else
rsc=rs("c")
if len(rsc)=2 then
rsc=mid(rsc,1,1)&"　"&mid(rsc,2,1)
end if
response.write rsc
end if
rs.close
set rs=nothing
response.write "</td><td  width='20%'>"& rcb
response.write "</td><td  width='20%'>"& rcc
response.write "</td><td  width='20%'>"& rcd
response.write "</td><td  width='20%'>"& rcg
response.write "</td><td  width='10%' bgcolor="& Bg & ">"& rcf
response.write "</td></tr>"

rc.movenext
loop
response.write "<tr align='center' height='25'><td colspan='6'>"
Response.Write "90-100分" & F9 & "人"
Response.Write " 80-89 分" & F8 & "人"
Response.Write " 70-79 分" & F7 & "人"
Response.Write " 60-69 分" & F6 & "人"
Response.Write " 50-59 分" & F5 & "人"
Response.Write " 40-49 分" & F4 & "人"
Response.Write " 30-39 分" & F3 & "人"
Response.Write " 20-29 分" & F2 & "人"
Response.Write " 10-19 分" & F1 & "人"
Response.Write " 10以下分" & F0 & "人"
response.write "</td></tr>"
response.write "</table>"
end sub

%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -