📄 empmain_pay_list_year.asp

📁 欢迎大家分享本系统为bs架构的asp+access版本。<br>包含：员工信息
💻 ASP
字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/EmpMain.asp" -->
<!--#include file="EmpMain_CheckRight.asp"-->
<%call fnCheckRight("paylist","1")%>
<%
Dim IDstring
if instr(request.QueryString,"IDstring") then
 if  request.QueryString("IDstring") = "" then
    IDstring = "0"
  else
    IDstring=request.QueryString("IDstring")
  end if
end if

Dim rs
Dim rs_numRows
sql = "SELECT * FROM gztongjiyear where "
if trim(request.QueryString("searchword")) <> "" then
 sql =  sql & "EmpName = '"&request.QueryString("searchword")&"'"
 searchlogic = " and "
end if
if trim(request.QueryString("year")) <> "" then 
 stryear = request.QueryString("year")
 sql =  sql & searchlogic & "createdatebyyesr = '" &stryear&"'"
else
stryear = datepart("yyyy",now())
 sql =  sql & searchlogic & "createdatebyyesr = '" &stryear&"'"
end if 

if instr(request.QueryString,"IDstring") then
sql = sql & " and EmpID in ("&IDstring&")" 
end if

Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_EmpMain_STRING
rs.Source = sql
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()

rs_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
rs_numRows = rs_numRows + Repeat1__numRows
%>
<%
function fnformatcurr(strcurr)
if (instr(strcurr,".")) <> 0 then
fnformatcurr = left(strcurr,(instr(strcurr,".")+2))
else
fnformatcurr = strcurr & ".00"
end if
end function
%>



<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="CSS/SellWellWeb.css" rel="stylesheet" type="text/css">
<script>
<!--
function showDetail(obj){
    URL = window.parent.frames("frmbottom").window.location.href
    if(URL.indexOf("EmpMain_Main.asp")==-1){
    window.parent.frames("frmbottom").window.location = "EmpMain_Main.asp?ID=" + obj.EmpID + "&PageType=pay"
	return
	}
    window.parent.frames("frmbottom").window.document.form1.ID.value = obj.EmpID
	strUrl=window.parent.frames("frmbottom").window.frames("main").location.href
	NewUrl = "EmpMain_pay_Disp.asp" + "?ID="+obj.EmpID + "&PageType=pay"
	window.parent.frames("frmbottom").window.frames("main").location.href = NewUrl
}
var objClassName
function showCursorLocation(objimg){
     if(objorgImg==null){
	  objorgImg = eval("document.all."+objimg)
	}
	else{
	  objorgImg.style.display = "none"
	}
	objorgImg = eval("document.all."+objimg)
	eval("document.all."+objimg+".style.display=''")
}
var objorgImg=null
function HLItem(obj){
	obj.oldClassName=obj.className;
	obj.className="ListValuehighlight";
}

function Re(obj){
 obj.className=obj.oldClassName 
}


function dosearch(){
searchWord = document.form1.SearchWord.value
  window.location = "EmpMain_Pay_List_year.asp?year="+document.form1.year.options[document.form1.year.selectedIndex].value+"&searchWord="+searchWord
}
function fnRedirect(obj){
  window.location= obj.value
}


//-->
</script>
</head>

<body class="body">
<form name="form1" action="EmpMain_Pay_Save_Process.asp" method="post">
<fieldset class="fiedset">
  <legend><font size="2"><input name="paylist" type="radio" value="EmpMain_Pay_list.asp" checked>薪资统计<input name="hollist" type="radio" value="EmpMain_hol_list.asp" onclick="fnRedirect(this)">考勤统计<input name="Emplist" type="radio" value="EmpMain_list.asp" onclick="fnRedirect(this)">员工列表</font></legend>
  <table width="100%" border="0" cellpadding="0" cellspacing="0">
    <tr> 
      <td width="15%" height="21" nowrap> <div align="left"><font size="2">当前统计范围: 
          </font></div></td>
      <td width="7%" nowrap> <div align="right"><font size="2">年份:</font></div></td>
      <td width="12%" nowrap> <font size="2"> 
        <select name="year" class="select" onchange="dosearch()">
          <%FOR K  = 0 TO 10 %>
          <OPTION  <%if cint(stryear) = (2000+K) then%>selected<%end if%> VALUE="<%=2000+K%>"><%=2000+K%></OPTION>
          <%NEXT%>
        </select>
        </font></td>
      <td nowrap> <div align="right"><font size="2">按姓名查询:</font></div></td>
      <td width="22%" nowrap><font size="2"> 
        <input type="text" name="SearchWord"  style="width:95%" class="Text" value="<%=request("SearchWord")%>">
        </font></td>
      <td width="4%" nowrap><div align="center"><img src="images/Listsearch.gif" width="18" height="18" onClick="dosearch()" style="cursor:hand"></div></td>
    </tr>
  </table>
  <table width="100%" border="0" cellpadding="0" cellspacing="0" class="table">
    <tr> 
      <td width="5%" nowrap class="listTitle">&nbsp;</td>
      <td width="4%" nowrap class="listTitle">姓名</td>
      <td width="9%" nowrap class="listTitle"> <div align="center">工资</div></td>
      <td width="10%" nowrap class="listTitle"> <div align="center">奖金</div></td>
      <td width="10%" nowrap class="listTitle"> <div align="center">扣税</div></td>
      <td width="10%" nowrap class="listTitle"> <div align="center">三金</div></td>
      <td width="10%" nowrap class="listTitle"> <div align="center">公积金</div></td>
      <td width="9%" nowrap class="listTitle"> <div align="center">扣事/病假</div></td>
      <td width="15%" nowrap class="listTitle"> <div align="center">其他扣除</div></td>
      <td width="11%" nowrap class="listTitle"> <div align="center">合计</div></td>
    </tr>
    <%i = -1%>
<%
	Sumjiben = 0
	Sumjiangjin = 0
	Sumkoushui = 0
	Sumsanjin = 0
	Sumgongjijin = 0
	Sumkouxin = 0
	Sumqita = 0
	Sumtotalcount = 0
%>
    <% 
While ((Repeat1__numRows <> 0) AND (NOT rs.EOF)) 
%>
    <%
i = i + 1
if i mod 2 = 0 then
className = "listValueWhite"
else
className = "listValuegray"
end if
%>
    <tr class="<%=className%>" EmpID="<%=trim(rs.Fields.Item("EmpID").Value)%>"  onclick="showDetail(this);showCursorLocation('cursorimg<%=i%>')"  style="cursor:hand" onMouseOver="HLItem(this)" onMouseOut="Re(this)"> 
      <td width="5%"  nowrap><div align="center"><img src="images/location.gif" width="16" height="12" style="display:none" id="cursorimg<%=i%>"></div></td>
      <td nowrap><%=(rs.Fields.Item("EmpName").Value)%> </td>
      <td nowrap><%=fnformatcurr(rs.Fields.Item("jibenSum").Value)%></td>
      <td nowrap><%=fnformatcurr(rs.Fields.Item("jiangjinSum").Value)%></td>
      <td nowrap><%=fnformatcurr(rs.Fields.Item("koushuiSum").Value)%></td>
      <td nowrap><%=fnformatcurr(rs.Fields.Item("sanjinSum").Value)%></td>
      <td nowrap><%=fnformatcurr(rs.Fields.Item("gongjijinSum").Value)%></td>
      <td nowrap><%=fnformatcurr(rs.Fields.Item("kouxinSum").Value)%></td>
      <td nowrap><%=fnformatcurr(rs.Fields.Item("qitaSum").Value)%></td>
      <td nowrap><%=fnformatcurr(rs.Fields.Item("totalCountSum").Value)%> </td>
    </tr>
    <% 
	Sumjiben = Sumjiben + fnformatcurr(rs.Fields.Item("jibensum").Value)
	Sumjiangjin = Sumjiangjin + fnformatcurr(rs.Fields.Item("jiangjinsum").Value)
	Sumkoushui = Sumkoushui + fnformatcurr(rs.Fields.Item("koushuisum").Value)
	Sumsanjin = Sumsanjin + fnformatcurr(rs.Fields.Item("sanjinSum").Value)
	Sumgongjijin = Sumgongjijin + fnformatcurr(rs.Fields.Item("gongjijinsum").Value)
	Sumkouxin = Sumkouxin + fnformatcurr(rs.Fields.Item("kouxinSum").Value)
	Sumqita = Sumqita + fnformatcurr(rs.Fields.Item("qitasum").Value)
	Sumtotalcount = Sumtotalcount + fnformatcurr(rs.Fields.Item("totalCountSum").Value)
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rs.MoveNext()
Wend
%>
    <tr class="listValueWhite">
      <td nowrap>&nbsp;</td>
      <td nowrap>年总计</td>
      <td nowrap><%=fnformatcurr(Sumjiben)%></td>
      <td nowrap><%=fnformatcurr(Sumjiangjin)%></td>
      <td nowrap><%=fnformatcurr(Sumkoushui)%></td>
      <td nowrap><%=fnformatcurr(Sumsanjin)%></td>
      <td nowrap><%=fnformatcurr(Sumgongjijin)%></td>
      <td nowrap><%=fnformatcurr(Sumkouxin)%></td>
      <td nowrap><%=fnformatcurr(Sumqita)%></td>
      <td nowrap><%=fnformatcurr(Sumtotalcount)%></td>
    </tr>
  </table>
  <table width="100%" border="0">
    <tr> 
      <td> <div align="left"> <font size="2">视图切换 
          <input name="radiobutton" type="radio" onClick="window.location='EmpMain_pay_list.asp'" value="radiobutton">
          员工/本月 
          <input name="radiobutton" type="radio" value="radiobutton" onClick="window.location='EmpMain_pay_getlist.asp'">
          员工/月 
          <input type="radio" name="radiobutton" value="radiobutton" checked>
          员工/年 
          <input type="radio" name="radiobutton" value="radiobutton" onClick="window.location='EmpMain_pay_monthyear.asp'">
          月份/年</font> </div>
        <div align="right"><font size="2"> </font></div></td>
    </tr>
  </table>
  </fieldset>
  <div align="right"> </div>
</form>
</body>
</html>
<%
rs.Close()
Set rs = Nothing
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -