count.asp

来自「这是一个自己研发的薪酬管理系统」· ASP 代码 · 共 40 行

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

<%
dim syear(7)
dim smonth(7)
dim salary_info1(100,6)
dim salary_info2(100,6)
dim salary(6,2)
dim salary_time(6)
for i=0 to 6
	smonth(i)=month(now())-i
	syear(i)=year(now())
	if smonth(i)<=0 then
		smonth(i)=smonth(i)+12
		syear(i)=year(now())-1
	end if
next
'sql="select salary_date from wh_salaries group by salary_date"
'set rs = conn.execute (sql)
'
'do while not rs.eof
'	response.write rs(0)&"----"
'	rs.movenext
'loop
for i=0 to 5
		sql="select * from wh_salaries where salary_date like '%"&syear(i+1)&"%' and salary_month="&smonth(i+1)
		salary_time(i)=syear(i+1)&"年"&smonth(i+1)&"月"
		set rs1 = conn.execute(sql)
		j=0
		do while not rs1.eof
			salary_info1(j,i)=rs1("salary_info1")
			salary_info2(j,i)=rs1("salary_info2")
			j=j+1
			rs1.movenext
		loop
	next

%>