📄 fee_success.asp
字号:
<!--#include file="conn.asp" -->
<!--#include file="admin_dn.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<link href="image/css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="5" topmargin="5">
<p>用户财务入账记录</p>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1">
<tr bgcolor="#EAEAEA">
<td width="13%" height="13"><div align="center">申请人</div></td>
<td width="18%"><div align="center">入账金额</div></td>
<td width="20%"><div align="center">汇款时间</div></td>
<td width="28%"><div align="center">汇款方式</div></td>
<td width="11%"><div align="center">确认生效</div></td>
<td width="10%"><div align="center">删除记录</div></td>
</tr>
<% if Trim(Request.QueryString("w"))="save" then
je1=Request("je")
id=Request("id")
sql="update log set ss=true where id="&id
conn.execute(sql)
sql="update user set je=je+"&je1&" where userid='"&request("us")&"'"
conn.execute(sql)
rs.open "select * from user where userid='"&request("us")&"'"
if not rs.eof then
zje=rs("je")
end if
rs.close
sql="insert into memo(userid,je,body,log,zje) values ('"&request("us")&"',"&je1&",'财务入账确认','入账确认',"&zje&")"
conn.execute(sql)
%>
<script language="VBScript" type="text/VBScript">
msgbox "入账确让成功 请不要重复刷新本页"
</script>
<%
end if
if Trim(Request.QueryString("w"))="del" then
sql="delete from log where id="&Request("id")
conn.execute(sql)
%>
<script language="VBScript" type="text/VBScript">
msgbox "删除记录成功"
</script>
<%
end if
sql="select * from log where ll='入账' order by not ss,id desc"
rs.open sql,conn,1,1
while not rs.eof
%>
<tr>
<td><div align="center"><%= rs("userid") %></div></td>
<td><div align="center"><font color="#FF0000">￥</font> <%= rs("je") %></div></td>
<td><div align="center"><%= rs("dat") %></div></td>
<td><%= rs("fs") %></td>
<td><div align="center">
<%
if rs("ss") then
%>
<font color="#FF0000">已确认</font>
<% else %>
<a href="fee_success.asp?w=save&id=<%=rs("id")%>&je=<%=rs("je")%>&us=<%=rs("userid")%>"><img src="image/3.jpg" width="16" height="16" border="0"></a>
<% end if %>
</div></td>
<td><div align="center"><a href="fee_success.asp?w=del&id=<%=rs("id")%>"><img src="image/4.jpg" width="16" height="16" border="0"></a></div></td>
</tr>
<% rs.movenext
wend
rs.close %>
<tr>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
<hr width="95%" size="1">
<p><font color="#FF0000">注：</font>这里显示的是用户在汇款以后，到控制面板里提交的交费申请，请查询您的账号后再决定入账。。你点确认生效后，系统会自动在申请人的账号上加上申请人提交的金额。对于以经确认的金额将不能再次提交。。</p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -