<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% dim userid userid = getPassportUserId '=======学习卡充值====== if request("cmd")="recharge" and userid>0 then cardnum = request("cardnum") cardpass = request("cardpass") money = request("money") result = CutFee(userid,cardnum,cardpass,money) if result<>1 then msg = showcutinfo(result) else msg = "您成功充值"&money&"元" end if end if %>
<%=msg%> 立即充值
温馨提示：
1、多张学习卡可以连续充值；
2、充值的金额可以大于支付本次购买。
3、请在正规网点购买学习卡，以免受骗；
<% function alertError(msg) response.write "" end function function showcutinfo(cataid) select case cataid case 1 showcutinfo="成功" case 2 showcutinfo="参数传入错误" case 3 showcutinfo="学习卡名或密码错误" case 4 showcutinfo="用户名或密码错误" case 5 showcutinfo="卡中金额不足" case 6 showcutinfo="未知错误" case 7 showcutinfo="转入的用户不存在" case 8 showcutinfo="学习卡已冻结" case 9 showcutinfo="用户登陆超时" case 10 showcutinfo="转帐金额为空" case 11 showcutinfo="超出帐户最大限额" case 12 showcutinfo="该帐号已使用过免费卡" case 13 showcutinfo="老学员已享受多一折的优惠不能再使用免费卡" case 14 showcutinfo="学习卡已经过期" case else showcutinfo=cataid end select end function %>