search.asp

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

<%@LANGUAGE="VBSCRIPT"%> 
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 10
Repeat1__index = 0
r2_numRows = r2_numRows + Repeat1__numRows
%>
<%
if session("password")<>"" then
session("return")=request.ServerVariables("SCRIPT_NAME")
%>
<!-- #include file="inc/top.asp"-->
<!-- #include file="images/jav.inc" -->
<!-- #include file="inc/adminmenu.asp" -->
<!--#include file="Connections/conn2.asp" -->
<%
Dim r2__MMColParam
r2__MMColParam = "1"
If (Request.Form("xh") <> "") Then 
  r2__MMColParam = Request.Form("xh")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_conn2_STRING
Recordset1.Source = "SELECT distinct xh  FROM bbs1"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>

<%
Dim r2
Dim r2_numRows

Set r2 = Server.CreateObject("ADODB.Recordset")
r2.ActiveConnection = MM_conn2_STRING
r2.Source = "SELECT * FROM bbs1 WHERE xh = '" + Replace(r2__MMColParam, "'", "''") + "' ORDER BY date DESC"
r2.CursorType = 0
r2.CursorLocation = 2
r2.LockType = 1
r2.Open()

r2_numRows = 0
%>
<span class="unnamed2_14"> </span> 
<table width="752" border="0" align="center" cellpadding="0" cellspacing="0">
<tr><td align="center"><table width="600" border="0" cellspacing="0" cellpadding="0" bordercolor="#eeeeee">
        <tr> 
          <td bgcolor="#CCCCCC">
<div align="center"><span style="font-weight: bold">员工 
              工分 分类查询</span></div></td>
        </tr>
        <tr> 
          <td><table width="100%"  border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td><table width="100%"  border="1" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td width="25%" height="19"> 
                        <form name="form1" method="post" action="search.asp">
                          <table width="88%" border="0" cellspacing="0" cellpadding="0">
                            <tr> 
                              <td width="20%" height="16"><div align="right">工号提示 
                                </div></td>
                              <td width="11%"><select name="xh1" id="xh1">
                                  <%
While (NOT Recordset1.EOF)
%>
                                  <option value="<%=(Recordset1.Fields.Item("xh").Value)%>"><%=(Recordset1.Fields.Item("xh").Value)%></option>
                                  <%
  Recordset1.MoveNext()
Wend
If (Recordset1.CursorType > 0) Then
  Recordset1.MoveFirst
Else
  Recordset1.Requery
End If
%>
                                </select></td>
                              <td width="23%"> 输入工号</td>
                              <td width="46%"><input name="xh" type="text" id="xh" size="10" maxlength="10">
                                　</td>
                            </tr>
                            <tr> 
                              <td colspan="2">&nbsp;</td>
                              <td>&nbsp;</td>
                              <td> <input type="submit" name="Submit" value="提交"></td>
                            </tr>
                          </table>
                        </form> </td>
                    </tr>
                    <tr> 
                      <td width="25%"><table width="100%"  border="1" cellspacing="0" cellpadding="0" bordercolor="#eeeeee">
                          <form name="form6" method="post" action="search.asp">
                            <tr align="center" bgcolor="#eeeeee"> 
                              <td width="100%">&nbsp;</td>
                            </tr>
                          </form>
                        </table></td>
                    </tr>
                  </table></td>
              </tr>
            </table></td>
        </tr>
      </table>
      <table width="60%" border="0" cellspacing="1" cellpadding="1">
        <tr> 
          <td><table width="768" height="25" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr> 
                <td bgcolor="#EEEEEE">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="unnamed2_14">年份： 
                  
              </tr>
            </table>
            <table width="787" height="51" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr> 
                <td width="14%" align="center" height="12">工号</td>
                <td width="14%" height="12" align="center">姓名</td>
                <td width="14%" height="12" align="center">日期</td>
                <td width="14%" height="12" align="center">工分</td>
                <td width="14%" height="12" align="center">月份</td>
                <td width="12%" height="12" align="center">类型</td>
                <td width="18%" height="12" align="center">算法分数</td>
              </tr>
              <%
			  if flag = false then
			  %>
              <% If Not r2.EOF Or Not r2.BOF Then %>
              <% 
While ((Repeat1__numRows <> 0) AND (NOT r2.EOF)) 
%>
              <tr> 
                <td align="center" height="30"><%=(r2.Fields.Item("xh").Value)%> </td>
                <td width="14%" height="30" align="center"><%=(r2.Fields.Item("user").Value)%></td>
                <td width="14%" height="30" align="center"><%=(r2.Fields.Item("date").Value)%></td>
                <td width="14%" height="30" align="center"><%=(r2.Fields.Item("cj").Value)%></td>
                <td width="14%" height="30" align="center"><%=(r2.Fields.Item("xq").Value)%></td>
                <td width="12%" height="30" align="center"><%=(r2.Fields.Item("lx").Value)%></td>
                <td width="18%" height="30" align="center"><font color="#FF0000"><strong> 
                  <% cj1=R2.fields("cj")/23*7*1.2%>
                  <% =cj1%>
                  </strong></font> </td>
              </tr>
              <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  r2.MoveNext()
Wend
%>
              <% End If ' end Not r2.EOF Or NOT r2.BOF %>
            </table></td>
        </tr>
      </table> 
      
      
      <br>
      <% If r2.EOF And r2.BOF Then %>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="48"> <div align="center"> 
              <p>没有您需要的信息</p>
            </div></td>
        </tr>
      </table>
      <% End If ' end r2.EOF And r2.BOF %> <%end if%>
      <p>&nbsp;</p></td></tr>
</table>
<!--#include file="inc/copyright.asp"-->
<%
r2.Close()
Set r2 = Nothing
%>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>