changeuser.asp

. 缓存处理技术

<!-- #include file="sysconfig.asp" -->
<!--#include file="checkadmin.asp" -->

<%
Call CheckAdminFlag(TempAdminFlag,3)

Dim Uid,Act,Money,More
uid=lcase(CheckStr(Trim(rst("userid"))))
act=lcase(CheckStr(Trim(Request.form("act"))))
money=lcase(CheckStr(Trim(Request.form("usermoney"))))
More=CheckStr(Trim(Rst("more")))

if Act="yes" then
   if Not isNum(Money) then Call AlertInfo("充值点数必须为数字，请重新填写！","",0)
   if Not isNum(More) then Call AlertInfo("表单参数传递有误，请返回！","",0)
 if More=0 then
  set rs = server.createobject("adodb.recordset")
  rs.open "select regid from users where regusername='"&uid&"'",conn,1,3
  if rs.eof then
     response.write"<script language=javascript>alert('没有此找到用户！');history.back(-1);</script>"
     response.end
  else
    if money="" or money<0 then
	response.write"<script language=javascript>alert('你的充值必须大于0点');history.back(-1);</script>"
	response.end
    else
  	sql="update users set bbrmoney=bbrmoney+"&money&" where regid="&rs("regid")
  	conn.execute(sql)
  	response.write"<script language=javascript>alert('用户充值确认成功！');history.back(-1);</script>"
    end if
  end if
  rs.close
  set rs=nothing
 elseif more=1 then
  if Not isNum(Uid) then Call AlertInfo("出错了，批量充值参数传递错误，请返回！","",0)
  Call SplitUserCredit(Sys_UserCredit)
  if isArray(SysUserCredit) then
     Sql="Update Users Set BBRMoney=BBRmoney+"&Money&" where credit>="& SysUserCredit(Uid)
     Conn.ExeCute(Sql)
  else
    Call AlertInfo("系统用户积分等级划分值设置有误，请重新设置为6个等级！","",0)
  End if
  if Err then
     Response.Write Err.Description
  else
     Call AlertInfo("批量充值成功！","",0)
  end if
 else
  Call AlertInfo("表单参数传递有误，请返回！","",0)
 end if
end if

With ReSponse
  .Write"<table width=98% border=0 align=center cellpadding=0 cellspacing=0>"& vbcrlf
  .Write" <tr> "& vbcrlf
  .Write"	 <td colspan=2 width=100% align=center height=2 class=menutdbg_1></td> "& vbcrlf
  .Write"	</tr> "& vbcrlf
  .Write" <tr height=32> "& vbcrlf
  .Write"  <td width=100% colspan=2 background=""../Skins/"& SKINS_FOLDER &"/GrayBg.gif"">&nbsp;<img src=""../Skins/"& Skins_Folder &"/Go.gif"" border=""0""><a href=""help.asp"" class=menuColor_1><b>后台管理</b></a>&gt;&gt;&gt; <a href=""###"" class=menuColor_1><b>用户管理</b></a>&gt;&gt;&gt; <a href=""ChangeUser.asp"" class=menuColor_1><b>虚拟币充值平台</b></a> </td>"& vbcrlf
  .Write"  </tr>"& vbcrlf
  .Write"</table>" & Vbcrlf
End With

%>
<!--#include file="Vir_CnbbrPay.asp" -->