Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

xanburzum

[Resolvido] Recursos realocados

Por , em ASP Clássico

Recommended Posts

xanburzum    169

xanburzum
Postado

Recursos realocados

 

 

<%
Sub Reloca( ByVal sNewURI )

'Tipo converter a entrada para um tipo de dados string
sNewURI = CStr( sNewURI )

'Nome do servidor Append atual para ser compatível com as normas,
'Mas, primeiro, verificar que o URL é absoluto
If StrComp( Left( sNewURI, 5 ), "http:", vbTextCompare ) <> 0 _
   And Request.ServerVariables("HTTP_HOST") <> vbNullString _
   And Left( sNewURI, 1 ) = "/" Then
    'Verificar se temos o HOST variável para trabalhar a partir de
    sNewURI = "http://" & Request.ServerVariables("HTTP_HOST") & sNewURI
End If

'Set response status 301
'O recurso foi transferido definitivamente
Response.Status = "301 Moved Permanently"

'Definir responses location header
'Para a nova localização do recurso
Response.AddHeader "Location", sNewURI

'Finalmente imprimir HTML
%><html>
<head>
  <title>Objeto movido permanentemente</title>
  <meta name="robots" content="noindex">
</head>
<body>
  <h1>Objeto movido permanentemente</h1>
  Este objeto foi transferida para <a href="<%= sNewURI %>">este NOVO</a>.
</body>
</html>
<%
End Sub
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito