📄 wagesearch.asp
字号:
<!--#include file=DataBase/conn.asp-->
<!--#include file=yan.asp-->
<!--#include file=purview.asp-->
<%
call xinchouchaxun
set rs=server.CreateObject("adodb.recordset")
sql="Select * from tb_dept order by up"
rs.Open sql,conn,1,1
if request("suoshu")<>"" then
suoshu=request("suoshu")
else
suoshu=1
end if
set rsr=server.CreateObject("adodb.recordset")
sqlr="select * from tb_Employee where suoshu="&suoshu
rsr.open sqlr,conn,1,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//-->
</script>
<link href="CSS/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body,td,th {
font-size: 12px;
}
.style2 {color: #0000FF}
.style3 {color: #FF0000}
-->
</style></head>
<body topmargin="0">
<form name="form1" method="post" action="">
<table width="550" border="0" align="center">
<tr>
<td width="55%" height="30"> - <span class="style2">薪水管理</span>→<span class="style3">薪水查询</span></td>
</tr>
</table>
<table width="438" height="93" border="0" align="center" cellspacing="0" class="dian" >
<tr >
<td height="28" colspan="4" background="images/index_24.gif"></td>
</tr>
<tr>
<td width="93" height="28" align="center"> 部 门：</td>
<td width="173">
<select name="menu1" onChange="MM_jumpMenu('self',this,0)">
<%
do while not rs.eof
xian=""
for i=1 to rs("level")-1
xian = xian&"├"
next
xian = xian&"〖"&trim(rs("title"))&"〗<br>"
%>
<option value="wagesearch.asp?suoshu=<%=rs("id")%>" <%if rs("id")=clng(request("suoshu")) then%>selected<%end if%>><%=xian%></option>
<%
rs.movenext
loop
%>
</select>
<input name="post" type="hidden" id="post" value="true"></td>
<td width="42" align="center">员工：</td>
<td width="120">
<select name="name" id="name">
<%do while not rsr.eof %>
<option value="<%=rsr("id")%>" <%if clng(rsr("id"))=clng(request("id")) then%>selected<%end if%>><%=rsr("name")%></option>
<%
rsr.movenext
loop
%>
</select></td>
</tr>
<tr>
<td height="36" align="center">日 期：</td>
<td colspan="3">
<select name="year" id="year">
<%for i=2005 to 2050%>
<option value="<%=i%>" <%if i=clng(request("year")) then%>selected<%end if%>><%=i%></option>
<%next%>
</select>
年
<select name="month" id="month">
<%for i=1 to 12%>
<option value="<%=i%>" <%if i=clng(request("month")) then%>selected<%end if%>><%=i%></option>
<%next%>
</select>
月</td>
</tr>
<tr>
<td height="23" colspan="4" align="center"><input name="Submit" type="submit" class="botton" value=" 查 找 ">
</td>
</tr>
</table>
</form>
<%
if request("post")<>"" then
if request("name")="" then
response.Write("<script language=javascript>alert('请选择一个员工');location='javascript:history.go(-1)'</script>")
response.End()
end if
set rsx=server.CreateObject("adodb.recordset")
sqlx="select * from tb_Wage where year="&request("year")&" and month="&request("month")&" and name="&request("name")
rsx.open sqlx,conn,1,1
if not rsx.eof then
%>
<form name="form2" method="post" action="">
<table width="438" height="374" border="0" align="center" cellspacing="0" class="dian" >
<tr >
<td height="28" colspan="2" background="images/index_24.gif"></td>
</tr>
<tr>
<td width="90" align="center">工作日数：</td>
<td width="320">
<%=rsx("gongzuo")%>
天 </td>
</tr>
<tr>
<td align="center">日 薪：</td>
<td>
<%=rsx("rixin")%>
元</td>
</tr>
<tr>
<td align="center">本 薪：</td>
<td>
<%=rsx("benxin")%>
元</td>
</tr>
<tr>
<td align="center">奖 金：</td>
<td>
<%=rsx("jiangjin")%>
元</td>
</tr>
<tr>
<td align="center">假日津贴：</td>
<td>
<%=rsx("jiari")%>
元</td>
</tr>
<tr>
<td align="center">全勤奖金：</td>
<td>
<%=rsx("quanqin")%>
元</td>
</tr>
<tr>
<td align="center">加班津贴：</td>
<td>
<%=rsx("jiaban")%>
元</td>
</tr>
<tr>
<td align="center">本期工资：</td>
<td>
<%=rsx("benqi")%>
元</td>
</tr>
<tr>
<td align="center">福 利 金：</td>
<td>
<%=rsx("fuli")%>
元</td>
</tr>
<tr>
<td align="center">伙 食 费：</td>
<td>
<%=rsx("huoshi")%>
元</td>
</tr>
<tr>
<td align="center">所 得 税：</td>
<td>
<%=rsx("suode")%>
元</td>
</tr>
<tr>
<td align="center">借 支：</td>
<td>
<%=rsx("jiezhi")%>
元</td>
</tr>
<tr>
<td align="center">实发工资：</td>
<td>
<%=rsx("shifa")%>
元</td>
</tr>
<tr align="center">
<td colspan="2"> </td>
</tr>
</table>
</form>
<%
else
response.Write("<div align=center>没有相关信息</div>")
end if
end if
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -