wagelist.asp

一个比较完整的oa系统

	 for i=1 to 12&"<option value='"&i&"'"
	   if i=month(date) then response.Write" selected"
	    response.Write ">"&i&"</option>"
	next
	response.Write "</select>月工资信息表&nbsp;单位：<font color='#CC0000'>元</font></td></tr><tr bgcolor='#FFFFFF'><td width='79'>基本工资</td><td width='224'><input style='ime-mode:disabled' onKeyPress='event.returnValue=IsDigit();' type='text' name='WS_wage' maxlength='20' size='20' onChange=""return jg_onchange()"" value='"&rs("WS_wage")&"'></td><td width='79'>提成工资</td><td width='193'><input style='ime-mode:disabled' onKeyPress='event.returnValue=IsDigit();' type='text' name='WS_pay' maxlength='20' size='20' onChange=""return jg_onchange()"" value='"&rs("WS_pay")&"'></td></tr><tr><td colspan='4' bgcolor='#f1f1f1'><b>其 它 应 得 款</b></td></tr><tr bgcolor='#FFFFFF'><td width='79'>住房补贴</td><td><input style='ime-mode:disabled' onKeyPress='event.returnValue=IsDigit();' type='text' name='WS_house' maxlength='20' size='20' onChange=""return jg_onchange()"" value='"&rs("WS_house")&"'></td><td width='79'>餐费补贴</td><td><input style='ime-mode:disabled' onKeyPress='event.returnValue=IsDigit();' type='text' name='WS_lunch' maxlength='20' size='20' onChange=""return jg_onchange()"" value='"&rs("WS_lunch")&"'></td></tr><tr bgcolor='#FFFFFF'><td width='79'>出差补贴</td><td><input style='ime-mode:disabled' onKeyPress='event.returnValue=IsDigit();' type='text' name='WS_outpay' maxlength='20' size='20' onChange=""return jg_onchange()"" value='"&rs("WS_outpay")&"'></td><td width='79'>其它</td><td><input style='ime-mode:disabled' onKeyPress='event.returnValue=IsDigit();' type='text' name='WS_bonus' maxlength='20' size='20' onChange=""return jg_onchange()"" value='"&rs("WS_bonus")&"'></td></tr><tr><td colspan='4' bgcolor='#f1f1f1'><b>应 扣 款 项</b></td></tr><tr bgcolor='#FFFFFF'><td width='79'>考勤扣款</td><td><input style='ime-mode:disabled' onKeyPress='event.returnValue=IsDigit();' type='text' name='WS_card' maxlength='20' size='20' onChange=""return jg_onchange()"" value='"&rs("WS_card")&"'></td><td width='79'>所得税扣款</td><td><input style='ime-mode:disabled' onKeyPress='event.returnValue=IsDigit();' type='text' name='WS_ratal' maxlength='20' size='20' onChange=""return jg_onchange()"" value='"&rs("WS_ratal")&"'></td></tr><tr bgcolor='#FFFFFF'><td width='79'>保险扣款</td><td><input style='ime-mode:disabled' onKeyPress='event.returnValue=IsDigit();' type='text' name='WS_safe' maxlength='20' size='20' onChange=""return jg_onchange()"" value='"&rs("WS_safe")&"'></td><td width='79'>其它</td><td><input style='ime-mode:disabled' onKeyPress='event.returnValue=IsDigit();' type='text' name='WS_other' maxlength='20' size='20' onChange=""return jg_onchange()"" value='"&rs("WS_other")&"'></td></tr><tr><td width='79' bgcolor='#FFFFFF'>实发薪资</td><td colspan='3' bgcolor='#FFFFFF'><input style='ime-mode:disabled' onKeyPress='event.returnValue=IsDigit();' type='text' name='WS_lastmoney' maxlength='20' size='20' onChange=""return jg_onchange()"" value='"&rs("WS_lastmoney")&"' readonly></td></tr><tr><td width='79' bgcolor='#FFFFFF'>备注</td><td colspan='3' bgcolor='#FFFFFF'><textarea name='WS_brief' cols='50' rows='5'></textarea></td></tr><tr><td width='79' bgcolor='#FFFFFF'>发放时间</td><td colspan='3' bgcolor='#FFFFFF'><select name='byy'>"
	for i=year(date)-20 to year(date)+1 
	response.Write"<option value='"&i&"'"
       if month(date)=12 then nnn=1 else nnn=0 
          if i=year(date)+nnn then response.Write " selected"
	   response.Write ">"&i&"</option>"
	 next
	 response.Write "</select>年  <select name='bmm'>"
	 for i=1 to 12
	 response.Write "<option value='"&i&"' "
       if month(date)=12 then mmm=1 else mmm=month(date)+1
        if i=mmm then response.Write " selected"
		response.Write ">"&i&"</option>"
	 next
	 response.Write "</select>月 <select name='bdd'>"
	 for i=1 to 31
	 response.Write "<option value='"&i&"'"
	   if i=1 then respone.write " selected"
	 response.Write ">"&i&"</option>"
	 next
	   response.Write"</select>日 </td></tr><tr align='right' bgcolor='#FFFFFF'><td colspan=4><input type='submit' name='提交' value='修改工资信息'><input type='hidden' name='action' value='editWage'><input type='hidden' name='WS_Uid' value='"&WS_Uid&"'><input type='hidden' name='WS_id' value='"&WS_id&"'></td></tr></form></table></td></tr>"
  case else
     response.Write "<tr><td height='27' bgcolor=ffffff>&nbsp;员工管理&gt;&gt;&gt;员工[ <font color='#CC0000'>"&Truename&"</font> ]<select name='yy' onChange=""window.location='wagelist.asp?WS_Uid="&WS_Uid&"&yyyy='+this.value"">"
	 for i=year(date)-20 to year(date)+1
	 response.Write "<option value='"&i&"'"
	   if i=cint(yyyy) then response.Write " selected"
		response.Write ">"&i&"</option>"
	 next
	 response.Write "</select>年工资信息表 &nbsp;<a href='wagelist.asp?action=add&WS_Uid="&WS_Uid&"'><font color='#0000FF'>新增</font></a> &nbsp; &nbsp;<a href='wagelist.asp?WS_Uid="&WS_Uid&"'><font color='#0000FF'>查询</font></a></span></td></tr>"
     if rs.recordcount>0 then
       response.Write "<tr><td bgcolor=ffffff><table width='100%' border='0' cellpadding='3' cellspacing='1' bgcolor=A1BBE0><tr bgcolor='A1BBE0' class=td34><td>月份</td><td>基本薪资</td><td>提成工资</td><td colspan='4'>其它应得款</td><td colspan='4'>应扣款项</td><td>实发薪资</td></tr><tr bgcolor=f1f1f1><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>住房补贴</td><td>餐费补贴</td><td>出差补贴</td><td>其它</td><td>考勤扣款</td><td>所得税</td><td>保险扣款</td><td>其它</td><td>&nbsp;</td></tr>"
	   rs.PageSize =15 '每页记录条数
	   iCount=rs.RecordCount '记录总数
	    iPageSize=rs.PageSize
    	maxpage=rs.PageCount 
    	page=request("page")
    
      if Not IsNumeric(page) or page="" then
        page=1
      else
        page=cint(page)
      end if
    
     if page<1 then
        page=1
     elseif  page>maxpage then
        page=maxpage
     end if
    
    rs.AbsolutePage=Page

	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if
	i=0
	do while not rs.EOF
      response.Write "<tr "
	  if i mod 2 =0 then response.write "bgcolor=#FFFFFF" else response.write "bgcolor=#f1f1f1"
	  response.Write "><td><a href='wagelist.asp?action=view&WS_id="&rs("WS_id")&"&WS_Uid="&WS_Uid&"'><b><font color='#0000FF'>"&month(rs("WS_dotime"))&"</font></b></a></td><td>"&rs("WS_wage")&"</td><td>"&rs("WS_pay")&"</td><td>"&rs("WS_house")&"</td><td>"&rs("WS_lunch")&"</td><td>"&rs("WS_outpay")&"</td><td>"&rs("WS_bonus")&"</td><td>"&rs("WS_card")&"</td><td>"&rs("WS_ratal")&"</td><td>"&rs("WS_safe")&"</td><td>"&rs("WS_other")&"</td><td>"&rs("WS_lastmoney")&"</td></tr>"
	  i=i+1
	  if i>=rs.PageSize then Exit Do
	    rs.movenext
        loop
        call WS_S.PageControl(iCount,maxpage,page,"border=0 align=right","<p align=right>",12)
        response.Write "</table></td></tr><tr bgcolor='#f1f1f1'><td height='30' align=right>&nbsp;<input type='button' name='WS_Submit23' value='合同信息' onClick=""javascript:location.href='compactinfo.asp?WS_Uid="&WS_Uid&"';""> <input type='button' name='WS_Submit2' value='工资信息' onclick=""javascript:location.href='wagelist.asp?WS_Uid="&WS_Uid&"';""> <input type='button' name='WS_Submit22' value='修改"&Truename&"资料' onClick=""javascript:location.href='domodify.asp?WS_Uid="&WS_Uid&"';""> <input type='button' name='WS_Submit2' value=' 返 回 ' onclick='javascript:history.go(-1);'> <input type='button' name='WS_Submit2' value=' 打 印 ' onclick='javascript:print();'></td></tr>"
     end if
end select
response.Write "</table></td></tr></table></td></tr></table>"
%>