遇到此问题的用户,请按以下方法修改
打开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