<%
Dim DefaultUrl, dominio cookieDomain, url, rawUrl
DefaultUrl = "http://zzzzzzyyyyyxxxxxx.dk/"
dominio = "zzzzzzyyyyyxxxxxx.dk"
Si Request.QueryString ("tduid") <> "" Entonces
cookieDomain = "." y de dominio
Response.Cookies ("AffiliateProvider") = Request.QueryString ("tduid")
Response.Cookies ("AffiliateProvider"). Expira = DateAdd ("d", 365, Fecha)
Response.Cookies ("AffiliateProvider"). Dominio = cookieDomain
Response.Cookies ("AffiliateProvider"). Ruta = "/"
"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.
Período de sesiones ("AffiliateProvider") = Request.QueryString ("tduid")
Fin Si
Si Request.QueryString ("url") <> "" Entonces
rawUrl = Mid (Request.QueryString, _
InStr (1, Request.QueryString, "URL") + 4)
Si la izquierda (rawUrl, 13) = "http% 3A% 2F% 2F" _
O a la izquierda (rawUrl, 14) = "https% 3A% 2F% 2F" Entonces
url = Request.QueryString ("url")
Más
url = rawUrl
Fin Si
Más
url = DefaultUrl
Fin Si
Response.Redirect (url)
>%