pay_save.asp

本系统旨在帮助您快速建立自己的WEB短信平台

<!--#include file="../inc/conn.asp"-->
<%
id=session("id")
pay=int(request("pay"))
zruser=trim(request("zruser"))

if zruser="" then
	response.write "<script>alert('请输入转入用户');history.go(-1);</Script>"
	Response.End 
elseif pay="" then
	response.write "<script>alert('请输入转帐金额');history.go(-1);</Script>"
	Response.End 

	
else

set rs=server.createobject("adodb.recordset")
sql="select * from es_smsuser where es_user='"&zruser&"'"
	rs.open sql,conn,1,1
	zrid=rs("es_id")
	if rs.eof and rs.bof then                     
	response.write "<script>alert('转入用户名错误,请重新输入');history.go(-1);</Script>"
	Response.End 
end if


set rs=server.createobject("adodb.recordset")
sql="select * from es_smsuser where es_id="&id&""
	rs.open sql,conn,1,1
	if rs("es_pay")<pay then                     
	response.write "<script>alert('您的余额不足,请重新输入');history.go(-1);</Script>"
	Response.End 
end if

'从会员帐户扣除费用
conn.execute("update es_smsuser set es_pay=es_pay-"&pay&" where es_id="&id)
'从会员帐户增加费用
conn.execute("update es_smsuser set es_pay=es_pay+"&pay&" where es_id="&zrid)

response.write"<script>alert('转帐成功');window.open('pay.asp','_self');</script>"
response.end
end if
%>