位置一：是Kesion.Label.CommonCls.asp
如下代码标红部分,应该是等于符号吧，程序里写成了<>,导致文件缓存老是不更新。
'加载数据库的所有标签到缓存
- 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这样的查询语句进行更新写入。
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
'遍历所有标签内容，找出所有标签的图
另外上面代码接下来的几行代码我确是看不懂了，为什么会有个“'遍历所有标签内容，找出所有标签的图”这样的代码呢，没看懂，
'遍历所有标签内容，找出所有标签的图片
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)
这代码干什么用的？求教。
当前位置：
支持(0) | 
反对(0)
顶端 
底部
![电子邮件:[ cz101@126.com ]](http://bbs.kesion.com/club/images/email.gif){kind=small}
