账号通
    

注册

找回密码

账号  

密码  

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

2380

查看

1

回复
主题：[已答复]标签功能模块 发现两处程序错误(X1.5.160106版) [收藏主题]  
cz101 当前离线

44

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:492 分
登录次数:149 次
注册时间:2008/6/21
最后登录:2018/1/24
cz101 发表于：2016/3/8 15:52:04   | 只看该作者 查看该作者主题 楼主 
做在线知识付费 选科汛云开店
有课程 找生源 就上科汛课堂街

位置一：是Kesion.Label.CommonCls.asp


如下代码标红部分,应该是等于符号吧，程序里写成了<>,导致文件缓存老是不更新。


  '加载数据库的所有标签到缓存

  1.    Sub LoadLabelToCache()

       set LabelXML = KS.InitialObject("msxml2.FreeThreadedDOMDocument"& MsxmlVersion)

       LabelXML.async = false

       LabelXML.setProperty "ServerHTTPRequest", true

       LabelXML.load(Server.MapPath(KS.Setting(3)&"Config/cache/label.xml"))

       if LabelXML.parseError.errorCode<>0 Then

           Set  LabelXML=KS.InitialObject("msxml2.FreeThreadedDOMDocument"& MsxmlVersion)

        LabelXML.appendChild(LabelXML.createElement("xml"))



位置二：admin/include/LabelAdd.asp

如下代码飘红部分,在mssql里面导致无法更新，原因是update操作无法对带有top 1这样的查询语句进行更新写入。


  1.    LabelRS.Close

        LabelRS.Open "Select top 1 * From [KS_Label] Where ID='" & LabelID & "'", Conn, 1, 3

         LabelRS("LabelName") = LabelName

         LabelRS("LabelContent") = LabelContent

         LabelRS("LabelFlag") = LabelFlag

         LabelRS("Description") = Descript

         LabelRS("AddDate") = Now

         LabelRS("FolderID") = Request.Form("ParentID")

         LabelRS.Update

    '遍历所有标签内容，找出所有标签的图



另外上面代码接下来的几行代码我确是看不懂了，为什么会有个“'遍历所有标签内容，找出所有标签的图”这样的代码呢，没看懂，

     '遍历所有标签内容，找出所有标签的图片

  1.      Dim Node,UpFiles,RCls

         UpFiles=LabelContent

             Set RCls=New Refresh

             Call Rcls.LoadLabelToCache()

          For Each Node in Rcls.LabelXML.DocumentElement.SelectNodes("labellist")

            UpFiles=UpFiles & Node.Text

          Next

          Set Rcls=Nothing

         Call KS.FileAssociation(1021,1,UpFiles,1)


这代码干什么用的？求教。
 
做一个服务本地、方便实用的地方导航网，是我一直的梦想，欢迎光临我的网站——导航郴州(www.czhao123com)
科汛商学院助您快速入门
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
刚刚 当前离线

1852

主题

5

广播

126

粉丝
添加关注
级别:版主

用户积分:7093 分
登录次数:225 次
注册时间:2010/7/6
最后登录:2024/4/15
刚刚 发表于：2016/3/8 16:50:08   | 只看该作者 查看该作者主题 沙发 
一分钟快速开通线上知识店铺
若系统是升级过来的  在KS_Label表检测下是否存在和当前修改标签ID相同的标签



上面第一处代码没什么问题的  若不懂具体的可百度下

下面的那个作用是为了防止在在后台执行清理无用文件操作时误删除标签里的图片
 
科汛商学院助您快速入门
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
＜上一主题 | 下一主题 ＞
<< 返回列表
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.10938秒 powered by KesionCMS 9.0