<% c="moscowmap" 'Хеш код Вашего сайта web="moscowmap.ru" 'Домен k="CP1251" 'Кодировка сайта (CP1251 или UTF-8) up=25 'Время обновления кеша ссылок в минутах ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Получаем значение текущей страницы urlM=lcase(Request.ServerVariables("HTTP_Url")) if urlM="/default.asp" and Request.ServerVariables("QUERY_STRING")<>"" then urlM="/?" & lcase(Request.ServerVariables("QUERY_STRING")) Set xml = Server.CreateObject("Microsoft.XMLDOM") xml.async = False xml.setProperty "ServerHTTPRequest", true 'Проверяем кеш dt=now():dt1=0 p=server.mappath("trustlink.asp") p=left(p,len(p)-14) Set FSO=Server.CreateObject("Scripting.FileSystemObject") Set Folder=FSO.GetFolder(p) FOR EACH f1 in Folder.Files if CStr(f1.Name)=k & ".xml" then dt=f1.DateLastModified:dt1=1 Next up1=cint(DateDiff("n", dt, now())) if up1>=up or dt1=0 then 'Подключаемся к серверу TrustLink xml.Load("http://db.trustlink.ru/" & c & "/" & web & "/" & k & ".xml") xml.save(server.mappath(k & ".xml")) else xml.Load(server.mappath(k & ".xml")) end if If xml.parseError.errorCode=0 Then 'Получаем настройки ссылок Set cod = xml.getElementsByTagName("config") s=cod.item(0).childNodes(0).text e=cod.item(0).childNodes(2).text Response.write s 'Выводим список ссылок Set link = xml.getElementsByTagName("pages") For i = 0 To xml.getElementsByTagName("page").Length-1 url=replace(lcase(link.item(0).childNodes(i).getAttribute("url")),web,"") if urlM=url then Set ob = link.item(0).childNodes(i) Set ob1 = ob.getElementsByTagName("link") For j = 0 To ob1.Length-1 u=ob1.item(j).childNodes(2).text t=ob1.item(j).childNodes(1).text a=ob1.item(j).childNodes(0).text w=replace(u,"http://","") if instr(1,w,"/",1)>0 then w=left(w,instr(1,w,"/",1)-1) Response.write "" next end if next Response.write e end if %>