网站案例展示

<% footcodexml = "/cache/footcode.xml" Set objxml=Server.CreateObject("Microsoft.XMLDOM") objxml.Async=False objxml.Load(Server.Mappath(footcodexml)) If objxml.parseError.errorcode = 0 Then Set oContent = objxml.documentElement.selectSingleNode("root") i = 0 Do While i < oContent.childNodes.length If LCase(oContent.childNodes.item(i).text)=LCase(SiteSkin) And oContent.childNodes.item(i).getAttribute("use") = "1" Then uid = oContent.childNodes.item(i).getAttribute("uid") stat = oContent.childNodes.item(i).getAttribute("stat") Exit Do End If i = i + 1 Loop End If %> <%=FooterOther%>