|
主题:[已答复]网站报这个错,有谁给处理一下? [收藏主题] | 转到: |
![]() 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 |
|
![]() ![]() ![]() ![]() |
![]() ![]() ![]() ![]() |
<上一主题 | 下一主题 > |