账号通
    

账号  

密码  

3611

查看

5

回复
主题:求教留言板出错问题 [收藏主题] 转到:  
小林 当前离线

233

主题

0

广播

2

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

用户积分:2186 分
登录次数:88 次
注册时间:2008/7/19
最后登录:2014/1/11
小林 发表于:2008/9/5 22:40:00   | 显示全部帖子 查看该作者主题 楼主 

遇到此问题的用户,请按以下方法修改


打开ks_cls/kesion.basefuncls.asp


找到


Function GetConfigFromXML(FileName,Path,NodeName)
    If Not IsObject(Application(KS.SiteSN&"_Config"&FileName)) Then
     Dim Doc:set Doc = CreateObject("msxml2.FreeThreadedDOMDocument"& MsxmlVersion)
     Doc.async = false
     Doc.setProperty "ServerHTTPRequest", true
     Doc.load(KS.Setting(2) & KS.Setting(3)&"Config/" & FileName &".xml")
     Set Application(KS.SiteSN&"_Config"&FileName)=Doc
    End If 
    GetConfigFromXML= Application(KS.SiteSN&"_Config"&FileName).documentElement.selectSingleNode(Path & "[@name='" & NodeName & "']").text
  End Function


 


改成


 


 Function GetConfigFromXML(FileName,Path,NodeName)
    If Not IsObject(Application(KS.SiteSN&"_Config"&FileName)) Then
     Dim Doc:set Doc = CreateObject("msxml2.FreeThreadedDOMDocument"& MsxmlVersion)
     Doc.async = false
     Doc.setProperty "ServerHTTPRequest", true
     Doc.load(Server.MapPath(KS.Setting(3)&"Config/" & FileName &".xml"))
     Set Application(KS.SiteSN&"_Config"&FileName)=Doc
    End If 
    GetConfigFromXML= Application(KS.SiteSN&"_Config"&FileName).documentElement.selectSingleNode(Path & "[@name='" & NodeName & "']").text
  End Function


 


 

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.06250秒 powered by KesionCMS 9.0