<!-- #include file="include/adovbs.inc" -->
<!-- #include file="include/dataconn.asp" -->
<!-- #include file="include/checksession.asp" -->
<%
MoneyAccount= request("MoneyAccount")
OldMoneyAccount= request("OldMoneyAccount")
WuliuNumber= trim(request("WuliuNumber"))
NewMoney=clng(MoneyAccount)+clng(OldMoneyAccount)
Hyid=Request("Hyid")

id=Request("id")
pageno=trim(Request("pageno"))
findcontent=trim(request("findcontent"))
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" href="include/e1.css" type="text/css">
</HEAD>
<BODY>
-------------------------专卖店充值中...............<br>
<%
set rs=nothing
set rs=server.CreateObject("adodb.recordset")
sql = "update WuliuInfo set MoneyAccount  = MoneyAccount+"&MoneyAccount&" where ID =" & ID

rs.Open sql,conn
set rs=nothing

set rs=server.CreateObject("adodb.recordset")
sql = "insert into WuliuEMoneyLog(WuliuNumber,Diection,OldMoney,AddMoney,NewMoney,AddMoneyTime,AddMoneyDate) values('"
sql =sql & WuliuNumber &"','存入',"&OldMoneyAccount&","&MoneyAccount&","&NewMoney&",'"&now()&"','"&thistoday&"')"
rs.Open sql,conn
set rs=nothing
%>
<br>------------------------<font color=red>专卖店充值成功!</font><br>
<script language="javascript">
	window.location.href="wuliumanok.asp?pageno=<% =pageno%>&findcontent=<%=findcontent%>"
	window.parent.frames(0).location.reload();
</script>
</BODY>
</HTML>