¿Por qué utilizar la redirección 301?
Respuesta: Puede utilizar la redirección 301 para redirigir el nombre de dominio sin www al nombre de dominio con www. Esto puede dirigir todo el peso al nombre de dominio con www, lo cual es muy útil para la optimización del sitio web.
¿Cómo implementar la redirección 301 en el código?
Respuesta: Esto se puede lograr agregando el siguiente código al archivo de conexión de la base de datos.
<%
Dim Server_Name,Path_infostr,Query_Stringstr
Path_infostr=lcase(request.ServerVariables(PATH_INFO))
Nombre_servidor=lcase(solicitud.Variables_servidor(Nombre_servidor))
Query_Stringstr=request.ServerVariables(Query_String)
Si Query_Stringstr<> Entonces Query_Stringstr=?&Query_Stringstr
IF instr(Nombre_Servidor,www.)<1 Entonces
Response.Status = 301 movido permanentemente
si instr(Path_infostr,index)>0 o instr(Path_infostr,default)>0 Entonces
Response.AddHeader Ubicación,http://www.&Server_Name
Demás
Response.AddHeader Ubicación, http://www.&Server_Name&Path_infostr&Query_Stringstr
terminar si
Respuesta.Fin
terminar si
%>