table.asp

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

<!-- #include file="../pub/conn.asp" -->
<!-- #include file="../Common/Cls_DbProcess2.1.asp" -->
<!-- #include file="../view_tech_bonus/Cls_view_tech_bonus.asp" -->
<!-- #include file="../pub/fun.asp" -->

<%call checklogin()%>
<%
sql = "select top 6 * from view_tech_bonus where employee_id="&session("emp")
set rs = conn.execute(sql)
dim firstprize(6,2)
dim lastprize(6,2)
k=1

do while not rs.eof

	firstprize(k,2)=rs("project_name")
	firstprize(k,1)=round(rs("tbonus_fprize"),2)
	lastprize(k,2)=rs("project_name")
	lastprize(k,1)=round(rs("tbonus_lprize"),2)
	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>
<%
select case (request("time"))
	case 1
		response.write("前期提成一览:")
		call table1(firstprize,2,50,20,30,500,200,"A")
	case 2
	response.write ("后期提成一览:")
	call table1(lastprize,2,50,20,30,500,200,"A")
end select
%>
</body>