table.asp

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

<!-- #include file="../Common/Cls_DbProcess2.1.asp" -->
<!-- #include file="../wh_projects/Cls_wh_projects.asp" -->
<!-- #include file="../pub/conn.asp" -->
<!-- #include file="../pub/fun.asp" -->
<%call checklogin()%>
<%
if session("right")<3 then
	dim lr
	lr="<font color=red>"&now()&"有"&session("name")&"试图修改项目表  IP:"&REQUEST.SERVERVARIABLES("REMOTE_ADDR")&"</font>"
    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
%>
<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(project,2,50,20,30,500,200,"A")
%>
</body>