<%
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")
i= 0
if lx="" and kc="" and cj="" and xq="" and al="" then
    response.write "<script language=JavaScript>" & kind & "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
%>


<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")%> 　　請在<font color="#FF0000">月末</font>輸入總成績 則<font color="#FF0000">　總分</font>=<font color="#FF0000"> 
            <strong>
            <% cj=rs.fields("cj")*10%>
            </strong></font> <strong> 
            <% =cj%>
            </strong><font color="#FF0000">　算法工資</font> 總分/23*7*1.2 = <font color="#FF0000"> 
            <strong> 
            <% cj1=rs.fields("cj")/23*7*1.2%>
            <% =cj1%>
            </strong> </font> </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"><div align="left">績點</div></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 
%>