⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 targetmanage2.asp

📁 很好的学籍管理系统代码
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
end if

set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_StudentConn_STRING
Recordset1.Source = "SELECT StudentNum, Name  FROM StudentInfo WHERE StudentNum like '" & Recordset1__MMColParam & "%'  ORDER BY StudentNum"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0

set Recordset3 = Server.CreateObject("ADODB.Recordset")
Recordset3.ActiveConnection = MM_StudentConn_STRING
Recordset3.Source = "SELECT *  FROM TargetScore WHERE StudentNum like '" & Recordset3__MMColParam & "%'  ORDER BY StudentNum"
Recordset3.CursorType = 0
Recordset3.CursorLocation = 2
Recordset3.LockType = 3
Recordset3.Open()
Recordset3_numRows = 0

Dim Repeat1__numRows
Repeat1__numRows = -1
Dim Repeat1__index
Repeat1__index = 0
Recordset3_numRows = Recordset3_numRows + Repeat1__numRows
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>目标分管理</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2600.0" Name=GENERATOR>
<link href="home.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0>
<!--#include file="ScoreManage_Top.asp"-->
<TABLE width="760" border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
    <TR> 
      <TD width=1 background="images/dotLine_h.gif"><IMG src="images/shim(1).gif" width=1></TD>
      <TD Width="100" align="center" bgcolor="#EEEEEE">&nbsp;</TD>
      <td width="10" bgcolor="#F2FBF2"></td>
      <TD bgcolor="#F2FBF2"><a href="TargetManage.asp"><img src="images/TargetManage_Title.GIF" width="500" height="60" border="0"></a><br>
        <form Name="form1" action="<%=MM_editAction%>" method="POST">
          <font color="#FF0000"><b>查询条件：</b></font> 
          <%
			 if Request("StudentNum")<>"" then
			     response.write "学号中含有“" & strStudentNum & "”"
			 elseif strName<>"" then
			     response.write "姓名中含有“" & strName & "”"
			 else
				 if strClass<>"" then strClass=strClass & "班" 
				 response.write "高" & strGrade+1 & "级" & strClass 
			 end if
			%>
          <br>
          <br>
          <b><font color="#FF0000">未录入目标分的学生名单：</font></b><br>
          <% If Not Recordset1.EOF Or Not Recordset1.BOF Then %>
          <table border="1" cellpadding="0" cellspacing="3">
            <tr valign='middle' bordercolorlight="#CCCCCC" bordercolordark="#FFFFFF"> 
              <td width='60' height='25' align='center'>学号</td>
              <td width='60' align='center'>姓名</td>
              <%
						  strTemp = Request("chkbox")
						  if instr(strTemp,",")>0 then
						    ArrSubject = split(strTemp,",")
						  	For i = LBound(ArrSubject) To UBound(ArrSubject)
							    response.write "<td align='center'>" & Trim(ArrSubject(i)) & "</td>"
							next
						  else
						  	response.write "<td align='center'>" & strTemp & "</td>"
						  end if
						  %>
            </tr>
            <% response.Write(vbCrlf) %>
            <%
i = 0
While (NOT Recordset1.EOF)
Recordset5__MMColParam = CStr(Recordset1.Fields.Item("StudentNum").Value)
set Recordset5 = Server.CreateObject("ADODB.Recordset")
Recordset5.ActiveConnection = MM_StudentConn_STRING
Recordset5.Source = "SELECT StudentNum," & request("chkbox") & " FROM TargetScore WHERE StudentNum = '" + Replace(Recordset5__MMColParam, "'", "''") + "'"
Recordset5.CursorType = 0
Recordset5.CursorLocation = 2
Recordset5.LockType = 3
Recordset5.Open()
Recordset5_numRows = 0
if recordset5.bof or recordset5.eof then
	i = i + 1
	response.Write("<tr valign='middle'>")
	response.Write("<td height='25' align='center'>" & Recordset1.Fields.Item("StudentNum").Value & "</td>")
	response.Write("<input name='StudentNum' type='hidden' value='" & Recordset1.Fields.Item("StudentNum").Value & "'>")
	response.Write("<input name='EditType' type='hidden' value='Insert'>")
	response.Write("<td align='center'>" & Recordset1.Fields.Item("Name").Value & "</td>")
	strTemp = Request("chkbox")
	if instr(strTemp,",")>0 then
		ArrSubject = split(strTemp,",")
		For i = LBound(ArrSubject) To UBound(ArrSubject)
			response.write "<td align='center'><input type='text' maxlength=4 size=4 Name='" & Trim(ArrSubject(i)) & "'></td>"
		next
	else
		response.write "<td align='center'><input type='text' maxlength=4 size=4 Name='" & strTemp & "'></td>"
	end if
    response.Write("</tr>" & vbCrlf)
else
  strTemp = CStr(Request("chkbox"))
  UpdateFlag=False
  if instr(strTemp,",")>0 then
	dim ArrSubject
	ArrSubject = split(strTemp,",")
	For j = LBound(ArrSubject) To UBound(ArrSubject)
		if IsNull(Recordset5.Fields.Item(Trim(ArrSubject(j))).Value) or Recordset5.Fields.Item(Trim(ArrSubject(j))).Value=0 then
			UpdateFlag=True
		end if
	next
	if UpdateFlag=True then
		i = i + 1
		response.Write("<tr valign='middle'>")
		response.Write("<td height='25' align='center'>" & Recordset1.Fields.Item("StudentNum").Value & "</td>")
		response.Write("<input name='StudentNum' type='hidden' value='" & Recordset1.Fields.Item("StudentNum").Value & "'>")
		response.Write("<input name='EditType' type='hidden' value='Update'>")
		response.Write("<td align='center'>" & Recordset1.Fields.Item("Name").Value & "</td>")
		For j = LBound(ArrSubject) To UBound(ArrSubject)
			tmpScore=Recordset5.Fields.Item(Trim(ArrSubject(j))).Value
			response.write "<td align='center'><input type='text' maxlength=4 size=4 Name='" & Trim(ArrSubject(j)) & "' value='" & tmpScore & "'></td>"
		next
	    response.Write("</tr>" & vbCrlf)
	end if
  else
    if IsNull(Recordset5.Fields.Item(strTemp).Value) or Recordset5.Fields.Item(strTemp).Value=0 then
		i = i + 1
		response.Write("<tr valign='middle'>")
		response.Write("<td height='25' align='center'>" & Recordset1.Fields.Item("StudentNum").Value & "</td>")
		response.Write("<input name='StudentNum' type='hidden' value='" & Recordset1.Fields.Item("StudentNum").Value & "'>")
		response.Write("<input name='EditType' type='hidden' value='Update'>")
		response.Write("<td align='center'>" & Recordset1.Fields.Item("Name").Value & "</td>")
		response.write("<td align='center'><input type='text' maxlength=4 size=4 Name='" & strTemp & "'></td>")
	    response.Write("</tr>" & vbCrlf)
	end if
  end if
end if
Recordset5.Close()
Recordset1.MoveNext()
Wend

If (Recordset1.CursorType > 0) Then
  Recordset1.MoveFirst
Else
  Recordset1.Requery
End If
				  
if i = 0 then
	response.Write "全部成绩都已经录入"
end if
%>
          </table>
          <br>
          <%
				strSubject = replace(replace(Request("chkbox"),",","|value|") & "|value"," ","")
				if i>0 then
				%>
          <input type="hidden" Name="InputScore" value="True">
          <input type="hidden" Name="Subject" value="<% =strSubject %>">
          <input type="submit" Name="Submit2" value="保存已录入的学生成绩">
          <%
                end if
		  else 
			  response.Write("找不到学生，请先在学生信息管理中录入相应的学生信息！")
          end if
%>
        </form>
        <b><font color="#FF0000">已经录入目标分的学生：</font></b> 
        <% If Not Recordset3.EOF Or Not Recordset3.BOF Then %>
        <table cellspacing=0 width="100%" border=1 cellpadding="0" bordercolor="#FFCC00">
          <tr align="center" valign="middle" bordercolor="#FFCC00"> 
            <td height="28"><font color="#000000">学 号</font></td>
            <td height="28"><font color="#000000">姓 名</font></td>
            <%
						for i=5 to Recordset3.Fields.Count-1
						  Response.Write "<td height='28'><font color='#000000'>" & Recordset3.Fields.Item(i).Name & "</font></td>"
						next
						%>
            <td height="28"><font color="#000000">操作</font></td>
          </tr>
          <% 
While ((Repeat1__numRows <> 0) AND (NOT Recordset3.EOF)) 
%>
          <%
Recordset4__MMColParam = CStr(Recordset3.Fields.Item("StudentNum").Value)
set Recordset4 = Server.CreateObject("ADODB.Recordset")
Recordset4.ActiveConnection = MM_StudentConn_STRING
Recordset4.Source = "SELECT StudentNum, Name  FROM StudentInfo WHERE StudentNum = '" + Replace(Recordset4__MMColParam, "'", "''") + "'"
Recordset4.CursorType = 0
Recordset4.CursorLocation = 2
Recordset4.LockType = 3
Recordset4.Open()
Recordset4_numRows = 0
if not recordset4.bof or not recordset4.eof then
	strName=cstr(Recordset4.Fields.Item("Name").Value)
	if strName="" then strName="&nbsp;"
else
	strName="&nbsp;"
end if
%>
          <tr align="center" valign="middle"> 
            <td height="20"><%=(Recordset3.Fields.Item("StudentNum").Value)%></td>
            <td height="20"><%=strName%></td>
            <%
						for i=5 to Recordset3.Fields.Count-1
						  tmpScore=Recordset3.Fields.Item(i).Value
						  if IsNull(tmpScore) then tmpScore="&nbsp;"
						  Response.Write "<td height='20'>" & tmpScore & "</td>"
						next
						%>
            <td height="20"><A HREF="TargetModify.asp?StudentNum=<%=(Recordset3.Fields.Item("StudentNum").Value)%>">修改</A> 
              <A HREF="TargetDel.asp?StudentNum=<%=(Recordset3.Fields.Item("StudentNum").Value)%>">删除</A></td>
          </tr>
          <%
Recordset4.Close()
%>
          <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Recordset3.MoveNext()
Wend
%>
          <tbody>
          </tbody>
        </table>
        <% else
			response.Write "<br><br>还没有录入任何学生的目标分！<br> <br> <br> "
         end if %>
      </td>
      <TD width=1 background="images/dotLine_h.gif"><IMG src="images/shim(1).gif" width=1></TD>
    </TR>
    <tr> 
      <TD height="1" colspan="7" background="images/dotLine_w.gif"><IMG height=1 src="images/shim(1).gif" width=100></TD>
    </tr>
  </TBODY>
</TABLE>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>
		<Iframe src="http://cqzx.sdedu.net/sdms/CopyRight.asp" width="760" height="200" marginheight="0" marginwidth="0" scrolling="NO" frameborder="0" name="CopyRight"></iframe>
	</td>
  </tr>
</table></BODY>
</HTML>
<%
Recordset1.Close()
%>
<%
Recordset3.Close()
%>
12

⌨️ 快捷键说明

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