clgl_clwxsq_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 clwxsq_view(sqxh)
  sql="select * from oa_clwxsq where sqxh="&sqxh
  set rs=conn.execute(sql)
  if not rs.eof and not rs.bof then%>
  <table width=100% class="dataclass" >
  <tr>
    <td class="left">
    车号
    </td>
    <td class="row">
    <%=server.HTMLEncode(rs("ch")&"")%>
    </td>
    <td class="left">
    报修日期
    </td>
    <td class="left">
    <%=rs("bxrq")%>
    </td>
    
  </tr>
  <tr>
    <td class="left">
    修理项目
    </td>
    <td class="row">
    <%=server.HTMLEncode(rs("xlxm")&"")%>
    </td>
    <td class="left">
    维修费用
    </td>
    <td class="row">
    <%=rs("wxfy")%>
    </td>
  </tr>
  <tr>
    <td class="left">
    鉴定人
    </td>
    <td class="row">
    <%if rs("jdr")<>"" then
     Response.Write server.HTMLEncode(rs("jdr")&"")
     else
     Response.Write "&nbsp;"
    end if%>
    </td>
    <td class="left">
    鉴定日期
    </td>
    <td class="row">
    <%if rs("jdrq")<>"" then
     Response.Write server.HTMLEncode(rs("jdrq")&"")
     else
     Response.Write "&nbsp;"
    end if%>
    </td>
    
  </tr>
  <tr>
    <td class="left">
    鉴定意见
    </td>
    <td class="row" colspan=3>
    <%if rs("jdyj")<>"" then
     Response.Write server.HTMLEncode(rs("jdyj")&"")
     else
     Response.Write "&nbsp;"
    end if%>
    </td>
  </tr>
   <tr>
    <td class="left">
    检测人
    </td>
    <td class="row">
    <%if rs("jcr")<>"" then
     Response.Write server.HTMLEncode(rs("jcr")&"")
     else
     Response.Write "&nbsp;"
    end if%>
    </td>
    <td class="left">
    检测日期
    </td>
    <td class="row">
    <%if rs("jcrq")<>"" then
     Response.Write server.HTMLEncode(rs("jcrq")&"")
     else
     Response.Write "&nbsp;"
    end if%>
    </td>
    
  </tr>
  <tr>
    <td class="left">
    检测意见
    </td>
    <td class="row" colspan=3>
    <%if rs("jcyj")<>"" then
     Response.Write server.HTMLEncode(rs("jcyj")&"")
     else
     Response.Write "&nbsp;"
    end if%>
    </td>
  </tr>
  
  </table>
  <%end if

end function

function clwxdj_view(djxh)
sql="select * from oa_clwxdj where djxh="&djxh
set rs=conn.execute(sql)
if not rs.eof and not rs.bof then%>
<table width=100% class="dataclass">
<tr>
   <td class="left">
   车号
   </td>
   <td class="row">
    <%if rs("ch")<>"" then
     Response.Write server.HTMLEncode(rs("ch")&"")
     else
     Response.Write "&nbsp;"
    end if%>
   </td>
   <td class="left">
   维修日期
   </td>
   <td class="row">
    <%if rs("wxrq")<>"" then
     Response.Write server.HTMLEncode(rs("wxrq")&"")
     else
     Response.Write "&nbsp;"
    end if%>
   </td>
   
</tr>
<tr>
  <td class="left">
  备注
  </td>
  
   <td class="row" colspan=3>
    <%if rs("bz")<>"" then
     Response.Write server.HTMLEncode(rs("bz")&"")
     else
     Response.Write "&nbsp;"
    end if%>
   </td>
   
  
</tr>
<%do while not rs.eof %>
<tr>
<td class="left">修理项目</td>
<td>
   <td class="row">
    <%if rs("xlxm")<>"" then
     Response.Write server.HTMLEncode(rs("xlxm")&"")
     else
     Response.Write "&nbsp;"
    end if%>
   </td>
   <td class="left">
   维修费用
   </td>
   <td class="left">
    <%if rs("wxfy")<>"" then
     Response.Write server.HTMLEncode(rs("wxfy")&"")
     else
     Response.Write "&nbsp;"
    end if%>
   </td>
</td>
</tr>
<%rs.movenext
loop
%>
</table>
<%end if

end function
%>