📄 empmain_pay_disp.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/EmpMain.asp" -->
<!--#include file="EmpMain_CheckRight.asp"-->
<%
if request.QueryString("pagetype") <> "" and request.QueryString("pagetype") <> "Base" then
if request.QueryString("pagetype") <> "pay" then
url = "empmain_" &request.QueryString("pagetype")& "_Disp.asp?ID=" & request.QueryString("ID") & "&pagetype=" & request.QueryString("pagetype")
response.Redirect(url)
response.end
end if
end if
%>
<%call fnCheckRight("payInfo","1")%>
<%
Dim Pay__MMColParam
Pay__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then
Pay__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim Pay
Dim Pay_numRows
Set Pay = Server.CreateObject("ADODB.Recordset")
Pay.ActiveConnection = MM_EmpMain_STRING
Pay.Source = "SELECT * FROM RaisesHistory WHERE EmpID = " + Replace(Pay__MMColParam, "'", "''") + ""
Pay.CursorType = 0
Pay.CursorLocation = 2
Pay.LockType = 1
Pay.Open()
Pay_numRows = 0
%>
<%
Dim paySet__MMColParam
paySet__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then
paySet__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim paySet
Dim paySet_numRows
Set paySet = Server.CreateObject("ADODB.Recordset")
paySet.ActiveConnection = MM_EmpMain_STRING
paySet.Source = "SELECT * FROM PaySet WHERE EmpID = " + Replace(paySet__MMColParam, "'", "''") + ""
paySet.CursorType = 0
paySet.CursorLocation = 2
paySet.LockType = 1
paySet.Open()
paySet_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
Pay_numRows = Pay_numRows + Repeat1__numRows
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>调薪记录</title>
<link rel="stylesheet" href="CSS/SellWellWeb.css" type="text/css">
<script>
var objClassName
function HLItem(obj){
obj.oldClassName=obj.className;
obj.className="ListValuehighlight";
}
function Re(obj){
obj.className=obj.oldClassName
}
function doEdit(ID){
window.location ="EmpMain_Pay_Edit.asp?EmpID=<%=Request.QueryString("ID")%>&ID="+ID
}
</script>
</head>
<body class="body">
<form method="POST" action="EmpMain_pay_AddNew.asp" name="form1">
<fieldset style="padding: 2" class="fiedset"> <legend>调薪记录</legend>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#111111" class="table">
<tr>
<td width="25%" align="center" class="listTitle">日期</td>
<td width="25%" align="center" class="listTitle">事由</td>
<td width="20%" align="center" class="listTitle">原薪资</td>
<td width="18%" align="center" class="listTitle">调后薪资</td>
<td width="12%" align="center" class="listTitle">对应等级</td>
</tr>
<% If Pay.EOF And Pay.BOF Then %>
<tr class="ListValueWhite">
<td colspan="5">没有记录!</td>
</tr>
<% End If ' end Pay.EOF And Pay.BOF %>
<%i = -1%>
<%
While ((Repeat1__numRows <> 0) AND (NOT Pay.EOF))
%>
<%
i = i + 1
if i mod 2 = 0 then
className = "listValueWhite"
else
className = "listValuegray"
end if
%>
<tr class="<%=className%>" onClick="doEdit('<%=(Pay.Fields.Item("ID").Value)%>')" style="cursor:hand" onMouseOver="HLItem(this)" onMouseOut="Re(this)">
<td><%=(Pay.Fields.Item("RaisesDate").Value)%></td>
<td><%=(Pay.Fields.Item("RaisesRreson").Value)%></td>
<td><%=(Pay.Fields.Item("RaisesFrom").Value)%></td>
<td><%=(Pay.Fields.Item("RaisesTo").Value)%></td>
<td><%=(Pay.Fields.Item("RaisesDegree").Value)%></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Pay.MoveNext()
Wend
%>
</table>
</fieldset>
<fieldset style="padding: 2" class="fiedset"> <legend>薪资设定</legend>
<table width="98%" border="1" align="center" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" class="table">
<%
if not paySet.eof then
jiben = (paySet.Fields.Item("jiben").Value)
koushui=(paySet.Fields.Item("koushui").Value)
yanglao= (paySet.Fields.Item("yanglao").Value)
yiliao=(paySet.Fields.Item("yiliao").Value)
shiye=(paySet.Fields.Item("shiye").Value)
gongjijin=(paySet.Fields.Item("gongjijin").Value)
jiangjin=(paySet.Fields.Item("jiangjin").Value)
qita=(paySet.Fields.Item("qita").Value)
degree=(paySet.Fields.Item("degree").Value)
end if
%>
<tr>
<td width="25%" class="Caption"><div align="right">工资:</div></td>
<td width="25%" class="ValueArea"><%=jiben%></td>
<td width="25%" class="Caption"><div align="right">扣税:</div></td>
<td width="25%" class="ValueArea"><%=koushui%></td>
</tr>
<tr>
<td class="Caption"><div align="right">养老保险:</div></td>
<td class="ValueArea"><%=yanglao%></td>
<td class="Caption"><div align="right">医疗保险:</div></td>
<td class="ValueArea"><%=yiliao%></td>
</tr>
<tr>
<td class="Caption"><div align="right">失业保险:</div></td>
<td class="ValueArea"><%=shiye%></td>
<td class="Caption"><div align="right">住房公积金:</div></td>
<td class="ValueArea"><%=gongjijin%></td>
</tr>
<tr>
<td class="Caption"><div align="right">奖金:</div></td>
<td class="ValueArea"><%=jiangjin%></td>
<td class="Caption"><div align="right">其他扣除:</div></td>
<td class="ValueArea"><%=qita%></td>
</tr>
<tr>
<td class="Caption">工资等级:</td>
<td class="ValueArea"><%=degree%></td>
<td class="Caption"> </td>
<td class="ValueArea"> </td>
</tr>
</table>
</fieldset>
<div align="right">
<input type="hidden" name="EmpID" value="<%=request("ID")%>">
<input type="submit" value="添加调薪记录" name="B12" class="button">
<input type="button" value="薪资设定" name="B1" class="button" onclick="window.location='EmpMain_PaySet_Edit.asp?ID=<%=request.QueryString("ID")%>'">
</div>
</form>
</body>
</html>
<%
Pay.Close()
Set Pay = Nothing
%>
<%
paySet.Close()
Set paySet = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -