📄 carfee_yl_list.asp
字号:
<%
'OA 表单生成器1.0
'功能：工作经历情况列表
'参数：request("page")=int #当前页码; request.form("Search")=chr #上次查询条件
%>
<!--#include file="../inc/NoCatch.asp"-->
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<!--#include file="Car_menu.asp"-->
<%
'response.buffer=false
'------------------------------------------------设置参数
LoginID=trim(Session("LoginID")) : if LoginID="" then LoginID=0 '当前用户ID
cid=cint(request("cid")) '记录ID
'------------------------------------------------'------------------------------------------------删除记录
if request("mod")="dele" then
id=request("id") : if id="" then id=0 '删除记录ID
oConn.Execute "delete from tbioaCarFee_yl where id="&id
response.write "<script>alert('记录成功删除!');history.back()</script>"
response.end
end if
'------------------------------------------------
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/main.css" type=text/css>
<title>车辆基本信息详细信息</title>
</head>
<body topmargin="10" leftmargin="10">
<%call CarMenu("养路费")%>
<%
'------------------------------------------------取工作经历情况记录
table="tbioaCarFee_yl" '表名
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from " & table & " where cid='" & cid & "' order by ID desc"
rs.open sql,oConn,1,1
'--------------------------
%>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td>
<p align="left"><img border="0" src="../images/icon_title.gif" align="left">养路费：</p>
</td>
<td width="90" class="noprint">
<p align="left"><img border="0" src="../images/icon_save.gif" align="left">
<a href="CarFee_yl_edit.asp?cid=<%=cid%>" class="linkTop">添加记录</a>
</td>
</tr>
</table>
<%if rs.eof then%>
<center>暂无相关信息！</center>
<%else%>
<table width="100%" cellspacing="1" cellpadding="2" class="tab">
<tr>
<td class="tdTop3" width="55" nowrap>车牌号</td>
<td class="tdTop3" width="70" nowrap>日期</td>
<td class="tdTop3" width="70" nowrap>金额(元)</td>
<td class="tdTop3" width="70" nowrap>经办人</td>
<td class="tdTop3" nowrap>备注</td>
<td class="tdTop3np" colspan="2" nowrap>相关操作</td>
</tr>
<%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>
<td class="<%=td_class%>"><%=htmlout(GetTableValue("tbioaCarBase","bh","id",rs("cid")))%></td>
<td class="<%=td_class%>"><%=HtmlOut(rs("rq"))%></td>
<td class="<%=td_class%>"><%=HtmlOut(rs("je"))%></td>
<td class="<%=td_class%>"><%=HtmlOut(rs("jbr"))%></td>
<td class="<%=td_class%>"><%=HtmlOut(rs("bz"))%></td>
<td class="<%=td_class%>np" width="50" class="noprint" nowrap>
<img border="0" src="../images/icon_edit.gif" align="left">
<a href="CarFee_yl_edit.asp?cid=<%=cid%>&id=<%=rs("ID")%>">编辑</a>
</td>
<td class="<%=td_class%>np" width="50" nowrap>
<img border="0" src="../images/icon_dele.gif" align="left">
<a href="?mod=dele&id=<%=rs("ID")%>" onClick="return confirm('确定要删除该条记录吗？\n该操作不可恢复！')">删除</a>
</td>
</tr>
<%
rs.MoveNext
next
%>
</table>
<%end if%>
</body>
</html>
<%'释放对象变量
rs.close
oConn.close
%> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -