📄 index3.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}
.style12 {font-size: 16px; font-family: "黑体";}
.style19 {font-size: 12px; }
body,td,th {
	font-size: 12px;
}
body {
	background-image: url(../Image/bg.gif);
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
	background-color: #3399FD;
}
a:link {
	text-decoration: none;
	color: #000000;
}
a:visited {
	text-decoration: none;
	color: #000000;
}
a:hover {
	text-decoration: none;
}
a:active {
	text-decoration: none;
	color: #000000;
}
.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;	 
}
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">


<%


if request.QueryString("action")="" then

La=Request.form("La")
La=La * 1

Set rs = Server.CreateObject("ADODB.RecordSet")
sqls = "Select * From [StuRus] where i="&La&" and h='未审核' order by a asc"
rs.Open Sqls,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
If NextPage > pageSum*1 Then
NextPage = 1
End If
'==============================================================
i=0

  
%>
<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="600" align="center" valign="top">
	<br><br>

<table width="90%" height="25"  border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#0066CC">
  <tr valign="bottom" bordercolor="#6A8FDA" bgcolor="#FFFFFF">
    <td height="60" align="center" valign="bottom" bgcolor="#FFFFFF"><form action="" method="post" name="form1" id="form1">
      <span class="style19">
      
      成绩未审的课程
          <%call rusno()%>
          
          　　
          <input name="Submit2" type="submit" id="Submit" value="提交">
      　</span>
    </form></td>
  </tr>
</table>

<br><br>


<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#0033CC">
 <form name="form2" method="post" action="?action=search">
  <tr>
    <td height="30" align="center" background='../Image/bg01.jpg' class="STYLE12">成绩审核</td>
  </tr>
  <tr>
    <td><table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#E8EBEE">
      <tr align="center" height="25"  bgcolor="#F1F3F5">
        <td width="10%" class="style3">学生姓名</td>
        <td width="15%" class="style3">班级名称</td>
        <td width="10%" class="style3">年度学期</td>
        <td width="15%" class="style3">课程名称</td>
        <td width="10%" class="style3">授课教师</td>
        <td width="10%" class="style3">成绩类别</td>
        <td width="10%" class="style3">未审成绩</td>
        <td width="10%" class="style3"><input type="submit" name="Submit" value="审核"></td>
        <td width="10%" class="style3">删除</td>
      </tr>

<%
if rs.eof then
Response.Write "<tr align='center' bgcolor='#FFFFFF'><td height='25' colspan='9'>没有需要审核的学生成绩</td></tr>"
end if
do while not rs.eof
rsNa=rs("a")
rsNb=rs("b")
rsNc=rs("d")
if rsNc="a" then
rsNc="必修"
else
rsNc="选修"
end if
i=i+1
SHD="L"&i
%>
	  
      <tr align="center" valign="bottom" bgcolor="#FFFFFF">
        <td><a href="../h/StuRusPes.asp?ID=<%=rs("a")%>"><%=CName("Student",rsNa,"c")%></a></td>
        <td height="25"><%=rs("b")%></td>
        <td align="left">　<%=rs("c")%></td>
        <td><%=rs("d")%></td>
        <td><%=rs("e")%></td>
        <td><%=rs("g")%></td>
        <td><%=rs("f")%></td>
        <td align="center"><input type="checkbox" name="<%=SHD%>" value=<%=rs("ID")%>></td>
		
        <td align="center"><a href='#' onClick="MM_openBrWindow('RusEdit.asp?ID=<%=rs("ID")%>','红笛软件','status=no,scrollbars=no,top=150,left=80,width=700,height=110')">改</a>|<a href="?deln=del&ID=<%=rs("ID")%>&KDD=<%=rs("k")%>" onClick="return delpay();">删</a></td>
      </tr>
<%

if i >= MaxPerpage then exit do
rs.movenext
loop	  

Response.Write "<input name='SH' type='hidden' id='SH' value="&i&">"
Response.Write "</form></table></td></tr><tr><form name='form2' method='post' action=''><td height='30' align='center' background='../Image/bg01.jpg'>"
Response.Write "<input type='hidden' name='La' value='" & La & "'><input type='hidden' name='Ld' value='" & Ld & "'>"
Response.Write "<input type='hidden' name='Lb' value='" & Lb & "'><input type='hidden' name='Lc' value='" & Lc & "'><input type='hidden' name='SH' value='" & SH & "'>"
Response.Write "第" & pageOn & "/" & pageSum & "页　共" & RsSum & "条记录 每页"
Response.Write "<input name='pages' type='text' id='pages' value='" & MaxPerPage & "'"
Response.Write " size='2' style='background-color: #3568FF; border-color: #FFFFFF; border-style: solid; border-width: 0px 0px 1px 0px, font-family:Verdana,Arial; font-size: 10pt; color: #FFFFFF'>"
Response.Write "条记录　转到</span>"
Response.Write "<input name='pagee' type='text' id='pagee' value='" & NextPage & "' size='2' style='background-color: #3568FF; border-color: #FFFFFF;"
Response.Write " border-style: solid; border-width: 0px 0px 1px 0px, font-family:Verdana,Arial; font-size: 10pt; color: #FFFFFF'>"
Response.Write "<input name='Submit' type='submit' class='STYLE10' value='Go'></td></form></tr></table>"

Response.Write "</td></tr><tr>"
Response.Write "<td height='25' background='../Image/bg01a.jpg'>&nbsp;</td></tr></table>"


else


SH=request.form("SH")

for i=1 to SH

SHD="L"&i
FDD=request.form(SHD)


if FDD<>"" then
FDD=FDD*1


Set rv = Server.CreateObject("ADODB.RecordSet")
sqlrv = "Select * From [StuRus] where ID="&FDD
rv.Open sqlrv, Connkaa, 1, 3
IF not rv.eof then
rv("h")="ok"
Fon=rv("b")

rv.update
rv.close
set rv=nothing
end if
end if
next
'===================================
'
'　记录操作信息
'
'===================================
User_p = "审核缴费:"& RVA & FDD
Ulr = Request.ServerVariables("URL")
Set Urs = Server.CreateObject("ADODB.RecordSet")
sqlUrs = "Select * From [LogInfo] Where (ID is null)"
Urs.Open sqlUrs, Connkaa, 1, 3
Urs.AddNew
Urs("a") = Session("AdminUser")
Urs("b") = Now()
Urs("c") = User_p
Urs("d") = Request.ServerVariables("REMOTE_ADDR")
Urs("e") = Ulr
Urs.Update
Urs.Close
Set Urs = Nothing

ErrInfo = "ErrInfo.asp?info=" + "审核成功！"
Response.Redirect (ErrInfo)
end if

If Request.QueryString("deln") = "del" Then

call hdobj.Deler("sturus","ID")


end if



Sub rusno()

   Response.Write "<select name='La' id='sellist'>"
   Dim pas, pts, p1, p2, pj, pi, plist
   Dim p(500)
   pj = ""
   Response.Write "<option value='" + pj + "'>" + pj + "</option>"
   pj = 1
   Set pas = Server.CreateObject("Adodb.RecordSet")
   sqllist = "Select * From StuRus where h='未审核' order by ID asc"
   pas.Open sqllist, Connkaa, 1, 3
   Do While Not pas.EOF
   
 
   
   pon = pas("b")
   pos=pas("c")
   p1=pon & ":" & pos
   p2 = 0

  
   For pi = 1 To pj
   If p1 = p(pi) Then
   p2 = 100
   End If
   Next

   If p2 = 0 Then
   p(pj) = p1
   Response.Write "<option value="& pas("i") &">"& p1 &"</option>"
   pj = pj + 1
   End If


   pas.MoveNext
   Loop
   pas.Close
   Set pas = Nothing
   Response.Write "</select>"
 End Sub
  Function CName(biao,ID,Na)
   Set ca = Server.CreateObject("Adodb.RecordSet")
   sqlca = "Select * From " & biao & " where ID="&ID
   ca.Open sqlca, Connkaa, 1, 3
   if not ca.eof then
   CN=ca(Na)
   else
   CN = ID
   end if
   if len(CN)=2 then
   CN=mid(CN,1,1) & "　"& mid(CN,2,1)
   end if
   
   
   CName = CN
   ca.close
   set ca=nothing
 end Function
%>

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

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