clgl_ycsq_cxview.asp

1.4.1 个人桌面 1.4.2 信息中心 1.4.3 人事机构 1.4.4 考勤管理 1.4.5 工作计划 1.4.6 公文流转 1.4.7 会议管理 1.4.8 审批登记 1.4.

<%function ycsq_view(sqxh) '用车申请表
    sql="select * from oa_ycsq where sqxh="&sqxh
    set rs=conn.execute(sql)
    if not rs.eof and not rs.bof then
    %>
 <table class="dataclass" align="center" width="100%">    
     <tr>
        <td class="left" width="80" align="center">
           乘车人数
        </td>
        <td  class="row" width="40" align="center">
           <%=rs("ccrs")%>
        </td>
        <td class="left" width="80" align="center">
           起始时间
        </td>
        <td  class="row" width="80" align="center">
           <%=rs("qssj")%>
        </td> 
        <td class="left" width="80" align="center">
            截止时间
        </td>       
        <td  class="row" align="center">
           <%=rs("jzsj")%>
        </td>        
     </tr>
     <tr>
        <td class="left" width="80" align="center">
            是否住宿 
        </td>
        <td  class="row" width="40" align="center">
              <%if rs("zsbz")="0" then Response.Write "否"
                if rs("zsbz")="1" then Response.Write "是"
              %>
        </td>   
        <td class="left" align="center" width="80">
          用车路径
	      </td>  
	      <td  class="row" align="left" colspan="3">
           <%=rs("yclj")%>
        </td>           
     </tr>
    
</table>
  <%end if
  end function

function ycsqmx_view(sqxh) '用车申请明细表
        sql="select * from oa_ycsqmxb where sqxh="&sqxh
    set rs=conn.execute(sql)
    if not rs.eof and not rs.bof then
   
   %>
 <table class="dataclass" align="center" width="100%"> 
		 <tr>
        <td class="title" colspan="4" align="center">
           申请用车明细
        </td>        
     </tr>	   
     <%do while not rs.eof %>
     <tr>
        <td class="left" width="80" align="center">
           车号
        </td>
        <td class="row" width="120" align="center">
           <%=rs("ch")%>
        </td>
        <td class="left" width="100" align="center">
           主车人
          </td>
        <td class="row" align="left">
             <%=server.HTMLEncode(rs("zcr"))%>
        </td>
     </tr>
   <%rs.movenext
     
     loop%>  
</table>
  <%end if



end function

function ycdj_view(djxh) '用车登记表
    
    sql="select * from oa_ycdj where djxh="&djxh
    set rs=conn.execute(sql)
   
    if not rs.eof and not rs.bof then
    %>
	 <table class="dataclass" align="center" width="100%">    
	     <tr>
	        <td class="left" width="80" align="center">
	           乘车人数
	        </td>
	        <td  class="row" width="40" align="center">
	           <%=rs("ccrs")%>
	        </td>
	        <td class="left" width="80" align="center">
	           起始时间
	        </td>
	        <td  class="row" width="80" align="center">
	           <%=rs("qssj")%>
	        </td> 
	        <td class="left" width="80" align="center">
	            截止时间
	        </td>       
	        <td  class="row" align="center">
	           <%=rs("jzsj")%>
	        </td>        
	     </tr>
	     <tr>
	        <td class="left" width="80" align="center">
	            是否住宿 
	        </td>
	        <td  class="row" width="40" align="center">
	              <%if rs("zsbz")="0" then Response.Write "否"
	                if rs("zsbz")="1" then Response.Write "是"
	              %>
	        </td>   
	        <td class="left" align="center" width="80">
	          用车路径
		      </td>  
		      <td  class="row" align="left" colspan="3">
	           <%=rs("yclj")%>
	        </td>           
	     </tr>
	    
	</table>   
  <%end if
  


end function

function ycdjmx_view(djxh)'用车登记明细
    
    sql="select * from oa_ycdjmxb where djxh=" & djxh
    set rs=conn.execute(sql)
    if not rs.eof and not rs.bof then
    %>
 <table class="dataclass" align="center" width="100%">    
     <tr>
        <td class="title" align=center>
           车号
        </td>
        <td class="title" align=center>
           主车人
        </td>
        <td class="title" align=center>
            行车里程数
        </td>
        <td class="title" align=center>
             补贴金额
        </td>
        <td class="title" align=center>
             夜班补贴金额
         </td>
          
     </tr>
    <%do while not rs.eof%>
    <tr>
        <td class="title" align=center>
           <%=server.HTMLEncode(rs("ch"))%>
        </td>
        <td class="title" align=center>
           <%=server.HTMLEncode(rs("zcr"))%>
        </td>
        <td class="title" align=center>
            <%=rs("xclcs")%>
        </td>
        <td class="title" align=center>
            <%=rs("btje")%>
        </td>
        <td class="title" align=center>
            <%=rs("ybbtje")%>
         </td>
          
     </tr>  
     
 <%rs.movenext
 loop%>    
</table>
  <%end if
end function


%>