账号通
    

注册

找回密码

账号  

密码  

话题
互动
会员
服务
<<返回列表上一个主题 下一个主题 打印本帖 复制本帖地址

1037

查看

0

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

628

主题

6

广播

2

粉丝
添加关注
级别:六年级

用户积分:3600 分
登录次数:170 次
注册时间:2008/8/23
最后登录:2014/8/5
mz520 发表于：2013/11/7 16:56:54   | 只看该作者 查看该作者主题 楼主 
科汛在线考试系统(NET)
做考试题库 就用#科汛在线考试系统!

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

被零除

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



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



  1. 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) | 反对(0) 回到顶部顶端 回到底部底部
＜上一主题 | 下一主题 ＞
<< 返回列表
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.20410秒 powered by KesionCMS 9.0