📄 client_fee_show.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="Client_menu.asp"-->
<%
'response.buffer=false
'------------------------------------------------设置参数
LoginID=trim(Session("LoginID")) : if LoginID="" then LoginID=0 '当前用户ID
cid=clng(request("cid")) '记录ID
table="tbioaClient_Fee" '表名
'------------------------------------------------
'------------------------------------------------删除记录
if request("mod")="dele" then
id=request("id") : if id="" then id=0 '删除记录ID
oConn.Execute "delete from "&table&" where id="&id
response.write "<script>alert('记录成功删除!');history.back()</script>"
response.end
end if
'------------------------------------------------
'------------------------------------------------取记录
'取要查看的记录 （返回rs对象）
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from " & table & " where cid="&cid&" order by ID desc"
rs.open sql,oConn,1,1
'------------------------------------------------
%>
<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>
</head>
<body topmargin="10" leftmargin="10">
<%call ClientMenu("规费缴纳记录")%>
<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="Client_Fee_edit.asp?cid=<%=cid%>">添加记录</a>
</td>
</tr>
</table>
<%if rs.eof then%>
<center>暂无相关信息！</center>
<%response.end
end if%>
<table width="100%" cellspacing="1" cellpadding="2" class="tab">
<tr>
<td class="td3" nowrap>缴费日期</td>
<td class="td3" nowrap>缴费项目</td>
<td class="td3" nowrap>缴费金额</td>
<td class="td3" nowrap>起始日期</td>
<td class="td3" nowrap>截止日期</td>
<td class="td3" nowrap>经办人</td>
<td class="td3" nowrap>备注</td>
<td class="tdTop3np" colspan="2" nowrap>相关操作</td>
</tr>
<%for i = 0 to rs.RecordCount
If rs.EOF Then Exit For
if i mod 2 = 0 then td_class="td1" else td_class="td2"
%>
<tr title="经办人：<%=HtmlOut(getusername(rs("userid")))%>">
<td class="<%=td_class%>"><%=HtmlOut(rs("jfrq"))%></td>
<td class="<%=td_class%>"><%=HtmlOut(rs("jfxm"))%></td>
<td class="<%=td_class%>"><%=HtmlOut(rs("jfje"))%></td>
<td class="<%=td_class%>"><%=HtmlOut(rs("qsrq"))%></td>
<td class="<%=td_class%>"><%=HtmlOut(rs("zzrq"))%></td>
<td class="<%=td_class%>"><%=HtmlOut(rs("jbr"))%></td>
<td class="<%=td_class%>"><%=HtmlOut(rs("remark"))%></td>
<%if rs("UserID")=cint(LoginID) or returnqx(qx_zhyw) then%>
<td class="<%=td_class%>np" width="50" class="noprint" nowrap>
<img border="0" src="../images/icon_edit.gif" align="left">
<a href="Client_Fee_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>
<%else%>
<td class="<%=td_class%>" width="50" align="center" nowrap>
--
</td>
<td class="<%=td_class%>" width="50" align="center" nowrap>
--
</td>
<%end if%>
</tr>
<%
rs.MoveNext
next
%>
</table>
</body>
</html>
<%'释放对象变量
rs.close
oConn.close
%> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -