📄 show.asp
字号:
<%@ Language=VBScript %>
<%
'文件功能:工资管理--查看
'版权所有:万户网络
'编写人员:房鹏
'编写时间:2003-8-12
'修改人员：房鹏
'修改时间：2003-8-13
'修改目的：设置权限
%>
<!-- #include file="../Common/Cls_DbProcess2.1.asp" -->
<!-- #include file="../wh_salaries/Cls_wh_salaries.asp" -->
<!-- #include file="../pub/conn.asp" -->
<!-- #include file="../pub/fun.asp" -->
<!-- #include file="../pub/rsa.asp" -->
<%call checklogin()%>
<%
employee=request("employee")
set rs=conn.execute("select * from wh_salaries where salary_id="&request("PK_salary_id"))
salary_month=rs("salary_month")
salary_date=rs("salary_date")
salary_info1=rs("salary_info1")
salary_info2=rs("salary_info2")
salary_month=rs("salary_month")
salary_memo=rs("salary_memo")
salary_isopen=rs("salary_isopen")
rs.close
if salary_isopen=0 then
response.write "<div align=center>您的工资正在录入中，请耐心等待^_^</div>"
response.end
end if
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" CONTENT="WindSoft Programmer3">
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=gb2312">
<TITLE>工资表--查看</TITLE>
<%
dim mStr_WINDCallType
mStr_WINDCallType = trim(request.querystring("WINDCallType")) '调用方式
dim mStr_WINDURL '请将需要全局传递的变量链接到本变量上，使用方法参见WINDCallType，多个变量之间采用&链接
mStr_WINDURL = "WINDCallType="+Server.URLEncode(mStr_WINDCallType)
%>
</HEAD>
<body>
<%
dim plus(100,2)
dim minus(100,2)
dim plus_split
dim minus_split
plus_split = split(salary_info1,";")
for i = 0 to ubound(plus_split)
plus(i,0)=left(plus_split(i),instr(plus_split(i),":")-1)
plus(i,1)=decryptstr(right(plus_split(i),len(plus_split(i))-instr(plus_split(i),":")))
next
minus_split = split(salary_info2,";")
for j = 0 to ubound(minus_split)
minus(j,0)=left(minus_split(j),instr(minus_split(j),":")-1)
minus(j,1)=decryptstr(right(minus_split(j),len(minus_split(j))-instr(minus_split(j),":")))
next
%>
<center>
<font size=3><%=employee&""&year(salary_date)&"年"&salary_month%>月份工资<font>
<table WIDTH='100%' <% Response.write GetTableBorder()%> >
<COLGROUP>
<COL 1 WIDTH="40" ALIGN="CENTER">
<COL 2 WIDTH="40" ALIGN="CENTER">
</COLGROUP>
<tr CLASS='TABLEHEAD' ALIGN=CENTER>
<%
for i = 0 to ubound(plus_split)
response.write("<td rowspan=2>"&plus(i,0)&"</td>")
next
%>
<TD rowspan="2"><font color="#0000FF">小计</font></td>
<TD colspan="<%=ubound(minus_split)+1%>"><font color="#FF0000">扣款组成</font></TD>
<TD rowspan="2"><font color="#0000FF">实发工资</font></td></TR>
<tr CLASS='TABLEHEAD' ALIGN=CENTER>
<%
plus_total=0
minus_total=0
for j = 0 to ubound(minus_split)
response.write("<td>"&minus(j,0)&"</td>")
next
response.write("</tr><tr CLASS='TABLEDATA' ALIGN=CENTER>")
for i = 0 to ubound(plus_split)
response.write("<td>"&plus(i,1)&"</td>")
plus_total=round(plus_total+cdbl(plus(i,1)),2)
next
%>
<TD><font color=blue><%=plus_total%></font></TD>
<%
for j = 0 to ubound(minus_split)
response.write("<td><font color = red>"&round(minus(j,1),2)&"</font></td>")
minus_total=round(minus_total+cdbl(minus(j,1)),2)
next
%>
<TD><font color=blue><%=plus_total-minus_total%></font></TD>
</tr></table>
<br>
<%if len(salary_memo)>0 then%>
<font size=2>备注：<%=salary_memo%></font>
<hr width=100%>
<%end if%>
<A HREF="javascript:WindowPrint()">打印</A> <a href="javascript:window.close()">关闭窗口</a>
</center>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -