📄 fee_manage.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>
<p> </p>
<form name="form1" method="post" action="fee_manage.asp?w=us">
<div align="center">
<p>请输入查询的用户名：
<input name="userid" type="text" id="userid" size="20">
<input type="submit" name="Submit" value="查询">
</p>
</div>
</form>
<p> </p>
<%
if Trim(Request("i"))="save" then
sql="update user set je=je"&request("select")&request("je")&" where userid='"&request("userid")&"'"
conn.execute (sql)
rs.open "select * from user where userid='"&request("userid")&"'"
if not rs.eof then
zje1=rs("je")
else
zje1=0
end if
rs.close
sql="insert into memo(userid,je,body,log,zje) values ('"&request("userid")&"',"&request("select")&request("je")&",'管理员手工操作','入账',"&zje1&")"
conn.execute(sql)
%>
<script language="VBScript" type="text/VBScript">
msgbox "操作成功"
</script>
<%
end if
if Trim(Request("w"))="us" then
rs.open "select * from user where userid='"&Trim(Request.Form("userid"))&"'",conn,1,1
if not rs.eof then
%>
<form name="form2" method="post" action="fee_manage.asp?i=save">
<table width="51%" height="103" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="23%">用户名：</td>
<td width="77%"><%= rs("userid") %>
<input name="w" type="hidden" id="w" value="us">
<input name="userid" type="hidden" id="userid" value="<%=rs("userid")%>"></td>
</tr>
<tr>
<td>当前金额：</td>
<td><font color="#FF0000"><%= rs("je") %> 元</font></td>
</tr>
<tr>
<td>入账类型：</td>
<td><select name="select">
<option value="+" selected>增加款项</option>
<option value="-">减少款项</option>
</select></td>
</tr>
<tr>
<td>金额：</td>
<td><input name="je" type="text" id="je" size="15">
<font color="#FF0000">只能为数字</font></td>
</tr>
<tr>
<td height="22"> </td>
<td><input type="submit" name="Submit2" value="-确认-"></td>
</tr>
</table>
</form>
<%
else
Response.Write("没有找到相应的记录")
end if
rs.close
end if
%>
<p> </p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -