show_wh_projects.asp

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

            <TR CLASS='TABLEDATA' ALIGN=CENTER>
                <TD ALIGN=CENTER>
					<%if session("right")>1 then%>
                    <INPUT ID=Chk_Select NAME=ChkID TYPE=CHECKBOX VALUE='<% =Str_PK_project_id %>'>
					<%else%>
					<INPUT ID=Chk_Select NAME=ChkID TYPE=CHECKBOX VALUE='<% =Str_PK_project_id %>' disabled>
					<%end if%>
                </TD>
            
                <TD>
                    <% Response.write (mInt_Page-1)*mInt_CountPerPage+Int_Count %>
                </TD>
                <TD>
                    <A HREF='Show.asp?<%=mStr_WINDURL%>&PK_project_id=<%=Str_PK_project_id%>'>
                    <%
					if Str_project_sum<>0 and Str_project_notpay/Str_project_sum=0 then
						Response.write "<font color=black>"&Str_project_name&"</font>"
					elseif Str_project_sum<>0 and Str_project_notpay/Str_project_sum<0.1 then
						Response.write "<font color=#6666FF>"&Str_project_name&"</font>"
					else
						Response.write "<font color=red>"&Str_project_name&"</font>"
					end if
					
                    %>
                    </A>
                </TD>
                <TD>
                    <A HREF='Show.asp?<%=mStr_WINDURL%>&PK_project_id=<%=Str_PK_project_id%>'>
                    <%
                    if isdate(Str_project_begin) then
                        Response.write (Val(FormatDate(Str_project_begin,"yyyy"))-gInt_BeginYear) & FormatDate(Str_project_begin,"年mm月dd日")
					else
						response.write("未知")
                    end if
                    %>
                    </A>
                </TD>
				<TD>
                    <A HREF='Show.asp?<%=mStr_WINDURL%>&PK_project_id=<%=Str_PK_project_id%>'>
                    <%
					if len(Str_project_memo)>0 then
						Response.write Str_project_memo
					else
						response.write("&nbsp;")
					end if
                    %>
                    </A>
                </TD>

            </TR>