📄 studentsumb.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="pragma" content="no-cache">
<title>红笛软件</title>
<style type="text/css">
<!--
.style3 {font-size: 12px}
.style4 {
	font-size: 14px;
}
body,td,th {
	font-size: 12px;
}
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
	background-image: url(../Image/bg.gif);
	background-color: #DEE7FF;
}
.STYLE9 {
	font-size: 36px;
	font-family: "黑体";
	font-weight: bold;
	color: #FFFF00;
}

a:link {
	text-decoration: none;
	color: #FF0000;
}
a:visited {
	text-decoration: none;
	color: #FF0000;
}
a:hover {
	text-decoration: none;
}
a:active {
	text-decoration: none;
}
.STYLE12 {font-family: "黑体"; font-size: 16px;color: #FFFFFF;}
.style13 {
	font-size: 12px;
}
.tables {
background-image: url(../Image/bigbg.jpg);
background-repeat: no-repeat;

}
-->
</style><script language="JavaScript" type="text/JavaScript">
<!--
function delpay()
{
   if(confirm("确定要删除此吗？"))
     return true;
   else
     return false;	 
}

//-->//-->
</script>
</head>

<body onmouseover="self.status='红笛软件:服务网址[http://weekaa.com/red]';return true">


<%
call stusumb()
sub stusumb()

response.write "<table width='1003' border='0' align='center' cellpadding='0' cellspacing='0' bgcolor='#3399fd'>"
response.write "<tr> <td height='150'><img src='../Image/bigbga.jpg' width='1003' height='150'></td></tr><tr>"
response.write "<tr> <td height='25' background='../Image/bg01a.jpg'>　</td></tr><tr>"

response.write "<td height='400' align='center' valign='top'><table width='94%' border='0' align='center' cellpadding='0' cellspacing='0'><tr><td align='center'>"
TB="classs"
dim stv,sqstv
Set stv = Server.CreateObject("ADODB.RecordSet")
sqstv = "Select * From [sets] where TB='"&TB&"'"
stv.Open Sqstv,Connkaa,1,3
response.write "<table width='100%' border='0' align='center' cellspacing='0'>"

response.write "<tr align='center'>"
response.write "<td height='40' colspan='5' valign='middle' class='STYLE12'>"
response.write  "学生基本情况汇总表</td></tr>"

response.write "<tr align='center' bgcolor='#F1F3F5'>"
response.write "<td height='28' colspan='5' valign='middle' background='../Image/bg01.jpg' class='STYLE12'>"
response.write  " 　</td></tr>"

response.write "<tr align='center' bgcolor='#F1F3F5'>"
response.write "<td width='20%' rowspan='2' class='style3'>" & stv("b") & "</td>"
response.write "<td width='34%' rowspan='2' class='style3'>" & stv("e") & "　　　<a href='StudentSum.asp'>[展开]</a></td>"
response.write "<td width='18%' rowspan='2' class='style3'>学生总数</td>"
response.write "<td height='25' colspan='2' class='style3'>性　别</td></tr>"
response.write "<tr align='center' bgcolor='#F1F3F5'>"
response.write "<td width='13%' height='25' class='style3'>男生</td>"
response.write "<td width='15%' class='style3'>女生</td></tr>"
Hja=0
Hjb=0
Hjc=0
Set ru = Server.CreateObject("ADODB.RecordSet")
sqlu = "Select * From [student]"
ru.Open Sqlu,Connkaa,1,3
Zja=0
Zjb=0
Zjc=0
rca=0
do while not ru.eof
Zja=Zja+1
rud=ru("d")
rud=trim(rud)
if rud="男" then
Zjb=Zjb+1
end if
ru.movenext
loop
Zjc=Zja-Zjb
ru.close
set ru=nothing
Set rc = Server.CreateObject("ADODB.RecordSet")
sqlc = "Select * From [classs]"
rc.Open Sqlc,Connkaa,1,3
do while not rc.eof
rca=rca+1
rc.movenext
loop
rc.close
set rc=nothing
response.write "<tr align='center' bgcolor='#FFECFF'>"
response.write "<td height='25'>全校合计</td>"
response.write "<td >全校共" & rca & "个班级</td>"
response.write "<td>" & Zja & "</td>"
response.write "<td>" & Zjb & "</td>"
response.write "<td>" & Zjc & "</td></tr>"


Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "Select * From [classs] order by b asc"
rs.Open Sql,Connkaa,1,3

'=========================================================
Dim i, text, checkpage, page, MaxPerPage, CurrentPage
MaxPerPage = Request.Form("pages")
If MaxPerPage = "" Then
MaxPerPage = 30
End If
If MaxPerPage < 1 Or MaxPerPage > 1000 Then
MaxPerPage = 30
End If
MaxPerPage = MaxPerPage * 1
text = "0123456789"
rs.PageSize = MaxPerPage
GoPage = Request.Form("pagee")
For i = 1 To Len(GoPage)
checkpage = InStr(1, text, Mid(GoPage, i, 1))
If checkpage = 0 Then
Exit For
End If
Next
If checkpage <> 0 Then
If Not IsEmpty(GoPage) Then
CurrentPage = CInt(GoPage)
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > rs.PageCount Then CurrentPage = rs.PageCount
Else
CurrentPage = 1
End If
If Not rs.EOF Then
rs.AbsolutePage = CurrentPage
End If
Else
CurrentPage = 1
End If
RsSum = CStr(rs.RecordCount) '记录总条数
pageOn = CStr(CurrentPage) '当前第几页
pageSum = CStr(rs.PageCount) '总共几页
NextPage = pageOn + 1
pageSum=pageSum + 0
If NextPage > pageSum Then
NextPage = 1
End If
'==============================================================
clasu=0
i=0
J=0
Hj=rs("b")
do while not rs.eof
rsB=rs("b")
rsBB=rs("b")
rsE=rs("e")

if Hj<>rsBB then
response.write "<tr align='center' bgcolor='#FFFFFF'>"
response.write "<td height='25'>" & rsBB & "</td>"
response.write "<td>共　"& clasu &"　班</td>"
response.write "<td>" & Hja & "</td>"
response.write "<td>" & Hjb & "</td>"
response.write "<td>" & Hjc & "</td></tr>"
Hja=0
Hjb=0
Hjc=0
clasu=0
i=i+1
end if


If rsB = pb Then
rsB = "."
Else
pb = rsB
Hj=rsB
End If

Set rv = Server.CreateObject("ADODB.RecordSet")
sqlv = "Select * From [student] where b='"&rsE&"'"
rv.Open Sqlv,Connkaa,1,3
Tja=0
Tjb=0
Tjc=0
do while not rv.eof
Tja=Tja+1
rvd=rv("d")
rvd=trim(rvd)
if rvd="男" then
Tjb=Tjb+1
end if
rv.movenext
loop
Tjc=Tja-Tjb
Hja=Hja+Tja
Hjb=Hjb+Tjb
Hjc=Hjc+Tjc
rv.close
set rv=nothing


'response.write "<tr align='center' bgcolor='#FFFFFF'>"
'response.write "<td height='25'>" & rsB & "</td>"
'response.write "<td>" & rsE & "</td>"
'response.write "<td>" & Tja & "</td>"
'response.write "<td>" & Tjb & "</td>"
'response.write "<td>" & Tjc & "</td></tr>"
clasu=clasu+1
J=J+1
if J >= MaxPerpage then exit do   
rs.movenext
loop


response.write "<tr align='center' bgcolor='#FFFFFF'>"
response.write "<td height='25'>" & rsBB & "</td>"
response.write "<td>共　"& clasu &"　班</td>"
response.write "<td>" & Hja & "</td>"
response.write "<td>" & Hjb & "</td>"
response.write "<td>" & Hjc & "</td></tr>"

Response.Write "<tr><form name='form2' method='post' action=''><td colspan='5' height='28' align='center'  background='../Image/bg01.jpg'>"
Response.Write "<span class='STYLE13'>"
Response.Write "<span class='STYLE13'>"
Response.Write "第" & pageOn & "/" & pageSum & "页　共" & RsSum & "条记录 每页"
Response.Write "<input name='pages' type='text' id='pages' value='" & MaxPerPage & "'"
Response.Write " size='2' style='background-color: #DEE7FF; border-color: #FFFFFF; border-style: solid; border-width: 0px 0px 1px 0px, font-family:Verdana,Arial; font-size: 10pt; color: #000000'>"
Response.Write "条记录　转到</span>"
Response.Write "<input name='pagee' type='text' id='pagee' value='" & NextPage & "' size='2' style='background-color: #DEE7FF; border-color: #FFFFFF;"
Response.Write " border-style: solid; border-width: 0px 0px 1px 0px, font-family:Verdana,Arial; font-size: 10pt; color: #000000'>"
Response.Write "<input name='Submit' type='submit' class='STYLE10' value='Go'></td></form></tr></table>"
response.write "</td></tr></table></td></tr><tr>"
response.write "<td height='25' background='../Image/bg01a.jpg'>　</td></tr></table>"
end sub
%> 

</body>
</html>
⌨️ 快捷键说明

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