http://www.nongmin.com.cn/club/

'参  数：FileName xml文件名(不含扩展名)
        '*********************************************************************************************************
        Function GetXMLFromFile(FileName)
             If Not IsObject(Application(KS.SiteSN&"_Config"&FileName)) Then
              Dim Doc:set Doc = KS.InitialObject("msxml2.FreeThreadedDOMDocument"& MsxmlVersion)
              Doc.async = false
              Doc.setProperty "ServerHTTPRequest", true
              Doc.load(Server.MapPath(KS.Setting(3)&"Config/" & FileName &".xml"))
              dim loadnum:loadnum=0
              do while Doc.parseError.errorCode<>0   '出错重新加载
                 Doc.load(Server.MapPath(KS.Setting(3)&"Config/" & FileName &".xml"))
                 loadnum=loadnum+1
                 if loadnum>5 then exit do
              loop
              if loadnum=0 then  Set Application(KS.SiteSN&"_Config"&FileName)=Doc
           End If  
            Set GetXMLFromFile=Application(KS.SiteSN&"_Config"&FileName)
        End Function

检查下看是否存在这个文件：/Config/GuestBook.xml

有这个文件的

检查下文件大小和是否有读取权限

建议升级到最新版