carns_tip.asp
来自「OFFICE办公自动化」· ASP 代码 · 共 159 行
ASP
159 行
<%
'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">车辆年审提醒 </td>
</tr>
</table>
<hr width="100%" size=1 color="#000000">
</div>
<%if request.form("tx_subed")="true" then%>
<%
szdw=Request("szdw")'车辆所在单位
'----------------------------------------------------------
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 c.id,c.szdw,c.bh,c.cllx,c.clpp,"_
&"(SELECT Max(rq) FROM tbioaCarFee_ns WHERE cid = c.id "&Search&") AS max_rq"_
&" FROM tbioaCarBase c INNER JOIN tbioaDepartment a INNER JOIN FunDepartment("&szdw&") b ON a.ID = b.id ON a.ID = c.szdw ORDER BY max_rq,szdw,c.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))%>
</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))%>
</div>
<table width="100%" cellspacing="1" cellpadding="2" class="tab">
<tr>
<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"
nextdate=dateadd("yyyy",1,rs("max_rq"))
if nextdate<date then td_class="td6"
%>
<tr>
<td class="<%=td_class%>"><%=HtmlOut(GetTableValue("tbioaDepartment","Name","id",GetTableValue("tbioaDepartment","ParentID","id",rs("szdw"))))%> <%=HtmlOut(GetTableValue("tbioaDepartment","Name","id",rs("szdw")))%></td>
<td align="center" class="<%=td_class%>"><%=HtmlOut(rs("cllx"))%></td>
<td align="center" class="<%=td_class%>"><%=HtmlOut(rs("clpp"))%></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%>"><a href="CarFee_ns_list.asp?cid=<%=rs("id")%>" target="_blank"><%=rs("max_rq")%></a></td>
<td align="right" class="<%=td_class%>"><%if rs("max_rq")<>"" then response.write nextdate%></td>
</tr>
<%
rs.MoveNext
next
td_class="td6"
%>
</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="tx_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="100%" colspan="2">
<input type="submit" 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
%> ⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?