counttest3.asp

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

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="CheckLogin.asp"-->
<!--#include file="StudentConn.asp" -->
<%
	Dim RS1,str1
	Dim msg:msg="数据统计完毕，请继续选择其他统计项目！"
	Test_Name=Request("TestName")
	Content_Name=Request("ContentName")
	Dim sql,rs
	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
	strField=request("gongshi")
	If Test_Name<>"" Then
%>
<%
		If strField<>"" then
'			arr=split(str1,",")
'			strField="("
'			for i=lbound(arr) to ubound(arr)
'				if i=0 then
'				   strField=strField & arr(i)
'				else 
'				   strField=strField & "+" & arr(i)
'				end if
'			next
'			strField=strField & ")"
			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()
			Response.Write(strField)
			Response.End()
			while not rs1.eof
				sId=rs1(0)			
				strUpdate="update  " & Test_Name & " Set " & Content_Name & "=" & strField & " where StudentNum='" & sId & "'"
				objConn.execute(strUpdate)	
				rs1.MoveNext		
			wend
			Response.Redirect("CountTest.asp?msg=" &msg)
		End If
	End If
%>
<%
	RS1.Close()
	Set RS1 = Nothing
	objConn.Close()
	Set objConn = Nothing
%>