Por que usar o redirecionamento 301?
Resposta: Você pode usar o redirecionamento 301 para redirecionar o nome de domínio sem www para o nome de domínio com www. Isso pode direcionar todo o peso para o nome de domínio com www, o que é muito útil para otimização de sites.
Como implementar o redirecionamento 301 no código?
Resposta: Isso pode ser conseguido adicionando o código a seguir ao arquivo de conexão do banco de dados.
<%
Dim Server_Name,Path_infostr,Query_Stringstr
Path_infostr=lcase(request.ServerVariables(PATH_INFO))
Nome_servidor=lcase(request.ServerVariables(Nome_servidor))
Query_Stringstr=request.ServerVariables(Query_String)
Se Query_Stringstr<> Então Query_Stringstr=?&Query_Stringstr
SE instr(Nome_servidor,www.)<1 Então
Response.Status = 301 movido permanentemente
se instr(Path_infostr,index)>0 ou instr(Path_infostr,default)>0 Então
Localização de Response.AddHeader, http://www.&Server_Name
Outro
Localização de Response.AddHeader, http://www.&Server_Name&Path_infostr&Query_Stringstr
Terminar se
Resposta.Fim
Terminar se
%>