Help
Salve o arquivo de código fonte em um diretório em algum lugar dentro do seu webroot, nomeando para code.asp.
Salve a página de exemplo1 para o mesmo diretório, nomeando demo.asp.
Salve a página de exemplo2 no mesmo diretório, nomeando demo_novo.htm.
code.asp
<% Sub Relocated( ByVal sNewURI ) 'converter a entrada para um tipo de dados string datatype sNewURI = CStr( sNewURI ) ' nome do servidor atual
'Mas primeiro verifique se a URL é absoluta If StrComp( Left( sNewURI, 5 ), "http:", vbTextCompare ) <> 0 _ And Request.ServerVariables("HTTP_HOST") <> vbNullString _ And Left( sNewURI, 1 ) = "/" Then 'Verifique se temos a variável HOST trabalhar a partir de sNewURI = "http://" & Request.ServerVariables("HTTP_HOST") & sNewURI End If 'Definir o status da resposta 301 para indicar
'O recurso foi movido permanentemente Response.Status = "301 Movido permanentemente" 'Definir o cabeçalho de localização de respostas a ponto
'Para o novo local do recurso Response.AddHeader "Location", sNewURI 'Finalmente imprimir algum html básico para que
'Browsers não fique preso neste local %><html> <head> <title>Objeto movido permanentemente</title> <meta name="robots" content="noindex"> </head> <body> <h1>Objeto movido permanentemente</h1> Este objeto foi transferido <a href="<%= sNewURI %>">aqui</a>. </body> </html> <% End Sub %> exemplo1.asp
<!-- #INCLUDE FILE="code.asp" --> <% Relocated "demo_novo.asp" %>
exemplo2.asp
<html> <head> <title>página de destino</title> </head> <body> Esta é a página de destino, você foi trazido aqui porque você visitou uma página que foi movida. Esta página deve fornecê-lo todas as informações que a página antiga, mas simplesmente em um novo local. <hr/> </body> </html>
