Pastebin launched a little side project called VERYVIRAL.com, check it out ;-) Want more features on Pastebin? Sign Up, it's FREE!
Guest

Untitled

By: a guest on Feb 27th, 2012  |  syntax: None  |  size: 1.10 KB  |  views: 13  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. <%
  2.         Dim DefaultUrl, dominio cookieDomain, url, rawUrl
  3.         DefaultUrl = "http://zzzzzzyyyyyxxxxxx.dk/"
  4.         dominio = "zzzzzzyyyyyxxxxxx.dk"
  5.         Si Request.QueryString ("tduid") <> "" Entonces
  6.             cookieDomain = "." y de dominio
  7.             Response.Cookies ("AffiliateProvider") = Request.QueryString ("tduid")
  8.             Response.Cookies ("AffiliateProvider"). Expira = DateAdd ("d", 365, Fecha)
  9.             Response.Cookies ("AffiliateProvider"). Dominio = cookieDomain
  10.             Response.Cookies ("AffiliateProvider"). Ruta = "/"
  11.         "Si usted no usa la funcionalidad integrada de sesión en ASP, modifique la siguiente expresión para trabajar con sus rutinas de manejo de sesión.
  12.             Período de sesiones ("AffiliateProvider") = Request.QueryString ("tduid")
  13.         Fin Si
  14.         Si Request.QueryString ("url") <> "" Entonces
  15.             rawUrl = Mid (Request.QueryString, _
  16.             InStr (1, Request.QueryString, "URL") + 4)
  17.             Si la izquierda (rawUrl, 13) = "http% 3A% 2F% 2F" _
  18.         O a la izquierda (rawUrl, 14) = "https% 3A% 2F% 2F" Entonces
  19.         url = Request.QueryString ("url")
  20.         Más
  21.             url = rawUrl
  22.         Fin Si
  23.         Más
  24.             url = DefaultUrl
  25.         Fin Si
  26.         Response.Redirect (url)
  27.         >%