打了最新的补丁1104，在终极列表中加入出错-领先建站CMS提供服务商我们专注于CMS建站产品的研发

kesion

<<返回列表上一个主题下一个主题打印本帖复制本帖地址

1186 查看	0 回复

主题：[反馈BUG]打了最新的补丁1104，在终极列表中加入出错 [收藏主题]

mz520 当前离线

628 主题	6 广播	2 粉丝

添加关注

级别:六年级

用户积分:3600 分
登录次数:170 次
注册时间:2008/8/23
最后登录:2014/8/5

当前不在线

mz520 发表于：2013/11/7 16:56:54 | 只看该作者查看该作者主题楼主

科汛在线网校系统

有课程找生源就上科汛课堂街

Microsoft VBScript 运行时错误错误 '800a000b'

被零除

E:\KESIONESHOP V9.5.131008 FREE(GBK)\KESIONESHOP V9.5.131008 FREE(GBK)\ITEM\../KS_Cls/Kesion.CommonCls.asp，行 2705

打开上面的标签，2705行附近的代码如下：

Function ReplacePage(PageStyle,ChannelID,id,CurrPage,TotalPut,PerPageNumber) Dim n:n=PageStyle Dim Tp,TotalPage,ItemUnit Dim XML:Set XML=LFCls.GetXMLFromFile("pagestyle") Dim Node:Set Node= XML.documentElement.selectSingleNode("/pagestyle/item[@name='" & n & "']/content") If Not Node Is Nothing Then Tp=Node.text End If if (TotalPut mod PerPageNumber)=0 then TotalPage= TotalPut \ PerPageNumber else TotalPage = TotalPut \ PerPageNumber + 1 end if ItemUnit=C_S(ChannelID,4): if IsNul(ItemUnit) Then ItemUnit="条"

请官方明示，谢谢啦！

有课程找生源就上科汛课堂街

反对(0)

回到顶部

回到底部

底部

＜上一主题 | 下一主题＞

<< 返回列表

Powered By KesionCMS Version X1

厦门科汛软件有限公司 © 2006-2016 页面执行0.08594秒 powered by KesionCMS 9.0