系统设置是不是有问题，你们这个值是多少Ubound(Setting)-领先建站CMS提供服务商我们专注于CMS建站产品的研发

1950 查看	2 回复

主题：[反馈BUG]系统设置是不是有问题，你们这个值是多少Ubound(Setting) [收藏主题]

jeman888 当前离线

32 主题	0 广播	0 粉丝

级别:学前班

用户积分:98 分
登录次数:34 次
注册时间:2013/6/20
最后登录:2021/12/7

jeman888 发表于：2015/5/17 21:40:12 | 只看该作者查看该作者主题楼主

做线上考试培训就选#科汛网校

我刚下载了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)&" "&ubound(TbSetting)&" "&ubound(SSetting)&" "&ubound(JSetting)&" "&ubound(ASetting)&" "&ubound(WSetting)

End Sub

一分钟快速开通线上知识店铺

支持(0) |

反对(0)

顶端

底部

jeman888 当前离线

32 主题	0 广播	0 粉丝

级别:学前班

用户积分:98 分
登录次数:34 次
注册时间:2013/6/20
最后登录:2021/12/7

jeman888 发表于：2015/5/17 23:39:45 | 只看该作者查看该作者主题沙发

做线上考试培训就选#科汛网校

超严重的一个BUG，没有人发现吗？

系统设置的参数数组最大小标是多少Setting(214)吗？

如果你修改过系统配置无数次，那么这个数组就一直变大，大到吓人！！！

比如后台的，系统设置，商城系统设置...

问题根源就在下面标准的，每保存一次就会增加红色的那字的数组长度

Dim Setting:Setting=Split(RS("Setting")&"^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^^%^","^%^")

一分钟快速开通线上知识店铺

支持(0) |

反对(0)

顶端

底部