关于充值时的一个函数问题
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 id from T_users where username='"&uid&"'",conn,1,3
if rs.eof then
response.write"<script language=javascript>alert('没有此找到用户！');history.back(-1);</script>"
response.end
else
if money="" then
response.write"<script language=javascript>alert('你的充值不合理');history.back(-1);</script>"
response.end
else
sql="update T_users set MayGo_Shopmoney=MayGo_Shopmoney+"&money&" where id="&rs("id")
conn.execute(sql)
response.write"<script language=javascript>alert('用户充值确认成功！');history.back(-1);</script>"
end if
end if
rs.close
