<!--#include file="../SQLconn.asp"-->
<html>
<head><title></title><meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<link rel="stylesheet" type="text/css" href="../css/style.css" />
<body>

<%
		
		 leibie=request("leibie")
		 jibie=request("jibie")
		 shuoming=request("shuoming")
	    
		 strdate1=request("date1")
		 strdate2=request("date2")		
		 if strdate1="" then 
		   strdate1=now-300
		 end if
		 if strdate2="" then 
		   strdate2=now
		 end if
				 
		
	%>
<FORM ACTION="Findzhengshu.asp" METHOD="get" enctype="multipart/form-data" NAME="form1"><div align="center">
  <table align="center" border="0" cellpadding="3"   cellspacing="0"  bordercolor="#6D8DD8" >   
      <tr>
        <td nowrap class="STYLE1"><div align="center">类别</div></td>
        <td class="STYLE1"><div align="center">
            <select name="leibie" id="leibie"  >
              <option><%=leibie%></option>
              <option></option>
              <% Set RSsel = Conn.Execute("select vname from  varset where name='zhengshutype'")
								   While NOT RSsel.EOF %>
              <OPTION value=<%=RSsel( "vname" )%>><%=RSsel( "vname" )%></OPTION>
              <% RSsel.MoveNext
								  Wend
								  RSsel.Close%>
            </select>
        </div></td>
        <td height="34" class="STYLE1"><div align="center"><span class="STYLE1 STYLE2">开始</span></div></td>
        <td class="STYLE1"><b><b>
          <input name=date1 class="text" onClick="javascript:window.open('day.asp?form=form1&field=date1&oldDate='+this.value,'','directorys=no,toolbar=no,status=no,menubar=no,scrollbars=no,resizable=no,width=250,height=200,top=220,left=250');"   size="10" readonly  value=<%=strdate1%>>
        </b></b></td>
        <td class="STYLE1"><div align="center"><span class="STYLE2">结束</span></div></td>
        <td class="STYLE1"><b><b>
          <input name=date2 class="text" onClick="javascript:window.open('day.asp?form=form1&field=date2&oldDate='+this.value,'','directorys=no,toolbar=no,status=no,menubar=no,scrollbars=no,resizable=no,width=250,height=200,top=220,left=250');"    size="10" readonly value=<%=strdate2%>>
        </b></b></td>
        <td class="STYLE1"><div align="center">级别</div></td>
        <td class="STYLE1"><div align="center">
          <select name="jibie" id="jibie">
            <option><%=jibie%></option>
            <% Set RSsel = Conn.Execute("select vname,shuoming from  varset where name='zhengshujibie'")
								   While NOT RSsel.EOF %>
            <option><%=RSsel( "vname" )%></option>
            <% RSsel.MoveNext
								  Wend
								  RSsel.Close%>
          </select>
        </div></td>
        <td class="STYLE1"><div align="center">说明</div></td>
        <td class="STYLE1"><div align="center">
          <input name="shuoming" class="text" id="shuoming"  size=10 maxlength="30" value=<%=shuoming%>>
        </div></td>
        <td class="STYLE1"><div align="center">
          <input name="submit" type="submit" class="topanniu" value="查询">
        </div></td>
      </tr>
    </table>
	
    </div>
  <br>
			  <table width="700" border="0" align="center" cellspacing="0">
				<% 
			 	Set RsImg = Conn.Execute("select z.*,e.姓名 as tname from  EmployeeZhengshu z,Employee e where  (z.tid=e.id)  and (z.datetime BETWEEN '"&strdate1&"'  AND   '"&strdate2&"') AND (z.leibie='"&leibie&"')  AND (z.jibie like  '%"&jibie&"%')  AND (z.shuoming like  '%"&shuoming&"%')   order by  datetime desc")
				While NOT RsImg.EOF %>
				<tr> 
				  <td width="349" height="54" align="center" valign="middle" >
							  <table width="239" height="45" border="0" cellspacing="3">
								<tr>
								  <td><div align="center">
								  <a href="showBigimg.asp?id=<%=RsImg("id")%>" target="_blank">
								  <img src=showimg.asp?id=<%=RsImg("id")%> border="0" ></a>
								  </div></td>
								</tr>
								<tr>
								  <td class="STYLE1"><div align="center"><%=RsImg("shuoming")%>&nbsp;
							
								  </div></td>
								</tr>
								<tr>
								  <td class="STYLE1"><div align="center"><%=RsImg("leibie")%>&nbsp;&nbsp;<%=RsImg("jibie")%>&nbsp;&nbsp;<%=RsImg("tname")%>&nbsp;&nbsp;<%=RsImg("datetime")%></div></td>
							    </tr>
								
	                </table>
				  </td>  
				  
				  <% RsImg.MoveNext%>
				  
				  
				  
			     <td width="347" height="54" align="center" valign="middle" >
							 
							  <%if  not RsImg.EOF then %>
							  <table width="239" height="45" border="0" cellspacing="3">
								<tr>
								  <td><div align="center">
		                        <a href="showBigimg.asp?id=<%=RsImg("id")%>" target="_blank"><img src=showimg.asp?id=<%=RsImg("id")%> border="0" ></a> 
								
								  </div></td>
								</tr>
								<tr>
								   
								     <td class="STYLE1"><div align="center"><%=RsImg("shuoming")%>&nbsp;</div></td>
			  
								</tr>
								<tr>
								 	  <td class="STYLE1"><div align="center"><%=RsImg("leibie")%>&nbsp;&nbsp;<%=RsImg("jibie")%>&nbsp;&nbsp;<%=RsImg("tname")%>&nbsp;&nbsp;<%=RsImg("datetime")%></div></td>
							    </tr>
								
	               </table>
				      <%end if %>
				   
				  </td>  

			    </tr>
				
				<% RsImg.MoveNext 
				  Wend
				  RsImg.Close
				  %>
  </table>
</FORM>
 
</body>
</html>
