infomodify.asp

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

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="StudentConn.asp" -->
<!--#include file="CheckLogin.asp"-->
<%
	Dim rsGrade1__MMColParam
	rsGrade1__MMColParam = "01"
	If (Request("MM_EmptyValue") <> "") Then 
	  rsGrade1__MMColParam = Request("MM_EmptyValue")
	End If
%>
<%
	Dim rsGrade1
	Dim rsGrade1_numRows
	Set rsGrade1 = Server.CreateObject("ADODB.Recordset")
	rsGrade1.ActiveConnection = MM_StudentConn_STRING
	rsGrade1.Source = "SELECT * FROM Class WHERE GradeID = '" & rsGrade1__MMColParam & "' ORDER BY ClassID ASC"
	rsGrade1.CursorType = 0
	rsGrade1.CursorLocation = 2
	rsGrade1.LockType = 1
	rsGrade1.Open()
	rsGrade1_numRows = 0
%>
<%
	Dim rsGrade2__MMColParam
	rsGrade2__MMColParam = "02"
	If (Request("MM_EmptyValue") <> "") Then 
	  rsGrade2__MMColParam = Request("MM_EmptyValue")
	End If
%>
<%
	Dim rsGrade2
	Dim rsGrade2_numRows
	Set rsGrade2 = Server.CreateObject("ADODB.Recordset")
	rsGrade2.ActiveConnection = MM_StudentConn_STRING
	rsGrade2.Source = "SELECT * FROM Class WHERE GradeID = '"& rsGrade2__MMColParam & "' ORDER BY ClassID ASC"
	rsGrade2.CursorType = 0
	rsGrade2.CursorLocation = 2
	rsGrade2.LockType = 1
	rsGrade2.Open()
	rsGrade2_numRows = 0
%>
<%
	Dim rsGrade3__MMColParam
	rsGrade3__MMColParam = "03"
	If (Request("MM_EmptyValue") <> "") Then 
	  rsGrade3__MMColParam = Request("MM_EmptyValue")
	End If
%>
<%
	Dim rsGrade3
	Dim rsGrade3_numRows
	Set rsGrade3 = Server.CreateObject("ADODB.Recordset")
	rsGrade3.ActiveConnection = MM_StudentConn_STRING
	rsGrade3.Source = "SELECT * FROM Class WHERE GradeID = '" & rsGrade3__MMColParam & "' ORDER BY ClassID ASC"
	rsGrade3.CursorType = 0
	rsGrade3.CursorLocation = 2
	rsGrade3.LockType = 1
	rsGrade3.Open()
	rsGrade3_numRows = 0
%>
<%
	Dim rsGrade4__MMColParam
	rsGrade4__MMColParam = "04"
	If (Request("MM_EmptyValue") <> "") Then 
	  rsGrade4__MMColParam = Request("MM_EmptyValue")
	End If
%>
<%
	Dim rsGrade4
	Dim rsGrade4_numRows
	Set rsGrade4 = Server.CreateObject("ADODB.Recordset")
	rsGrade4.ActiveConnection = MM_StudentConn_STRING
	rsGrade4.Source = "SELECT * FROM Class WHERE GradeID = '" & rsGrade4__MMColParam & "' ORDER BY ClassID ASC"
	rsGrade4.CursorType = 0
	rsGrade4.CursorLocation = 2
	rsGrade4.LockType = 1
	rsGrade4.Open()
	rsGrade4_numRows = 0
%>
<%
	Dim rsGrade5__MMColParam
	rsGrade5__MMColParam = "05"
	If (Request("MM_EmptyValue") <> "") Then 
	  rsGrade5__MMColParam = Request("MM_EmptyValue")
	End If
%>
<%
	Dim rsGrade5
	Dim rsGrade5_numRows
	Set rsGrade5 = Server.CreateObject("ADODB.Recordset")
	rsGrade5.ActiveConnection = MM_StudentConn_STRING
	rsGrade5.Source = "SELECT * FROM Class WHERE GradeID = '" & rsGrade5__MMColParam & "' ORDER BY ClassID ASC"
	rsGrade5.CursorType = 0
	rsGrade5.CursorLocation = 2
	rsGrade5.LockType = 1
	rsGrade5.Open()
	rsGrade5_numRows = 0
%>
<%
	Dim Recordset1__MMColParam
	Recordset1__MMColParam = "1"
	if (Request.QueryString("StudentNum") <> "") then Recordset1__MMColParam = Request.QueryString("StudentNum")
%>
<%
	MM_editAction = CStr(Request("URL"))
	If (Request.QueryString <> "") Then
	  MM_editAction = MM_editAction & "?" & Request.QueryString
	End If
	MM_abortEdit = false
	MM_editQuery = ""
%>
<%
If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then
  MM_editConnection = MM_StudentConn_STRING
  MM_editTable = "StudentInfo"
  MM_editColumn = "StudentNum"
  MM_recordId = "'" + Request.Form("MM_recordId") + "'"
  MM_editRedirectUrl = "InfoQuery2.asp"
  MM_fieldsStr  = "Name|value|politics|value|Birthday|value|TelNum|value|remark|value|GradeId|value|ClassID|value|ClassName|value|Grade|value"
  MM_columnsStr = "Name|',none,''|politics|',none,''|Birthday|',none,''|TelNum|',none,''|remark|',none,''|GradeId|',none,''|ClassID|',none,''|ClassName|',none,''|Grade|',none,''"
  MM_fields = Split(MM_fieldsStr, "|")
  MM_columns = Split(MM_columnsStr, "|")
  For i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(i+1) = CStr(Request.Form(MM_fields(i)))
  Next
End If
%>
<%
If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then
  MM_editQuery = "update " & MM_editTable & " set "
  For i = LBound(MM_fields) To UBound(MM_fields) Step 2
    FormVal = MM_fields(i+1)
    MM_typeArray = Split(MM_columns(i+1),",")
    Delim = MM_typeArray(0)
    If (Delim = "none") Then Delim = ""
    AltVal = MM_typeArray(1)
    If (AltVal = "none") Then AltVal = ""
    EmptyVal = MM_typeArray(2)
    If (EmptyVal = "none") Then EmptyVal = ""
    If (FormVal = "") Then
      FormVal = EmptyVal
    Else
      If (AltVal <> "") Then
        FormVal = AltVal
      ElseIf (Delim = "'") Then
        FormVal = "'" & Replace(FormVal,"'","''") & "'"
      Else
        FormVal = Delim + FormVal + Delim
      End If
    End If
    If (i <> LBound(MM_fields)) Then
      MM_editQuery = MM_editQuery & ","
    End If
    MM_editQuery = MM_editQuery & MM_columns(i) & " = " & FormVal
  Next
  MM_editQuery = MM_editQuery & " where " & MM_editColumn & " = " & MM_recordId
  If (Not MM_abortEdit) Then
    Set MM_editCmd = Server.CreateObject("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
	Response.Write(MM_editQuery)
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close
	if Request("RedirectUrl")<>"" then
		Response.Redirect(Request("RedirectUrl") & "?StudentNum=" & CLng(Request("MM_recordId"))+1)
	end if
	if Session("strQureyString")<>"" then
	    response.redirect "InfoQuery2.asp?" & Session("strQureyString")
	end if
  End If
End If
%>
<%
	set Recordset1 = Server.CreateObject("ADODB.Recordset")
	Recordset1.ActiveConnection = MM_StudentConn_STRING
	Recordset1.Source = "SELECT * FROM StudentInfo WHERE StudentNum = '" + Replace(Recordset1__MMColParam, "'", "''") + "'"
	Recordset1.CursorType = 0
	Recordset1.CursorLocation = 3
	Recordset1.LockType = 3
	Recordset1.Open()
	Recordset1_numRows = 0
%>
<%
	Dim Rs2
	Set Rs2=Server.CreateObject("ADODB.Recordset")
	Rs2.ActiveConnection = MM_StudentConn_STRING
	Rs2.Source="SELECT * From Class Where ClassID='" & Recordset1("ClassID") & "' and GradeId='" & Recordset1("GradeId") & "'"
	Rs2.CursorType = 0
	Rs2.CursorLocation = 2
	Rs2.LockType = 3
	Rs2.Open()
%>
<!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">
<script language="JavaScript">
function checkform()
{
  if(document.form1.Name.value=="")
  {
    alert("你还没有填姓名");
    document.form1.Name.focus();
    return false;
  }
}
function ChangeClass()
{
	var i;
	for(i=document.form1.ClassID.options.length-1;i>=0;i--)
	{
		document.form1.ClassID.options[i]=null;
	}
	switch(document.form1.GradeID.selectedIndex)
	{
	case 0:
		for(i=0;i<document.Classes.Grade1.options.length;i++)
		{
			document.form1.ClassID.options[i]=new Option(document.Classes.Grade1.options[i].text,document.Classes.Grade1.options[i].value);
		}
		break;
	case 1:
		for(i=0;i<document.Classes.Grade2.options.length;i++)
		{
			document.form1.ClassID.options[i]=new Option(document.Classes.Grade2.options[i].text,document.Classes.Grade2.options[i].value);
		}
		break;
	case 2:
		for(i=0;i<document.Classes.Grade3.options.length;i++)
		{
			document.form1.ClassID.options[i]=new Option(document.Classes.Grade3.options[i].text,document.Classes.Grade3.options[i].value);
		}
		break;
	case 3:
		for(i=0;i<document.Classes.Grade4.options.length;i++)
		{
			document.form1.ClassID.options[i]=new Option(document.Classes.Grade4.options[i].text,document.Classes.Grade4.options[i].value);
		}
		break;
	case 4:
		for(i=0;i<document.Classes.Grade5.options.length;i++)
		{
			document.form1.ClassID.options[i]=new Option(document.Classes.Grade5.options[i].text,document.Classes.Grade5.options[i].value);
		}
		break;
	}
}
</script>
</HEAD>
<BODY text=#000000 bgColor=#f7f7ff leftMargin=0 topMargin=0>
<div id="Layer1" style="position:absolute; left:445px; top:220px; width:188px; height:64px; z-index:1; visibility: hidden;"> 
  <form name="Classes" method="post" action="">
    <select name="Grade1" id="select">
      <option value="All">全部</option>
      <%
While (NOT rsGrade1.EOF)
%>
      <option value="<%=(rsGrade1.Fields.Item("ClassID").Value)%>"><%=(rsGrade1.Fields.Item("ClassName").Value)%></option>
      <%
  rsGrade1.MoveNext()
Wend