moneyedit.asp

一个非常优秀的自动建站程序

<!--#include file="top.asp"-->
<!--#include file="../checkpost.asp"-->
<%
if Request("action")="action" then
if Trim(Request.Form("UserId"))="" or Trim(Request.Form("BuyLogMoney"))="" or Trim(Request.Form("BuyLogOther"))="" then response.redirect "error.asp?id=004"
set rs=server.createobject("adodb.recordset")
sql="select * from [Agent_User] where UserId='" & Trim(Request.Form("UserId")) & "'"
rs.open sql,conn,1,3
if rs.bof and rs.eof then
Response.Redirect("error.asp?id=011")
else
UserID=rs("ID")
Money=rs("Money") + Request.Form("BuyLogMoney")
rs("Money")=Money
rs.update
end if
rs.close
sql="select * from [BuyLog_List] where (BuyLogID is null)"
rs.open sql,conn,1,3
rs.addnew
rs("UserID")=UserID
rs("BuyLogSum")=Request.Form("BuyLogMoney")
rs("BuyLogMoney")=Money
rs("BuyLogDate")=now
rs("BuyLogOther")=Request.Form("BuyLogOther")
rs.update
rs.close
set rs=nothing
response.redirect "MoneyList.asp"
response.end
end if
%>
<table width="100%" align="center" bgcolor="#cccccc" border="0" cellpadding="2" cellspacing="1" style="font-size: 9pt; line-height: 200%">
<tr>
<td align=center bgcolor="#FFFFFF">

<br>
<table align=center width=500 cellpadding="2" cellspacing="1" bgcolor=#cccccc>
<form name=AddForm action="?action=action" method=post>
<tr>
<td bgcolor=ffffff align=center height=24 colspan="3">
财务操作
</td>
</tr>
<tr>
<td bgcolor=FFFFFF width=24%>
&nbsp;<font color=red>*</font> 用户账号:
</td>
<td bgcolor=FFFFFF width=26%>
<input name="UserId" style="width:120px" value="">
</td>
<td bgcolor=FFFFFF width=50%>
用户登录时所用ID号
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 账务金额:
</td>
<td bgcolor=FFFFFF>
<input name="BuyLogMoney" style="width:120px" value="0">
</td>
<td bgcolor=FFFFFF>
正数为增加金额，负数为减少金额。
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 备注说明:
</td>
<td bgcolor=FFFFFF colspan="2">
<input name="BuyLogOther" style="width:370px" value="系统管理员为用户允值">
</td>
</tr>
<tr>
<td bgcolor=FFFFFF align=center height=30 colspan="3">
<input type="submit" value=" 提交 " name="Submit" style="font-size: 9pt; COLOR: #ffffff; height:20px;background-color:#568ac2;" onMouseOver ="this.style.backgroundColor='#77A3D2'" onMouseOut ="this.style.backgroundColor='#568ac2'">
&nbsp;&nbsp;&nbsp;
<input type="reset" value=" 重 置 " name="B2" style="font-size: 9pt; COLOR: #ffffff; height:20px;background-color:#568ac2;" onMouseOver ="this.style.backgroundColor='#77A3D2'" onMouseOut ="this.style.backgroundColor='#568ac2'">
&nbsp;
</td>
</tr>
</form>
</table>
<br>
</td>
</tr>
</table>

</TD></TR></TABLE>
<!--#include file="foot.asp"-->