scorecount1.asp

工资管理系统功能齐全包括工人工资信息查询.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="CheckLogin.asp"-->
<!--#include file="StudentConn.asp" -->
<%
	strSheetName = Request("SheetName")
	strGrade=Request("GradeID")
	strClass=Request("ClassID")
	strOrderField=Request("OrderField")
	Dim RS1,str1
	Dim sql,rs
	Dim msg:msg="数据统计完毕，请继续选择其他统计项目！"
	Dim mmsg:mmsg="没有可用的公式，请先设置公式！"
	Test_Name=Request("SheetName")
	Set Conn=Server.CreateObject("ADODB.Connection")
	Conn.ConnectionString=MM_StudentConn_STRING
	Conn.Open
	Set rs=Server.CreateObject("ADODB.Recordset")
	sql="Select * from gongshi"
	rs.open sql,Conn,3,3
	If Test_Name<>"" Then
%>
<%
	Set objConn=Server.CreateObject("ADODB.Connection")
	objConn.ConnectionString=MM_StudentConn_STRING
	objConn.Open
	Set RS1 = Server.CreateObject("ADODB.Recordset")
	RS1.ActiveConnection = MM_StudentConn_STRING
	RS1.Source = "select StudentNum from " & Test_Name
	RS1.CursorType = 0
	RS1.CursorLocation = 3
	RS1.LockType = 3
	RS1.Open()
	strField=" Set "
	for i=0 to rs.Recordcount-1
		if i=rs.Recordcount-1 then
		   strField=strField & rs("Content") & "=" & rs("Test_Content")
		else 
		   strField=strField & rs("Content") & "=" & rs("Test_Content") & ","
		end if
		rs.MoveNext
	next
	while not rs1.eof
		sId=rs1(0)
		If strField<>"" and len(strField)>4 Then
			strUpdate="update " & Test_Name & strField & " where StudentNum='" & sId & "'"
			objConn.execute(strUpdate)
			'Response.Write(strUpdate & "<br>")
		else
			Response.Redirect("CountTest.asp?msg="&mmsg)
		End if
		rs1.MoveNext
	wend
	Response.Redirect("ScoreQuery3.asp?sheetName=" & strSheetName & "&grade=" & strGrade & "&ClassID=" & strClass &"&OrderField=" & strOrderField)
	end if
%>
<%
	RS1.Close()
	Set RS1 = Nothing
	objConn.Close()
	Set objConn = Nothing
	rs.Close()
	Set rs=Nothing
	Conn.Close()
	Set Conn=Nothing
%>