📄 wagemonth.asp
字号:
<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"-->
<%action=request("action"):WS_Uid=request("WS_Uid"):ColumnName="":Tablename="HX_Wageinfo":Orderby=""
yyyy=request("yy"):mmmm=request("mm")
if yyyy<>"" and mmmm<>"" then Orderby=" where WS_dotime=#"&yyyy&"-"&mmmm&"-15"&"#" else yyyy=year(date):mmmm=month(date) end if
set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
response.Write "<head><title>工资报表</title><link rel=stylesheet type=text/css href='../HXinclude/HX_Style.css'><meta http-equiv='Content-Type' content='text/html; charset=gb2312'></head><body topmargin='20' leftmargin='0' bottommargin='20'><table width='609' border='0' cellspacing='1' cellpadding='0' align=center bgcolor='#115F8F'><tr><td width='609' colspan='2' bgcolor=ffffff><table width='609' border='0' cellspacing='0' cellpadding='0'><tr><td width='609' height='25' background='../hximages/titleline.gif'><font class='fontmenu'>工资报表</font></td></tr></table><table width='100%' cellspacing cellpadding><tr><td width='100%'><table width='100%' border='0' cellspacing='1' cellpadding='0' bgcolor='#CCCCCC' height='100%'><form method='post' action='wagemonth.asp' name='form1'><tr><td height='27' bgcolor=ffffff><select name='yy'>"
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>年 <select name='mm' onchange='form1.submit()'>"
for i=1 to 12
response.Write "<option value='"&i&"'"
if i=cint(mmmm) then response.Write " selected"
response.Write ">"&i&"</option>"
next
response.Write "</select>月工资表 </span> 新增员工 <select name='select2' onChange=""if(this.value!='请选择') window.location='wagelist.asp?action=add&WS_Uid='+this.value""><option>请选择</option>"
set rs1=WS_S.HX_SetRSD("","HX_CompanyUser"," where WS_leave=False")
while not rs1.eof
response.Write "<option value='"&rs1("WS_Uid")&"'>"&rs1("WS_name")&"</option>"
rs1.movenext
wend
response.Write "</select>的工资记录 </td></tr></form>"
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> </td><td> </td><td> </td><td>住房补贴</td><td>餐费补贴</td><td>出差补贴</td><td>其它</td><td>考勤扣款</td><td>所得税</td><td>保险扣款</td><td>其它</td><td> </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>"
set urs=WS_S.HX_SetRSD("","HX_CompanyUser"," where WS_Uid="&rs("WS_Uid"))
response.Write "<a href='wagelist.asp?WS_Uid="&rs("WS_Uid")&"'><b><font color='#0000FF'>"&urs("WS_name")&"</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><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
response.Write "</table></td></tr></table></td></tr></table>"
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -