|
主题:[讨论]KesionCMS/Eshop X1.0.141206 版本BUG收集专用帖 [收藏主题] | 转到: |
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
[url=]当优惠券金额大于订单金额时,出理负数,并把券金额给用光了。。
正常应该是这样子 应付:0元 已付 0元 然后券应该还有47.81元剩余,然后订单不应该是未付款状态? 当使用了优惠券以后,抵扣了部份或全部订单金额时,没有做支付这步,然后把订单删除掉,没有把这个订单扣掉的券的金额还原回去,只是简单的把那个券的记录[p=24, null, left]UseFlag=0和OrderID='' Conn.execute("Update KS_ShopCouponUser Set UseFlag=0,OrderID='' Where ID=" & rs(1)) 个人感觉商城系统的订单状态那些东西设计得很混乱... 还有优惠券分发给用户后,如果用户下单时抵扣了部份订单金额时,在订单未被取消、订单没有签收、券未到期等情况下,是不能删除券的记录,如果删除了券及分发记录的话,那么当用户取消订单等情况下,就不有办法还原券的金额等信息 |
|
支持(0) | 反对(0) 顶端 底部 |
我刚下载了KesionEshop X1.0.150227Free(utf-8)
然后发现这个问题,kesion_cls/Kesion.CommonCls.asp 行178 InitialConfig() 这个是不是有问题,怎么这么大的数组? ubound(Setting) = 11497 11497 64 104 94 99 94 下面那些一长串的"^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^"目的是干什么的?难道是为了怕数组达不到指定长度,下标越界的目的吗? Public Sub InitialConfig() If not IsObject(Application(SiteSN&"_Config")) then GetSetting Setting=Split(Replace(Application(SiteSN&"_Config").documentElement.selectSingleNode("config/@setting").text&"^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^","$br$",vbcrlf),"^%^") TbSetting=Split(Replace(Application(SiteSN&"_Config").documentElement.selectSingleNode("config/@tbsetting").text&"^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^","$br$",vbcrlf),"^%^") SSetting=Split(Replace(Application(SiteSN&"_Config").documentElement.selectSingleNode("config/@spacesetting").text&"^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^","$br$",vbcrlf),"^%^") JSetting=Split(Replace(Application(SiteSN&"_Config").documentElement.selectSingleNode("config/@jobsetting").text&"^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^","$br$",vbcrlf),"^%^") ASetting=Split(Replace(Application(SiteSN&"_Config").documentElement.selectSingleNode("config/@asksetting").text&"^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^","$br$",vbcrlf),"^%^") WSetting=Split(Replace(Application(SiteSN&"_Config").documentElement.selectSingleNode("config/@wapsetting").text&"^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^","$br$",vbcrlf),"^%^") die ubound(Setting) '经过后台多次修改系统设置后,这里的数组长度会无限变大,大到吓人End Sub 你们有没有发现这个一个BUG 系统设置的参数数组最大下标是多少Setting(214)吗? 如果你修改过系统配置无数次,那么这个数组就一直变大,大到吓人!!! [url=] 比如后台的,系统设置,商城系统设置... 问题根源就在下面标准的,每保存一次就会增加红色的那字的数组长度 Dim Setting:Setting=Split(RS("Setting")&"^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^","^%^") |
|
支持(0) | 反对(0) 顶端 底部 |
<上一主题 | 下一主题 > |