Вот и за отсутствия готового решения, разработал такой вариант автоматического размещения ссылок на сайте с поддержкой ASP
Код разместите на всех страницах, где требуется вывод ссылок:
Код максимально упрощен, но работает.Код:<% Response.write "<!--3ahgfq4e--> <!--3ahgfq4e-->" 'Строка для определения кода биржи urlM=replace(Request.ServerVariables("HTTP_Url"),"default.asp","") Set xml = Server.CreateObject("Microsoft.XMLDOM") xml.async = False if xml.Load("http://db.linkfeed.ru/97c0194702c65656565656rett/ВашСайт.ru/DEFAULT.xml") then xmlN=0 Set link = xml.getElementsByTagName("pages") For i = 0 To xml.getElementsByTagName("page").Length-1 url=link.item(0).childNodes(i).getAttribute("url") slk=right(link.item(0).childNodes(i).text,len(link.item(0).childNodes(i).text)-1) if url=urlM then Set objItem = link.item(0).childNodes(i) Set sil = objItem.getElementsByTagName("link") For j = 0 To sil.Length-1 Response.write sil.item(j).text Response.write "<br>" 'Разделитель ссылок (в данном случае переход на новою строку) next xmlN=xmlN+1 end if next end if %>
Данные ссылок берутся из файла XML генерируемый биржей.
Замените "Строку для определения кода биржи" на Ваш код в личном кабинете
Так же не забудьте поменять "ВашСайт.ru" на имя Вашего сайта без http://
Если не хотите, чтобы при открытие страницы Ваш сайт каждый раз подгружал файл XML из биржи, то можно заменить:
xml.Load("http://db.linkfeed.ru/97c0194702c65656565656rett/ВашСайт.ru/DEFAULT.xml")
на xml.Load(server.mappath("DEFAULT.xml"))
в этом случае файл DEFAULT.xml надо будет в ручную или программно загружать в корень сайта.
Вот в принципе и всё надеюсь кому то будет полезно, код тестировал на себе на двух своих сайтах.




Ответить с цитированием