carfee_statistics.asp

来自「OFFICE办公自动化」· ASP 代码 · 共 225 行

ASP
225 行
字号 
<%
'OA 表单生成器1.0
'功能：查询车辆基本信息
%>

<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->

<%
'response.buffer=false
'------------------------------------------------设置参数
LoginID=trim(Session("LoginID")) : if LoginID="" then LoginID=0 '当前用户ID
'------------------------------------------------
%>

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/main.css" type=text/css>
<title>main</title>
<script src="../js/Popup.js"></script>
</head>


<body topmargin="10" leftmargin="10">
<div class="noprint">
<table border=0 cellspacing="0" cellpadding="0">
  <tr>
    <td><img border="0" src="../images/icon_menu.gif" align="left">费用统计 &nbsp;</td>
  </tr>
</table>

<hr width="100%" size=1 color="#000000">
</div>
<%if request.form("tj_subed")="true" then%>
	<%
	szdw=Request("szdw")'车辆所在单位
	tjrq=Request("tjrq")'统计日期
	tjrq_end=Request("tjrq_end")'统计日期(结束)
	'----------------------------------------------------------
	Search=""
	if tjrq<>""	then	Search = Search & "and rq>='" & cdate(tjrq) & "'"
	if tjrq_end<>""	then	Search = Search & "and rq<='" & cdate(tjrq_end) & "'"
	'----------------------------------------------------------
	set rs=Server.CreateObject("ADODB.RecordSet")
	sql="SELECT *,(rl_je+xc_je+tc_je+gq_je+gl_je+yl_je+bx_je+ns_je+wx_je+qt_je) AS sum_je FROM("_
	   &"SELECT c.id,c.szdw,c.bh,c.cllx,c.clpp,"_
	   &"(SELECT CASE WHEN SUM(sl) IS NULL THEN 0 else SUM(sl) END FROM tbioaCarFee_rl WHERE cid = c.id "&Search&") AS rl_sl,"_
	   &"(SELECT CASE WHEN SUM(je) IS NULL THEN 0 else SUM(je) END FROM tbioaCarFee_rl WHERE cid = c.id "&Search&") AS rl_je,"_
	   &"(SELECT CASE WHEN SUM(sl) IS NULL THEN 0 else SUM(sl) END FROM tbioaCarFee_xc WHERE cid = c.id "&Search&") AS xc_sl,"_
	   &"(SELECT CASE WHEN SUM(je) IS NULL THEN 0 else SUM(je) END FROM tbioaCarFee_xc WHERE cid = c.id "&Search&") AS xc_je,"_
	   &"(SELECT CASE WHEN SUM(sl) IS NULL THEN 0 else SUM(sl) END FROM tbioaCarFee_tc WHERE cid = c.id "&Search&") AS tc_sl,"_
	   &"(SELECT CASE WHEN SUM(je) IS NULL THEN 0 else SUM(je) END FROM tbioaCarFee_tc WHERE cid = c.id "&Search&") AS tc_je,"_
	   &"(SELECT CASE WHEN SUM(je) IS NULL THEN 0 else SUM(je) END FROM tbioaCarFee_gq WHERE cid = c.id "&Search&") AS gq_je,"_
	   &"(SELECT CASE WHEN SUM(je) IS NULL THEN 0 else SUM(je) END FROM tbioaCarFee_gl WHERE cid = c.id "&Search&") AS gl_je,"_
	   &"(SELECT CASE WHEN SUM(je) IS NULL THEN 0 else SUM(je) END FROM tbioaCarFee_yl WHERE cid = c.id "&Search&") AS yl_je,"_
	   &"(SELECT CASE WHEN SUM(je) IS NULL THEN 0 else SUM(je) END FROM tbioaCarFee_bx WHERE cid = c.id "&Search&") AS bx_je,"_
	   &"(SELECT CASE WHEN SUM(je) IS NULL THEN 0 else SUM(je) END FROM tbioaCarFee_ns WHERE cid = c.id "&Search&") AS ns_je,"_
	   &"(SELECT CASE WHEN SUM(je) IS NULL THEN 0 else SUM(je) END FROM tbioaCarFee_wx WHERE cid = c.id "&Search&") AS wx_je,"_
	   &"(SELECT CASE WHEN SUM(je) IS NULL THEN 0 else SUM(je) END FROM tbioaCarFee_qt WHERE cid = c.id "&Search&") AS qt_je,"_
	   &"(SELECT CASE WHEN MAX(lc) IS NULL THEN 0 else MAX(lc) END FROM tbioaCarMileage WHERE cid = c.id "&Search&") AS max_lc,"_
	   &"(SELECT CASE WHEN MIN(lc) IS NULL THEN 0 else MIN(lc) END FROM tbioaCarMileage WHERE cid = c.id "&Search&") AS min_lc"_
	   &" FROM tbioaCarBase c INNER JOIN tbioaDepartment a INNER JOIN FunDepartment("&szdw&") b ON a.ID = b.id ON a.ID = c.szdw) CarFee"_
	   &" ORDER BY szdw,id DESC"
	'response.write sql
	rs.open sql,oConn,1,1
	'----------------------------------------------------------
	%>
	<table border="0" cellspacing='0' cellpadding='4' width="100%" class="noprint" style="border-bottom: 1 dotted #808080">
	  <tr>
	    <td nowrap>
	      <img src="../images/icon_title.gif" align="absMiddle">
				车辆所在单位：<%=HtmlOut(GetTableValue("tbioaDepartment","Name","id",szdw))%>　
				统计日期：<%
				if tjrq<>"" and tjrq_end<>"" then response.write tjrq&" 至 "&tjrq_end
				if tjrq<>"" and tjrq_end="" then response.write tjrq&" 以后"
				if tjrq="" and tjrq_end<>"" then response.write tjrq_end&" 以前"
				if tjrq="" and tjrq_end="" then response.write "不限"
				%>
	    </td>
	    <td width="85" nowrap>
	      <object id="WebBrowser" width=0 height=0 classid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2" > </object>
	      <img src="../images/PageSetup.gif" align="absMiddle"> <a href="#" onClick="document.all.WebBrowser.ExecWB(8,1);return false">
	        页面设置</a>
	    </td>
	    <td width="85" nowrap>
	      <img src="../images/print.gif" align="absMiddle"> <a href="#" onClick="document.all.WebBrowser.ExecWB(7,1);return false">
	        打印预览</a>
	    </td>
	    <td width="85" nowrap>
	      <img src="../images/icon_return.gif" align="absMiddle"> <a href="javascript:history.back()">
	        重新统计</a>
	    </td>
	  </tr>
	</table><br>
	<div class="noscreen">
		车辆所在单位：<%=HtmlOut(GetTableValue("tbioaDepartment","Name","id",szdw))%>　
		统计日期：<%
		if tjrq<>"" and tjrq_end<>"" then response.write tjrq&" 至 "&tjrq_end
		if tjrq<>"" and tjrq_end="" then response.write tjrq&" 以后"
		if tjrq="" and tjrq_end<>"" then response.write tjrq_end&" 以前"
		if tjrq="" and tjrq_end="" then response.write "不限"
		%>
	</div>
	<table width="100%" cellspacing="1" cellpadding="2" class="tab">
	  <tr>
	  <td class="tdTop3" nowrap>使用单位</td>
		<td class="tdTop3" width="50" nowrap>车牌号</td>
		<td class="tdTop3" nowrap>燃料费</td>
		<td class="tdTop3" nowrap>洗车费</td>
		<td class="tdTop3" nowrap>停车费</td>
		<td class="tdTop3" nowrap>过桥费</td>
		<td class="tdTop3" nowrap>过路费</td>
		<td class="tdTop3" nowrap>养路费</td>
		<td class="tdTop3" nowrap>保险费</td>
		<td class="tdTop3" nowrap>年审费</td>
		<td class="tdTop3" nowrap>维修费</td>
		<td class="tdTop3" nowrap>其他费用</td>
		<td class="tdTop3" nowrap>合计</td>
		<td class="tdTop3" nowrap>里程</td>
	  </tr>
	<%rl_je=0:xc_je=0:tc_je=0:gq_je=0:gl_je=0:yl_je=0:bx_je=0:ns_je=0:wx_je=0:qt_je=0:sum_fee=0
		for i = 0 to rs.RecordCount-1
	   If rs.EOF Then Exit For
	   if i mod 2 = 0 then td_class="td1" else td_class="td2"
	%>
	  <tr title="车型：<%=HtmlOut(rs("cllx"))%>　品牌：<%=HtmlOut(rs("clpp"))%>">
		<td class="<%=td_class%>"><%=HtmlOut(GetTableValue("tbioaDepartment","Name","id",GetTableValue("tbioaDepartment","ParentID","id",rs("szdw"))))%>&nbsp;<%=HtmlOut(GetTableValue("tbioaDepartment","Name","id",rs("szdw")))%></td>
		<td align="center" class="<%=td_class%>"><a href="CarBase_show.asp?cid=<%=rs("id")%>" target="_blank"><%=rs("bh")%></a></td>
		<td align="right" class="<%=td_class%>" title="<%=rs("rl_sl")%>(升)"><a href="CarFee_rl_list.asp?cid=<%=rs("id")%>" target="_blank"><%=rs("rl_je")%></a></td><%rl_je=rl_je+rs("rl_je")%>
		<td align="right" class="<%=td_class%>" title="<%=rs("xc_sl")%>(次)"><a href="CarFee_xc_list.asp?cid=<%=rs("id")%>" target="_blank"><%=rs("xc_je")%></a></td><%xc_je=xc_je+rs("xc_je")%>
		<td align="right" class="<%=td_class%>" title="<%=rs("tc_sl")%>(次)"><a href="CarFee_tc_list.asp?cid=<%=rs("id")%>" target="_blank"><%=rs("tc_je")%></a></td><%tc_je=tc_je+rs("tc_je")%>
		<td align="right" class="<%=td_class%>"><a href="CarFee_gq_list.asp?cid=<%=rs("id")%>" target="_blank"><%=rs("gq_je")%></a></td><%gq_je=gq_je+rs("gq_je")%>
		<td align="right" class="<%=td_class%>"><a href="CarFee_gl_list.asp?cid=<%=rs("id")%>" target="_blank"><%=rs("gl_je")%></a></td><%gl_je=gl_je+rs("gl_je")%>
		<td align="right" class="<%=td_class%>"><a href="CarFee_yl_list.asp?cid=<%=rs("id")%>" target="_blank"><%=rs("yl_je")%></a></td><%yl_je=yl_je+rs("yl_je")%>
		<td align="right" class="<%=td_class%>"><a href="CarFee_bx_list.asp?cid=<%=rs("id")%>" target="_blank"><%=rs("bx_je")%></a></td><%bx_je=bx_je+rs("bx_je")%>
		<td align="right" class="<%=td_class%>"><a href="CarFee_ns_list.asp?cid=<%=rs("id")%>" target="_blank"><%=rs("ns_je")%></a></td><%ns_je=ns_je+rs("ns_je")%>
		<td align="right" class="<%=td_class%>"><a href="CarFee_wx_list.asp?cid=<%=rs("id")%>" target="_blank"><%=rs("wx_je")%></a></td><%wx_je=wx_je+rs("wx_je")%>
		<td align="right" class="<%=td_class%>"><a href="CarFee_qt_list.asp?cid=<%=rs("id")%>" target="_blank"><%=rs("qt_je")%></a></td><%qt_je=qt_je+rs("qt_je")%>
		<td align="right" class="<%=td_class%>"><%=rs("sum_je")%></td><%sum_fee=sum_fee+rs("sum_je")%>
		<td align="right" class="<%=td_class%>"><%lc=cint(rs("max_lc"))-cint(rs("min_lc"))%><a href="CarMileage_list.asp?cid=<%=rs("id")%>" target="_blank"><%=lc%></a></td><%sum_lc=sum_lc+lc%>
		</tr>
	<%
	rs.MoveNext
	next
	td_class="td6"
	%>
	  <tr>
		<td class="<%=td_class%>">合计</td>
		<td align="center" class="<%=td_class%>">--</td>
		<td align="right" class="<%=td_class%>"><%=rl_je%></td>
		<td align="right" class="<%=td_class%>"><%=xc_je%></td>
		<td align="right" class="<%=td_class%>"><%=tc_je%></td>
		<td align="right" class="<%=td_class%>"><%=gq_je%></td>
		<td align="right" class="<%=td_class%>"><%=gl_je%></td>
		<td align="right" class="<%=td_class%>"><%=yl_je%></td>
		<td align="right" class="<%=td_class%>"><%=bx_je%></td>
		<td align="right" class="<%=td_class%>"><%=ns_je%></td>
		<td align="right" class="<%=td_class%>"><%=wx_je%></td>
		<td align="right" class="<%=td_class%>"><%=qt_je%></td>
		<td align="right" class="<%=td_class%>"><%=sum_fee%></td>
		<td align="right" class="<%=td_class%>"><%=sum_lc%></td>
		</tr>
	</table>
<%else%>
<br>
<div align="center">
<table width="500" cellspacing="1" cellpadding="2" class="tab">
  <tr>
    <td width="100%" class="tdTop">
      <table border="0" width="100%" cellspacing="0" cellpadding="0">
        <tr>
          <td class="tdTop">
            <p align="left"><img border="0" src="../images/icon_title.gif" align="left">车辆费用统计</p>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td width="25%" class="td1">
    <form name="eventfrm" method="POST" action="">
    	<input type=hidden name="tj_subed" value="true">
      <table border="0" width="100%" cellspacing="10" cellpadding="0">
        <tr>
          <td width="130" align="right" valign="top" nowrap>车辆所在单位：</td>
          <td width="370" nowrap>
          	<select size="1" name="szdw" class="input">
          	  <option value="<%=Session("DepID")%>" <%if show_area=Session("DepID") then response.write"selected"%>><%=GetTableValue("tbioaDepartment","Name","id",Session("DepID"))%></option>
          	  <%Call pOptions("tbioaDepartment","Name",Session("DepID"),"","·")%>
          	</select>
          </td>
        </tr>
        <tr>
          <td width="130" align="right" valign="top" nowrap>统计日期：</td>
          <td width="370" nowrap><input TYPE="TEXT" SIZE="12" MAXLENGTH="12" NAME="tjrq" class="input" readonly> <a href=# title="选择日期" onClick="fPopUpDlg('../js/calendar.htm', document.eventfrm.tjrq, 'winpop', 234, 261);return false"><img src="../images/datetime.gif" border=0></a> 至
	<input TYPE="TEXT" SIZE="12" MAXLENGTH="12" NAME="tjrq_end" class="input" readonly> <a href=# title="选择日期" onClick="fPopUpDlg('../js/calendar.htm', document.eventfrm.tjrq_end, 'winpop', 234, 261);return false"><img src="../images/datetime.gif" border=0></a>
          </td>
        </tr>
        <tr>
          <td width="100%" colspan="2">
           <input type="submit" value="开始统计" class="button0" onmouseout=className="button0" onmouseover=className="button1">　<input type="reset" value="全部重写" class="button0" onmouseout=className="button0" onmouseover=className="button1">
          </td>
        </tr>
      </table>
    </form>
    </td>
  </tr>
  <tr>
    <td width="25%" class="tdBottom">
    </td>
  </tr>
</table>
</div>
<%end if%>
</body>

</html>


<%'释放对象变量
oConn.close
%>

carfee_statistics.asp - 源码说明

本页面展示了「OFFICE办公自动化」中的 carfee_statistics.asp 源码文件，采用 ASP 编程语言编写，共 225 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与Office自动化相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?