?? index.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"> </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")%>
內(nèi)容
<input name="Lb" type="text" id="Lb" size="10">
</span>學(xué)期
<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"> </td>
</tr>
<tr>
<td height="25" align="center" background="../Image/bg01.jpg"> </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"> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="25" align="center" valign="top" bgcolor="#3399FD"> </td>
</tr>
<tr>
<td height="25" align="center" valign="top" background="../Image/bg01a.jpg"> </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%'>學(xué)期"
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
%>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -