📄 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="pragma" content="no-cache">
<title>红笛软件</title>
<style type="text/css">
<!--
.tables {
background-image: url(../Image/bigbg.jpg);
background-repeat: no-repeat;

}
.style3 {font-size: 12px}
.style4 {	color: #FFFFFF;
	font-size: 14px;
}
body,td,th {
	font-size: 12px;
}

.STYLE9 {
	font-size: 36px;
	font-family: "黑体";
	font-weight: bold;
	color: #FFFF00;
}
.STYLE10 {color: #FF0000}
.STYLE13 {
	font-weight: bold;}
a:link {
	text-decoration: none;
	color: #000066;
}
a:visited {
	text-decoration: none;
	color: #000066;
}
a:hover {
	text-decoration: none;
}
a:active {
	text-decoration: none;
}
.STYLE12 {font-family: "黑体"; font-size: 16px;color: #ffffff;}
body {
	background-color: #DEE7FF;
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
	background-image: url(../Image/bg.gif);
}
-->
</style><script language="JavaScript" type="text/JavaScript">

function delpay()
{
   if(confirm("确定要删除此吗？"))
     return true;
   else
     return false;	 
}
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" bgcolor="#3399fd">
  <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="400" align="center" valign="top" bgcolor="#3399FD"><table width="94%" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td height="28" align="center">&nbsp;</td>
      </tr>
      <tr>
        <td align="center"><%call hdobj.sturus("学生缴费查询")%></td>
      </tr>
    </table>    </td>
  </tr>
  <tr>
    <td height="25" bgcolor="#3399FD">　　</td>
  </tr>
  <tr>
    <td height="28" background="../Image/bg01a.jpg" bgcolor="#3399FD">&nbsp;</td>
  </tr>
</table>

</body>
</html>

<%

'======================================
'
'
'          成绩查询
'
'
'
'======================================

'Public Sub sturus(loi As String)
'Connkaa = WeekaaConn()
sub sturus(loi)

La = Request("La")
Lb = Request("Lb")


Response.Write "<table width='100%' height='25'  border='1' align='center' cellpadding='0' cellspacing='0' bordercolor='#0066CC'>"
Response.Write "<tr valign='bottom' bordercolor='#6A8FDA' bgcolor='#FFFFFF'>"
Response.Write "<td height='60' align='center' valign='bottom' bgcolor='#FFFFFF' align='center'>"
Response.Write "<form action='?action=search' method='post' name='form1' id='form1'><span class='STYLE10'>"
Call Solist("student", "La")
Response.Write "查询内容 <input name='Lb' type='text' id='Lb' size='10'></span>"
Response.Write "　学期<input name='Lc' type='text' id='Lc' size='10'>"
Response.Write "　课程<input name='Ld' type='text' id='Ld' size='10'>"
Response.Write "　类别<input name='Le' type='text' id='Le' size='10'>"
Response.Write "　<input name='Submit2' type='submit' id='Submit' value='提交'>　"

Response.Write "</form></td></tr></table>"
Response.Write "<table width='200' border='0' align='center' cellpadding='0' cellspacing='0'><tr>"
Response.Write "<td height='10'>&nbsp;</td></tr></table>"


tabb = "student"
Set stv = Server.CreateObject("ADODB.RecordSet")
sqstv = "Select * From [sets] where TB='" + tabb + "'"
stv.Open sqstv, Connkaa, 1, 3
rtvA = stv("a")
rtvB = stv("b")
rtvC = stv("c")


Response.Write "<table width='100%' border='0' align='center' cellpadding='0' cellspacing='0' bordercolor='#0033CC'>"

Response.Write "<tr><td height='30' align='center' class='STYLE12'>" & loi & "</td></tr>"
Response.Write "<td height='28' align='center' bgcolor='#0033CC' background='../Image/bg01.jpg'>　</td></tr>"
Response.Write "<tr><td><table width='100%' border='1' cellpadding='0' cellspacing='0' bordercolor='#E8EBEE'>"
Response.Write "<tr align='center' bgcolor='#F1F3F5' class='style3'>"
Response.Write "<td width='10%' height='25'>" & rtvA & "</td>"
Response.Write "<td width='10%'>" & rtvC & "</td>"
Response.Write "<td width='20%'>" & rtvB & "</td>"
Response.Write "<td width='60%'>成绩列表</td></tr>"
Set rs = Server.CreateObject("ADODB.RecordSet")
If Lb = "" Or La = "" Then
Sqls = "Select * From student order by c asc"
Else
Sqls = "Select * From student where " + La + " like '%" + Lb + "%' order by a asc"
End If
rs.Open Sqls, Connkaa, 1, 3

'=========================================================
Dim i, text, checkpage, page, MaxPerPage, CurrentPage
MaxPerPage = Request.Form("pages")
If MaxPerPage = "" Then
MaxPerPage = 12
End If
If MaxPerPage < 1 Or MaxPerPage > 1000 Then
MaxPerPage = 12
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
'==============================================================



i = 0
Do While Not rs.EOF
rsID = rs("ID")
rsNa = rs("a")
rsNb = rs("b")
rsNc = rs("c")
rsNd = rs("d")
rsNe = rs("e")
rsNf = rs("f")
rsNg = rs("g")
rsNh = rs("h")
nameLen = Len(rsNc)
If nameLen = 2 Then
rsNbs = Mid(rsNc, 1, 1) & "　" & Mid(rsNc, 2, 1)
rsNc = rsNbs
End If
      
Response.Write "<tr align='center' valign='bottom' bgcolor='#FFFFFF'>"
Response.Write "<td height='25' valign='middle'><a href=" & Chr(34) & "Per.asp?ID=" & rsID & Chr(34) & ">" & rsNa & "</a></td>"
Response.Write "<td height='25' valign='middle'><a href=" & Chr(34) & "Per.asp?ID=" & rsID & Chr(34) & ">" & rsNc & "</a></td>"
Response.Write "<td height='25' align='Left' valign='middle'>　" & rsNb & "</td><td>"
Call RusPer(rsID)
Response.Write "</td></tr>"
i = i + 1
If i >= MaxPerPage Then Exit Do
rs.MoveNext
Loop
NextP = NextPage
If NextPage > pageSum Then
NextP = 1
End If
Response.Write "</table></td></tr><tr><form name='form4' method='post' action=''><td height='30' align='center' bgcolor='#0033CC' background='../Image/bg01.jpg'>"
Response.Write "<span class='STYLE13'><input type='hidden' name='La' value='" & La & "'>"
Response.Write "<input type='hidden' name='Lb' value='" & Lb & "'>"
Response.Write "<input type='hidden' name='Lc' value='" & Lc & "'>"
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: #0033CC'>"
Response.Write "条记录　转到</span>"
Response.Write "<input name='pagee' type='text' id='pagee' value='" & NextP & "' 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: #0033CC'>"
Response.Write "<input name='Submit' type='submit' class='STYLE10' value='Go'></td></form></tr></table>"

end sub
sub RusPer(IDD)
Lc = Request("Lc")
Ld = Request("Ld")
Le = Request("Le")
Set rc = Server.CreateObject("ADODB.RecordSet")
if Lc="" then
if Ld="" then
if Le="" then
sqlc = "Select * From [StuRus] where a='"& IDD &"' order by c,tim asc"
else
sqlc = "Select * From [StuRus] where a='"& IDD &"' and g like '%"& Le &"%' order by c,tim asc"
end if
else
if Le="" then
sqlc = "Select * From [StuRus] where a='"& IDD &"' and d like '%"& Ld &"%' order by c,tim asc"
else
sqlc = "Select * From [StuRus] where a='"& IDD &"'  and d like '%"& Ld &"%' and g like '%"& Le &"%' order by c,tim asc"
end if
end if
else
if Ld="" then
if Le="" then
sqlc = "Select * From [StuRus] where a='"& IDD &"' and c like '%"& Lc &"%' order by c,tim asc"
else
sqlc = "Select * From [StuRus] where a='"& IDD &"' and c like '%"& Lc &"%' and g like '%"& Le &"%' order by c,tim asc"
end if
else
if Le="" then
sqlc = "Select * From [StuRus] where a='"& IDD &"' and c like '%"& Lc &"%' and d like '%"& Ld &"%' order by c,tim asc"
else
sqlc = "Select * From [StuRus] where a='"& IDD &"' and c like '%"& Lc &"%' and d like '%"& Ld &"%' and g like '%"& Le &"%' order by c,tim asc"
end if
end if
end if

rc.Open Sqlc,Connkaa,1,3

response.write "<table width='500' align='center' border='0' cellspacing='0' cellpadding='0' bordercolor='#E8E8E8'>"

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
Bg="#ff0000"
end if
if rsNf>=80 and rsNf<90 then
Bg="#EE11D2"
end if
if rsNf>=70 and rsNf<80 then
Bg="#F087FC"
end if
if rsNf>=60 and rsNf<70 then
Bg="#8380F0"
end if
if rsNf>=50 and rsNf<60 then
Bg="#C3C3C3"
end if

if rsNf>=40 and rsNf<50 then
Bg="#C3C3C3"
end if
if rsNf>=30 and rsNf<40 then
Bg="#D1D1D1"
end if
if rsNf>=20 and rsNf<30 then
Bg="#D9D9D9"
end if
if rsNf>=10 and rsNf<20 then
Bg="#D9D9D9"
end if
if rsNf<10 then
Bg="#E3E3E3"
end if
 
response.write "<tr align='center' height='25'><td width='100'>"& rcc
response.write "</td><td  width='200'>"& rcd
response.write "</td><td  width='100'>"& rcg
response.write "</td><td  width='100' bgcolor="& Bg & ">"& rcf
response.write "</td></tr>"

rc.movenext
loop
response.write "</table>"
end sub

%>
⌨️ 快捷键说明

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