rs3.asp

此系统对学校教师的工资信息加以管理,大大提高学校的办公效率.

<!-- #include file="inc/top.asp" -->
<!-- #include file="inc/stumenu.asp"-->
<%define="1"%>

<table width="768" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>
    <form action="stulook.asp" method="post" name="form1" >
  <table border="0" cellpadding="0" cellspacing="0">
    <tr> 
            <td height="25" nowrap>
              <div align="center">查询您的总分：</div>        
            </td>
            <td width="200" height="25"> 
              <input type="hidden" name="xh" value="<%=request("xh")%>">
              <input name="submit" type="submit" value="确定">
              <input name="al" type=hidden value="1"></td>
    </tr>
  </table>
    </form>  </td>
  </tr>
<tr><td align="center"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
<tr><td height="30" colspan="4" align="center"><strong>分类查询</strong></td>
</tr>
  <tr>
    <td>
<form action="stulook.asp" method="post" name="form1" >
  <table border="1" cellpadding="0" cellspacing="0" bordercolor="#e0e0e0">
   <tr bgcolor="#EEEEEE">
                  <td height="25" colspan="2" align="center">按年代查询</td>
   </tr>
   <tr>
                  <td width="50" height="25" align="center">年代：</td>
                  <td width="150" height="25">
       <input type=text name="kc" size="15">
       </td></tr>
   <tr><td height="25" colspan="2" align="center"><input type="hidden" name="xh" value="<%=request("xh")%>">
                    <input name="submit2" type="submit" value="提交"></td>
                </tr>
  </table>
</form>
</td>
    <td>
<form action="r.asp" method="post" name="form1" >
  <table border="1" cellpadding="0" cellspacing="0" bordercolor="#e0e0e0">
   <tr bgcolor="#CCCCCC">
                  <td height="25" colspan="2" align="center">按积分排序</td>
   </tr>
   <tr>
                  <td width="50" height="25" align="center">积分：</td>
                  <td width="150" height="25">
       <input type=text name="cj" size="15">
       </td></tr>
   <tr><td height="25" colspan="2" align="center"><input type="hidden" name="xh" value="<%=request("xh")%>"><input name="submit" type="submit" value="提交"></td></tr>
  </table>
</form>
</td>
          <td>&nbsp; </td>
    <td>
<form action="stulook.asp" method="post" name="form1" >
  <table border="1" cellpadding="0" cellspacing="0" bordercolor="#e0e0e0">
   <tr bgcolor="#CCCCCC"><td height="25" colspan="2" align="center">按类型查询</td>
   </tr>
   <tr><td width="50" height="25" align="center">类型：</td><td width="150" height="25">
       <select name="lx"><option>基本工资</option><option>绩效工资</option><option>奖金</option></select>
       </td></tr>
   <tr><td height="25" colspan="2" align="center"><input type="hidden" name="xh" value="<%=request("xh")%>"><input name="submit" type="submit" value="提交"></td></tr>
  </table>
</form>
</td>
  </tr>
</table></td></tr>
</table>


<!-- #include file=inc/copyr.asp -->
<p>
  <%
end if
%>
</p>
<p>
  <%
if session("pwd")<>"" then
%>
  <!-- #include file="inc/top.asp"-->
  <!-- #include file="inc/stumenu.asp"-->
  <%
        xh=session("user")
        kc=request.form("kc")
        cj=request.form("cj")
        xq=request.form("xq")
        lx=request.form("lx")
        al=request.form("al")

if lx="" and kc="" and cj="" and xq="" and al="" then
    response.write "<script language=JavaScript>" & chr(13) & "alert('请输入你要查询的条件');" & "history.back()" & "</script>" 
    Response.End
end if
%>
  <%
set rs=server.createobject("adodb.recordset")
conn = "DBQ=" + server.mappath("#25175class_cj.asp") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
if request("kc")<>"" then
    sql="select * from bbs1 where kc like'" & kc & "' and xh like'" & xh & "'"
elseif request("cj")<>"" then
    sql="select * from bbs1 where cj like'" & cj & "' and xh like'" & xh & "'"
elseif request("xq")<>"" then
    sql="select * from bbs1 where xq like'" & xq & "' and xh like'" & xh & "'"
elseif request("lx")<>"" then
    sql="select * from bbs1 where lx like'" & lx & "' and xh like'" & xh & "'"
else
    sql="select * from bbs1 where xh like'" & xh &"'"
end if
rs.Open sql,conn,1,1
totalput=rs.RecordCount

%>
  <%
if rs.EOF and  rs.BOF then
    Response.Write "<br>当前符合没有这个条件的分数"
else
%>
</p>
<table width="768"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td height="25"> <table width="768" height="25" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td bgcolor="#EEEEEE">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="unnamed2_14">年份：</span><%=rs("bj")%></td>
        </tr>
      </table>
      <table width="768" border="0" cellpadding="0" cellspacing="0" height="25">
        <tr> 
          <td width="14%" align="center" height="25">工号</td>
          <td width="14%" align="center" height="25">姓名</td>
          <td width="14%" align="center" height="25">项目</td>
          <td width="14%" align="center" height="25">工分</td>
          <td width="14%" align="center" height="25">月份</td>
          <td width="14%" align="center" height="25">类型</td>
          <td width="14%" align="center" height="25">绩点</td>
        </tr>
      </table>
      <table width="768" height="25" border="0" cellpadding="0" cellspacing="0">
        <%
    do while not rs.eof
%>
        <tr> 
          <td width="14%" height="25" align="center"><%=rs("xh")%></td>
          <td width="14%" align="center"><%=rs("user")%></td>
          <td width="14%" align="center"><%=rs("kc")%></td>
          <td width="14%" align="center"><%=rs("cj")%></td>
          <td width="14%" align="center"><%=rs("xq")%></td>
          <td width="14%" align="center"><%=rs("lx")%></td>
          <td width="14%" align="center"> 
            <% if rs("xh")="1" then response.write("<a href='update.asp?id='"&rs("id")&" class='blue'>修改</a>&nbsp;<a href=delnews.asp?id="&rs("id")&"' class='blue' onClick='return Delete();'>删除</a>") 
%>
          </td>
        </tr>
        <%
    rs.movenext
    loop
end if
rs.Close 
set rs=nothing
set conn=nothing
%>
      </table></td>
  </tr>
</table>
<!-- #include file="inc/copyr.asp" -->
<%
else 
response.write("<script language=JavaScript>" & chr(13) & "alert('请输入你要查询的学号');" & "history.back()" & "</script>")
%>
<%
end if 
%>