Категории раздела
SAPE [19]
Работа с биржей ссылок SAPE
LinkFeed [7]
Работа с биржей ссылок LinkFeed
SetLinks [14]
Работа с биржей ссылок SetLinks
UniPlace [16]
Работа с биржей ссылок UniPlace
MainLink [23]
Работа с биржей ссылок MainLink
Liex [1]
Работа с биржей статей Liex
Форма входа
Опрос на проекте
С какой биржей ссылок Вы предпочитаете работать?
Всего ответов: 122

Прочитать о заработке на биржах ссылок
Рекомендуем


Мануал по заработку в Интернете » Мануал по работе с биржами ссылок и статей » 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
Просмотров: 894 | Добавлено: 10.02.2010, 14:09
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]