scoreset1.asp

来自「工资管理系统功能齐全包括工人工资信息查询.」· ASP 代码 · 共 109 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="CheckLogin.asp"-->
<!--#include file="StudentConn.asp" -->
<%
	DTestName=Request.QueryString("SsheetName")
	Dim msg:msg=Request("ntitle")
	strSubjects = DTestName & "." & Replace(Request("chkbox"),", ",", " & DTestName & ".")
	Set objConn=Server.CreateObject("ADODB.Connection")
	objConn.ConnectionString=MM_StudentConn_STRING
	objConn.Open
	If strSubjects<>"" then
		arr=split(strSubjects,",")
		for i=lbound(arr) to ubound(arr)
			strField=arr(i)
			Set RS1 = Server.CreateObject("ADODB.Recordset")
			RS1.ActiveConnection = MM_StudentConn_STRING
			RS1.Source = "select StudentNum from " & DTestName
			RS1.CursorType = 0
			RS1.CursorLocation = 3
			RS1.LockType = 3
			RS1.Open()
			sql="update " & DTestName & " set " & strField & "=0 where"
			for k=0 to Rs1.RecordCount-490
				sId=rs1(0)
				if k<Rs1.RecordCount-490 then
					sql=sql & " StudentNum='" & sId & "' or "
				else
					sql=sql & " StudentNum='" & sId & "'"
				end if
				rs1.MoveNext
			Next
			objConn.execute(sql)
			'Response.Write(sql & "<br>")
			sql="update " & DTestName & " set " & strField & "=0 where"
			for k=Rs1.RecordCount-489 to Rs1.RecordCount-391
				sId=rs1(0)
				if k<Rs1.RecordCount-391 then
					sql=sql & " StudentNum='" & sId & "' or "
				else
					sql=sql & " StudentNum='" & sId & "'"
				end if
				rs1.MoveNext
			Next
			objConn.execute(sql)
			'Response.Write(sql & "<br>")
			sql="update " & DTestName & " set " & strField & "=0 where"
			for k=Rs1.RecordCount-391 to Rs1.RecordCount-300
				sId=rs1(0)
				if k<Rs1.RecordCount-300 then
					sql=sql & " StudentNum='" & sId & "' or "
				else
					sql=sql & " StudentNum='" & sId & "'"
				end if
				rs1.MoveNext
			Next
			objConn.execute(sql)
			'Response.Write(sql & "<br>")
			sql="update " & DTestName & " set " & strField & "=0 where"
			for k=Rs1.RecordCount-300 to Rs1.RecordCount-210
				sId=rs1(0)
				if k<Rs1.RecordCount-210 then
					sql=sql & " StudentNum='" & sId & "' or "
				else
					sql=sql & " StudentNum='" & sId & "'"
				end if
				rs1.MoveNext
			Next
			objConn.execute(sql)
			'Response.Write(sql & "<br>")
			sql="update " & DTestName & " set " & strField & "=0 where"
			for k=Rs1.RecordCount-210 to Rs1.RecordCount-130
				sId=rs1(0)
				if k<Rs1.RecordCount-130 then
					sql=sql & " StudentNum='" & sId & "' or "
				else
					sql=sql & " StudentNum='" & sId & "'"
				end if
				rs1.MoveNext
			Next
			objConn.execute(sql)
			'Response.Write(sql & "<br>")
			sql="update " & DTestName & " set " & strField & "=0 where"
			for k=Rs1.RecordCount-130 to Rs1.RecordCount-50
				sId=rs1(0)
				if k<Rs1.RecordCount-50 then
					sql=sql & " StudentNum='" & sId & "' or "
				else
					sql=sql & " StudentNum='" & sId & "'"
				end if
				rs1.MoveNext
			Next
			objConn.execute(sql)
			'Response.Write(sql & "<br>")
			sql="update " & DTestName & " set " & strField & "=0 where"
			for k=Rs1.RecordCount-50 to Rs1.RecordCount-9
				sId=rs1(0)
				if k<Rs1.RecordCount-9 then
					sql=sql & " StudentNum='" & sId & "' or "
				else
					sql=sql & " StudentNum='" & sId & "'"
				end if
				rs1.MoveNext
			Next
			objConn.execute(sql)
			Response.Write(sql & "<br>")
		next
		Response.Redirect("scoreInputStep1.asp?msg="&msg)
	End If
%>