show_wh_salaries.asp

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

            <TR CLASS='TABLEDATA' ALIGN=CENTER>
                <TD ALIGN=CENTER>
                    <INPUT ID=Chk_Select NAME=ChkID TYPE=CHECKBOX VALUE='<% =Str_PK_salary_id %>'>
                </TD>
            
                <TD>
                    <% Response.write (mInt_Page-1)*mInt_CountPerPage+Int_Count %>
                </TD>
                <TD>
					<A HREF=javascript:openwin("<%="Show.asp?PK_salary_id="&Str_PK_salary_id&"&employee="&id2employee(Str_employee_id)%>") >
                    <%
                    if isdate(Str_salary_date) then
                        Response.write (Val(FormatDate(Str_salary_date,"yyyy"))-gInt_BeginYear) & FormatDate(Str_salary_date,"年mm月dd日")
                    end if
                    %>
                    </A>
					<%if Str_salary_isopen=0 then
						response.write "<img src='../images/51.gif' title='工资信息尚未发布'>"
					end if%>

                </TD>
                <TD>
					<A HREF=javascript:openwin("<%="Show.asp?PK_salary_id="&Str_PK_salary_id&"&employee="&id2employee(Str_employee_id)%>")>
                    <%
                    Response.write Str_salary_month
                    %>
                    </A>
                </TD>
                <TD>
					<A HREF=javascript:openwin("<%="Show.asp?PK_salary_id="&Str_PK_salary_id&"&employee="&id2employee(Str_employee_id)%>")>
                    <%
                    Response.write id2employee(Str_employee_id)
                    %>
                    </A>
                </TD>
				<TD>
                    <A HREF='Show.asp?<%=mStr_WINDURL%>&PK_salary_id=<%=Str_PK_salary_id%>'>
                    <%
					if len(Str_salary_memo)>0 then
						Response.write Str_salary_memo
					else 
						response.write("&nbsp;")
					end if
                    %>
                    </A>
                </TD>
            </TR>