modify_ks.asp

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

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="StudentConn.asp" -->
<%
	ClassID=Request("ClassID")
	GradeID=Request("GradeID")
	oStudentNum=Request("StudentNum")
	Dim rs
	Set rs=Server.CreateObject("ADODB.Recordset")
	rs.ActiveConnection=MM_StudentConn_STRING
	rs.Source="Select * from StudentInfo Where ClassID='" & ClassID & "' and GradeID='" & GradeID & "'"
	rs.CursorType = 0
	rs.CursorLocation = 3
	rs.LockType = 3
	rs.Open()
	while not rs.eof
		rs.moveLast
		nClassName=rs("ClassName")
		nClassID=rs("ClassID")
		nGradeName=rs("Grade")
		nGradeID=rs("GradeID")
		nStudentNum=rs("StudentNum")+1
		if left(nStudentNum,1)<>"0" then
			nStudentNum="0" & nStudentNum
	    end if
		Response.Write(nStudentNum)
		rs.movenext
	wend
%>
<%
	MM_editConnection = MM_StudentConn_STRING
	MM_editQuery = "update StudentInfo set ClassName='" & nClassName & "',ClassID='" & nClassID & "',Grade='" & nGradeName & "',GradeID='" & nGradeID & "',StudentNum='" & nStudentNum & "' where StudentNum='" & oStudentNum & "'"
	Set MM_editCmd = Server.CreateObject("ADODB.Command")
	MM_editCmd.ActiveConnection = MM_editConnection
	MM_editCmd.CommandText = MM_editQuery
	MM_editCmd.Execute
	MM_editCmd.ActiveConnection.Close
	Response.Redirect("KsQuery.asp?StudentNum="&nStudentNum)
%>