?? fee_manage.asp
字號(hào):
<!--#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>請(qǐng)輸入查詢的用戶名：
<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>當(dāng)前金額：</td>
<td><font color="#FF0000"><%= rs("je") %> 元</font></td>
</tr>
<tr>
<td>入賬類型：</td>
<td><select name="select">
<option value="+" selected>增加款項(xiàng)</option>
<option value="-">減少款項(xiàng)</option>
</select></td>
</tr>
<tr>
<td>金額：</td>
<td><input name="je" type="text" id="je" size="15">
<font color="#FF0000">只能為數(shù)字</font></td>
</tr>
<tr>
<td height="22"> </td>
<td><input type="submit" name="Submit2" value="-確認(rèn)-"></td>
</tr>
</table>
</form>
<%
else
Response.Write("沒(méi)有找到相應(yīng)的記錄")
end if
rs.close
end if
%>
<p> </p>
</body>
</html>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -