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

				
				
				
				
				
								if session("right")					dim lr
					lr=""&now()&"有"&session("name")&"试图修改项目表  IP:"&REQUEST.SERVERVARIABLES("REMOTE_ADDR")&""
				    call savelog("../pub/error.htm",lr)
					call savedatalog(now(),session("name"),"试图修改项目表",REQUEST.SERVERVARIABLES("REMOTE_ADDR"),2)
					response.redirect("../error.asp?msg=2")
				end if
				%>
								sql = "select top 6 * from view_projects"
				set rs = conn.execute(sql)
				dim project(6,2)
				k=1
				
				do while not rs.eof
				
					project(k,2)=rs("project_name")
					project(k,1)=round(rs("project_sum"),2)
					k=k+1
					rs.movenext
				loop
				salary_no=6
				%>
				
								
				v\:*         { behavior: url(#default#VML) }
				o\:*         { behavior: url(#default#VML) }
				.shape       { behavior: url(#default#VML) }
				
				
				
				
				
				
				TD {	FONT-SIZE: 9pt}
				
				
								call table1(project,2,50,20,30,500,200,"A")
				%>