<!--#include file="../inc/Bll.asp"-->
<!--#include file="../inc/Constant.asp"-->
<!--#include file="../inc/Md5.asp"-->
<!--#include file="../inc/App.asp"-->

<%
Auto_Login2()

if Request.QueryString("ac")="FlyMsg" then 
	RS_End
	dim RGuid,k,Re,num,storemoney
	if Request.QueryString("guid")="" then REND
	if not IsNumeric(Request.QueryString("guid")) then REND
	RGuid = Request.QueryString("guid")
	if Session(Session_UserID_Arg)="" then RW "remsg='操作超时请重新登录！';":Rend
	num=Clng(SysConfig("i_Sys_Config_FlyMsgMoney"))
	RS_End
	RS.Open "select * from [i_User_Info] where [i_User_ID]="&Session(Session_UserID_Arg), DB_CONN , 1 , 3
	storemoney=Clng(RS("i_User_Money"))
	if storemoney>num then
		RS("i_User_Money")=storemoney-num
		RS("i_User_PayNum")=storemoney+num
		RS.Update()
		RecordConsume num,0,"发送飞屏信息，支出"&num,Session(Session_UserID_Arg)
		RW "remsg=true;"
	else
		RW "remsg='余额不足，请充值！';"
	end if
	RS_End
	Rend
end if

%>