问题一:
Microsoft VBScript 运行时错误 错误 '800a01a8'
缺少对象: 'Application(...).documentElement.selectSingleNode(...)'
F:\HAIBOR\KEKAOKELE\6\ADMIN\../KS_Cls/Kesion.CommonCls.asp,行 88
Public Sub InitialConfig()
If not IsObject(Application(SiteSN&"_Config")) then GetSetting
Setting=Split(Replace(Application(SiteSN&"_Config").documentElement.selectSingleNode("config/@setting").text,"$br$",vbcrlf),"^%^") '这是88行
TbSetting=Split(Replace(Application(SiteSN&"_Config").documentElement.selectSingleNode("config/@tbsetting").text,"$br$",vbcrlf),"^%^")
SSetting=Split(Replace(Application(SiteSN&"_Config").documentElement.selectSingleNode("config/@spacesetting").text,"$br$",vbcrlf),"^%^")
JSetting=Split(Replace(Application(SiteSN&"_Config").documentElement.selectSingleNode("config/@jobsetting").text,"$br$",vbcrlf),"^%^")
ASetting=Split(Replace(Application(SiteSN&"_Config").documentElement.selectSingleNode("config/@asksetting").text,"$br$",vbcrlf),"^%^")
End Sub
问题二:
Microsoft VBScript 运行时错误 错误 '800a01b6'
对象不支持此属性或方法: 'KS.Setting'
/admin/Login.asp,行 33
If KS.Setting(2)<>KS.GetAutoDoMain or KS.Setting(3)<>InstallDir Then '这是33行