📄 table.asp

📁 这是一个自己研发的薪酬管理系统

💻 ASP

字号:

<!-- #include file="../pub/conn.asp" -->
<!-- #include file="../pub/fun.asp" -->
<!-- #include file="../pub/rsa.asp" -->
<%firsttime=now()%>
<%call checklogin()%>

<%
sql = "select top 6 *,salary_month,salary_date from view_salaries where employee_id="&session("emp")&"order by salary_date desc"
set rs = conn.execute(sql)
dim salary(6,2)
k=6
	dim plus(100,2)
	dim minus(100,2)

do while not rs.eof
	salary_info1=rs("salary_info1")
	salary_info2=rs("salary_info2")

	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

	plus_total=0
	minus_total=0

	for i = 0 to ubound(plus_split)
		plus_total=round(plus_total+cdbl(plus(i,1)),2)
	next
	for j = 0 to ubound(minus_split)
		minus_total=round(minus_total+cdbl(minus(j,1)),2)
	next

	salary(k,2)=year(rs("salary_date"))&"年"&rs("salary_month")&"月"
	salary(k,1)=plus_total-minus_total
	k=k-1
	rs.movenext
loop

salary_no=6
%>
<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office">
<!--[if !mso]>
<style>
v\:*         { behavior: url(#default#VML) }
o\:*         { behavior: url(#default#VML) }
.shape       { behavior: url(#default#VML) }
</style>
<![endif]-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<style>
TD {	FONT-SIZE: 9pt}
</style></head>
<body topmargin=5 leftmargin=0 scroll=AUTO>
真希望我的工资每个月都能涨 涨 涨!!!
<%call table1(salary,5,100,20,30,500,200,"A")
%>
<br>
[<font color=red size=2>页面执行时间:<%=(now()-firsttime)%></font>]

</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -