问题描述如下：

后台:

我先生成了线下充值卡 十张"50元卡",和生成一个50元面值在线充值卡 (名称写成"在线50元充值卡")

前台：

然后我用test001帐号登录前台会员中心

第一步:进入充值卡充值 我用一张线下充值卡先给test001充值了50元。

第二步:进入在线支付充值 选择"在线50元充值卡",然后选择使用余额支付。

你会发现test001帐号上已经立刻变成了100元了，然后你可以无限的重复第二步，你的余额将无限增加。

解决原理：

当线上充值卡是充值资金时，禁止使用余额付款即可。

打开user/user_payonline.asp, 173行左右，找到以下代码，并注意增加红色的代码判断即可。

Sub PayStep2()
     Dim UserCardID:UserCardID=KS.ChkClng(KS.G("UserCardID"))
     Dim Money:Money=KS.S("Money")
  Dim Title,PayType
  PayType=KS.ChkClng(KS.S("PayType"))
  
  If UserCardID<>0 Then
     Dim RS:Set RS=Conn.Execute("Select Top 1 Money,GroupName,ValidUnit From KS_UserCard Where ID=" & UserCardID)
     If Not RS.Eof Then
      Title=RS(1)
      Money=RS(0)
   if paytype=1 and RS(2)=3 then
    ks.die "<script>alert('本充值卡不支持余额购买！');history.back();</script>")
   end if
   RS.Close : Set RS=Nothing
     Else
      RS.Close : Set RS=Nothing
      Call KS.AlertHistory("出错啦！",-1)
   Exit Sub
     End If

请有使用此功能的用户，及时的按上面修改。

希望在新版本中更新过来。对了，难道又要等开学，繁忙了，才放新版本？！

帮顶了，求新版本

'--2012-7-23在线充值并余额支付，资金无限增加的bug 无风----------------------------------------------   

   if PayType=1  and rs(2)=3 Then

   KS.Die "<script>alert('对不起，本充值卡不支持余额购买!');history.back();</script>"

      End If

'--2012-7-23在线充值并余额支付，资金无限增加的bug 无风----------------------------------------------

给大家发个文字版的 方便复制粘贴

不错~~

o 测试下去

谢谢啦