mhsms.asp

快速建立自己的WEB短信平台

<%response.Charset="GB2312"%>
<!--#include file="../../inc/conn.asp"-->
<%
buyer_email=request("buyer_email")
buyer_id=request("buyer_id")
notify_time=request("notify_time")
out_trade_no=request("out_trade_no")
subject=request("subject")
total_fee=request("total_fee")
trade_no=request("trade_no")


nr=split(subject,"_") 
haha=nr(0) 
user=nr(1)
pay=nr(2)
tjpay=int(pay/10)
tjtotal_fee=total_fee/10

set rs=server.createobject("adodb.recordset")
sql="select * from es_smspay" 
rs.open sql,conn,1,3
rs.addnew
rs("es_user")=user
rs("es_pay")=pay
rs("es_buyer_email")=buyer_email
rs("es_buyer_id")=buyer_id
rs("es_notify_time")=notify_time
rs("es_out_trade_no")=out_trade_no
rs("es_subject")=subject
rs("es_total_fee")=total_fee
rs("es_trade_no")=trade_no
rs("es_zffs")=1
rs.update
rs.close


'从会员帐户增加费用
set rs=server.createobject("adodb.recordset")
sql="select * from es_smsuser where es_user='"&user&"'"
	rs.open sql,conn,1,1
	id=rs("es_id")
	tjid=rs("es_tjid")
	rs.update
	rs.close
	
conn.execute("update es_smsuser set es_pay=es_pay+"&pay&" where es_id="&id)

if tjid<>0 then
'取推荐用户名
set rs1=server.createobject("adodb.recordset")
sql1="select * from es_smsuser where es_id="&tjid&""
	rs1.open sql1,conn,1,1
	tjuser=rs1("es_user")
	rs.update
	rs.close



set rs=server.createobject("adodb.recordset")
sql="select * from es_smspay" 
rs.open sql,conn,1,3
rs.addnew
rs("es_user")=tjuser
rs("es_pay")=tjpay
rs("es_buyer_email")=""&user&"冲值赠送"
rs("es_buyer_id")="88888888"
rs("es_notify_time")=notify_time
rs("es_out_trade_no")=out_trade_no
rs("es_subject")="mhsms"
rs("es_total_fee")=tjtotal_fee
rs("es_trade_no")=trade_no
rs.update
rs.close

conn.execute("update es_smsuser set es_pay=es_pay+"&tjpay&" where es_id="&tjid)

end if

response.write "success"
  response.end

%>