| Мануал по заработку в Интернете » Мануал по работе с биржами ссылок и статей » MainLink |
Установка кода MainLink на ASP
| 1. Регистрируемся в MainLink, затем входим в свой аккаунт. 2. Вставляем ниже приведенный код туда, где Вы хотите, что бы появлялись ссылки: Code <%@ CodePage=1251 Language="VBScript"%> <% u = "" if Request.ServerVariables("PATH_INFO")="/default.asp" then 'Подставить сюда ваш default-document u = Request.ServerVariables("SERVER_NAME") else u = Request.ServerVariables("SERVER_NAME") + Request.ServerVariables("PATH_INFO") if Request.ServerVariables("QUERY_STRING")<>"" then u = u + "?" + Request.ServerVariables("QUERY_STRING") end if end if REQUEST_STRING="http://universal.mainlink.ru/l.aspx?u="+Server.URLEncode(u) Set xmlServerHttp = Server.CreateObject("Msxml2.ServerXMLHTTP") xmlServerHttp.Open "GET", REQUEST_STRING, false Call xmlServerHttp.Send() respHTML = xmlServerHttp.responseTEXT Set xmlServerHttp = Nothing Response.CharSet = "windows-1251" Response.Write(respHTML) %> | |
| Источник материала: Сайт системы MainLink | |
| Просмотров: 1932 | Добавлено: 10.02.2010, 14:09 |
| Всего комментариев: 0 | |
