testmanage.asp

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

<%@LANGUAGE="VBSCRIPT"%> 
<!--#include file="StudentConn.asp" -->
<!--#include file="CheckLogin.asp"-->
<%
	if month(now)<10 Then
		TableName="ZXY" & year(now) & "0" & month(now)	
	else
		TableName="ZXY" & year(now) & month(now)	
	end if
	YuKu=year(now) & "年" & month(now) & "月工资库"	
%>
<%
	MM_editAction = CStr(Request("URL"))
	MM_abortEdit = false
	MM_editQuery = ""
%>
<%
	MM_flag="MM_insert"
	If (CStr(Request(MM_flag)) <> "") Then
	  strSheetName=Request("SheetName") & ""
	  if Instr(strSheetName,"!")>0 or Instr(strSheetName,"@")>0 or Instr(strSheetName,"#")>0 or Instr(strSheetName,"$")>0 or Instr(strSheetName,"%")>0 or Instr(strSheetName,"^")>0 or Instr(strSheetName,"&")>0 or Instr(strSheetName,"*")>0 or Instr(strSheetName,"(")>0 or Instr(strSheetName,")")>0 or Instr(strSheetName,"-")>0 or Instr(strSheetName,"=")>0 or Instr(strSheetName,"\")>0 or Instr(strSheetName,",")>0 or Instr(strSheetName,".")>0 or Instr(strSheetName,"/")>0 or Instr(strSheetName,"?")>0 or Instr(strSheetName,"<")>0 or Instr(strSheetName,">")>0 or Instr(strSheetName,"[")>0 or Instr(strSheetName,"]")>0 or Instr(strSheetName,"{")>0 or Instr(strSheetName,"}")>0 or Instr(strSheetName,"|")>0 or Instr(strSheetName,"+")>0 or Instr(strSheetName,"~")>0 then
		Response.Redirect "TestManage.asp?Err=Char"
	  end if
	  MM_dupKeyRedirect="TestModify.asp"
	  MM_rsKeyConnection=MM_StudentConn_STRING
	  MM_dupKeyUserNameValue = CStr(Request.Form("SheetName"))
	  MM_dupKeySQL="SELECT SheetName FROM TestName WHERE SheetName='" & MM_dupKeyUserNameValue & "'"
	  MM_adodbRecordset="ADODB.Recordset"
	  set MM_rsKey=Server.CreateObject(MM_adodbRecordset)
	  MM_rsKey.ActiveConnection=MM_rsKeyConnection
	  MM_rsKey.Source=MM_dupKeySQL
	  MM_rsKey.CursorType=0
	  MM_rsKey.CursorLocation=2
	  MM_rsKey.LockType=3
	  MM_rsKey.Open
	  If Not MM_rsKey.EOF Or Not MM_rsKey.BOF Then 
		MM_qsChar = "?"
		If (InStr(1,MM_dupKeyRedirect,"?") >= 1) Then MM_qsChar = "&"
		MM_dupKeyRedirect = MM_dupKeyRedirect & MM_qsChar & "SheetName=" & MM_dupKeyUserNameValue
		Response.Redirect(MM_dupKeyRedirect)
	  End If
	  MM_rsKey.Close
	End If
%>
<%
	If (CStr(Request("MM_insert")) <> "") Then
	  MM_editConnection = MM_StudentConn_STRING
	  MM_editTable = "TestName"
	  MM_editRedirectUrl = "TestManage.asp"
	  MM_fieldsStr  = "TestName|value|SheetName|value"
	  MM_columnsStr = "TestName|',none,''|SheetName|',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
	  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
		If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
		  MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
		Else
		  MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
		End If
	  End If
	End If
%>
<%
	If (CStr(Request("MM_insert")) <> "") Then
	  MM_tableValues = ""
	  MM_dbValues = ""
	  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_tableValues = MM_tableValues & ","
		  MM_dbValues = MM_dbValues & ","
		End if
		MM_tableValues = MM_tableValues & MM_columns(i)
		MM_dbValues = MM_dbValues & FormVal
	  Next
	  MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"
	  If (Not MM_abortEdit) Then
		' execute the insert
		Set MM_editCmd = Server.CreateObject("ADODB.Command")
		MM_editCmd.ActiveConnection = MM_editConnection
		MM_editCmd.CommandText = MM_editQuery
		MM_editCmd.Execute
		MM_editCmd.ActiveConnection.Close
		strSubject="(StudentNum TEXT (8),应发总数 SINGLE,实发总数 SINGLE,上交税额 SINGLE," 
		strTemp=request("chkbox")
		if instr(strTemp,",")>0 then
			strSubject=strSubject &  replace(strTemp,","," SINGLE,") & " SINGLE)"
		else
			strSubject=strSubject & strTemp & " SINGLE)"
		end if
		strSheetName = MM_dupKeyUserNameValue
		MM_CreateTableConnection = MM_StudentConn_STRING
		MM_CreateTableQuery = "Create Table " & strSheetName & strSubject
		Set MM_CreateTableCmd = Server.CreateObject("ADODB.Command")
		MM_CreateTableCmd.ActiveConnection = MM_CreateTableConnection
		MM_CreateTableCmd.CommandText = MM_CreateTableQuery
		MM_CreateTableCmd.Execute
		MM_CreateTableCmd.ActiveConnection.Close
		If (MM_editRedirectUrl <> "") Then
		  Response.Redirect(MM_editRedirectUrl)
		End If
	  End If
	End If
%>
<%
	set Recordset1 = Server.CreateObject("ADODB.Recordset")
	Recordset1.ActiveConnection = MM_StudentConn_STRING
	Recordset1.Source = "SELECT * FROM TestName ORDER BY id DESC"
	Recordset1.CursorType = 0
	Recordset1.CursorLocation = 2
	Recordset1.LockType = 3
	Recordset1.Open()
	Recordset1_numRows = 0
%>
<%
	Dim Recordset2
	Dim Recordset2_numRows
	Set Recordset2 = Server.CreateObject("ADODB.Recordset")
	Recordset2.ActiveConnection = MM_StudentConn_STRING
	Recordset2.Source = "SELECT * FROM Subject ORDER BY ID ASC"
	Recordset2.CursorType = 0
	Recordset2.CursorLocation = 2
	Recordset2.LockType = 1
	Recordset2.Open()
	Recordset2_numRows = 0
%>
<%
	Dim Repeat1__numRows
	Repeat1__numRows = -1
	Dim Repeat1__index
	Repeat1__index = 0
	Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<%
	Dim Repeat2__numRows
	Dim Repeat2__index
	Repeat2__numRows = -1
	Repeat2__index = 0
	Recordset2_numRows = Recordset2_numRows + Repeat2__numRows
%>
<%
	MM_removeList = "&index="
	If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "="
	MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone=""
	For Each Item In Request.QueryString
	  NextItem = "&" & Item & "="
	  If (InStr(1,MM_removeList,NextItem,1) = 0) Then
		MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item))
	  End If
	Next
	For Each Item In Request.Form
	  NextItem = "&" & Item & "="
	  If (InStr(1,MM_removeList,NextItem,1) = 0) Then
		MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item))
	  End If
	Next
	MM_keepBoth = MM_keepURL & MM_keepForm
	if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
	if (MM_keepURL <> "")  Then MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
	if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
	Function MM_joinChar(firstItem)
	  If (firstItem <> "") Then
		MM_joinChar = "&"
	  Else
		MM_joinChar = ""
	  End If
	End Function
%>
<!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 checktest(){
var total=0;
var intmax=document.form1.chkbox.length;
var strSheetName=document.form1.SheetName.value;
if(intmax>1){
  for(var idx=0;idx<intmax;idx++){
    if(eval("document.form1.chkbox[" + idx + "].checked")==true){
      total+=1;
    }
  }
  if(total==0){
    alert("您未选择任何项目！");
    document.form1.chkbox[0].focus();
    return false;
  }
}
else{
  if(document.form1.chkbox.checked==false){
    alert("您未选择任何项目！");
    document.form1.chkbox.focus();
    return false;
  }
}
if(document.form1.TestName.value=="")
  {
   alert("月库名称不能为空！");
   document.form1.TestName.focus();
   return false;
   }
if(document.form1.TestName.value=="2006年10工资库")
  {
   alert("请不要偷懒！请录入完整的月库名称后再点“添加月库”按钮。");
   document.form1.TestName.focus();
   return false;
   }
if(strSheetName=="")
  {
   alert("数据库对应表名不能为空！");
   document.form1.SheetName.focus();
   return false;
   }
if(strSheetName=="CQZX2002A")
  {
   alert("请不要偷懒！请录入完整的数据库表名后再点“添加月库”按钮。");
   document.form1.SheetName.focus();
   return false;
   }
if(isNaN(strSheetName.substr(0,1))==false)
  {
   alert("数据库对应表名不能以数字开头！");
   document.form1.SheetName.focus();
   return false;
  }
}
function ConfirmDel(){
if(confirm("确定要删除此月库吗？一日删除此月库信息，则此月库中的所有记录也将同时被删除！"))
  return true;
else
  return false;
}
</script>
</HEAD>
<BODY text=#000000 bgColor=#f7f7ff leftMargin=0 topMargin=0>
<% if Request("Err")="Char" Then %>
<script language="JavaScript" type="text/JavaScript">
alert("月库名称中含有“!@#$%^&*()-+=,./?<>[]{}\|~“等非法字符，操作被取消！");
</script>
<% End If %>
<!--#include file="TestManage_Top.asp"-->
<TABLE width="760" border=0 align="center" cellPadding=0 cellSpacing=0>
    <TR> 
    <TD align="center" bgcolor="#F7F7FF"> 
      <form Name="form1" onSubmit="return checktest()" method="POST" action="<%=MM_editAction%>">
        <b><br>
        <span class="title">生成新月库</span><br>
        <br>
        </b> 
        <table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#CCCCFF" style="border-collapse:collapse">
          <tr> 
            <td width="16%" height="30" align="right"><span class="littletitle"><strong>月库名称：</strong></span></td>
            <td width="24%" height="30"> 
              <input Name="TestName" type="text" value="<%=YuKu%>">
		    </td>
            <td width="60%">例如：
            <%Response.Write(YuKu)%></td>
          </tr>
          <tr> 
            <td height="30" align="right" class="littletitle"><strong>数据库表名：</strong></td>
            <td height="30"> 
              <input Name="SheetName" type="text" value="<%=TableName%>"></td>
            <td height="30"><strong>推荐命名规则：</strong><font color="#0000FF">医院名称+年+月</font></td>
          </tr>
          <tr> 
            <td align="right" valign="middle"><span class="littletitle"><strong>月库项目</strong></span><strong>：</strong></td>
            <td colspan="2" align="center"> 
              <%
			 If Not Recordset2.EOF Or Not Recordset2.BOF Then
				response.Write "<table border='0' cellspacing='0' cellpadding='0' width='100%'><tr>"
				While ((Repeat2__numRows <> 0) AND (NOT Recordset2.EOF)) 
					response.Write("<td><input name='chkbox' type='checkbox' value='" & Recordset2.Fields.Item("SubjectName").Value & "' checked>")
					response.Write(Recordset2.Fields.Item("SubjectName").Value)
					if Repeat2__numRows mod 8 =0 then response.write "</tr><tr>"
					Repeat2__index=Repeat2__index+1
					Repeat2__numRows=Repeat2__numRows-1
					Recordset2.MoveNext()
				Wend
				response.Write("</tr></table>")
				If (Recordset2.CursorType > 0) Then
				  Recordset2.MoveFirst
				Else
				  Recordset2.Requery
				End If
				%>
                <br>
                <a href="SubjectManage.asp">月库项目管理&gt;&gt;&gt;</a> 
                <% Else %>
                找不到任何月库项目，请首先进入“<a href="SubjectManage.asp">月库项目管理</a>”模块添加月库项目！ 
                <% End If %>
			</td>
          </tr>
          <tr align="center"> 
            <td height="30" colspan="3"> 
              <input type="hidden" name="MM_insert" value="true"> 
                <input type="submit" Name="Submit" value="生成月库" <% If Recordset2.EOF And Recordset2.BOF Then response.write "disabled" %> > </td>
          </tr>
        </table></form><span class="title"><strong>已有的月库</strong></span>
        <% If Not Recordset1.EOF Or Not Recordset1.BOF Then %>
      <table width="100%" border="1" style="border-collapse:collapse" align="center" cellpadding="0" cellspacing="0" bordercolor="#CC9900">
        <tr> 
          <td align="center" height="20"><strong>月库名称</strong></td>
          <td align="center"><strong>数据库表名</strong></td>
          <td align="center"><strong>已有的月库项目</strong></td>
          <td align="center"><strong>操作</strong></td>
        </tr>
          <% 
			While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) 
		  %>
        <tr> 
          <td align="center"><%=(Recordset1.Fields.Item("TestName").Value)%></td>
          <td align="center"><%=(Recordset1.Fields.Item("SheetName").Value)%></td>
          <td> 
          <%
			Dim rsSubject
			Dim rsSubject_numRows
			Set rsSubject = Server.CreateObject("ADODB.Recordset")
			rsSubject.ActiveConnection = MM_StudentConn_STRING
			rsSubject.Source = "SELECT * FROM " & Recordset1.Fields.Item("SheetName").Value
			rsSubject.CursorType = 0
			rsSubject.CursorLocation = 2
			rsSubject.LockType = 1
			rsSubject.Open()
			rsSubject_numRows = 0
			response.Write("<table width='100%' border='1' cellspacing='0' cellpadding='0' bordercolor='#ccccff' style='border-collapse:collapse'><tr>")
			For i = 5 to rsSubject.Fields.Count - 1 
				Response.write  "<td>" & rsSubject.Fields(i).Name & "</td>"
				if (i+1-5)>0 and ((i+1-5) mod 8 =0) then response.write "</tr><tr>"
			next
			response.Write("</tr></table>")
			rsSubject.Close()
			Set rsSubject = Nothing
		  %></td>
          <td align="center"><A HREF="TestModify.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "id=" & Recordset1.Fields.Item("id").Value %>">修改</A>&nbsp;<A HREF="TestDel.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "id=" & Recordset1.Fields.Item("id").Value & "&SheetName=" & Recordset1.Fields.Item("SheetName").Value %>"  onClick="return ConfirmDel()">删除</A></td>
          </tr>
          <% 
			  Repeat1__index=Repeat1__index+1
			  Repeat1__numRows=Repeat1__numRows-1
			  Recordset1.MoveNext()
			Wend
		  %>
		  <tr>
		  	<td colspan="5" align="center" height="40">
			<input type="button" value="工资管理(第一步)导入上月工资数据" onClick="javascript:window.location.href('ScoreImport.asp')"></td>
		  </tr>
        </table>
        <br> 
        <% End If %>
        <% If Recordset1.EOF And Recordset1.BOF Then %>
        <p align="center">找不到任何月库，请生成月库！</p>
        <% End If %>
      </td>
    </TR>
</TABLE>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>
		<Iframe src="CopyRight.asp" width="760" height="100" marginheight="0" marginwidth="0" scrolling="NO" frameborder="0" name="CopyRight"></iframe>
	</td>
  </tr>
</table></BODY>
</HTML>
<%
Recordset1.Close()
%>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>