网站在建设SEO优化的时候，在考虑搜索引擎的友好化，其中优化中比较重要的是：301定向；

在做301定向的方法有很多，其中用的最多的就是程序改变301定向！

    tulr="http://www.njrc114.com/" '这段定义要转跳到的网址
    durl="http://njrc114.com/" '这段定义需要转跳的网址
    hurl=geturl() '获取当前页url
    if instr(1,hurl,durl,1)>0 then
    zurl=replace(hurl,durl,tulr)
    Response.Status="301 Moved Permanently"    '提示当前页面进行301定向
    Response.AddHeader "Location",zurl
    end if
    '获取当前url参数的函数
    function geturl()
    dim scriptaddress,servername,qs
    scriptaddress = cstr(request.servervariables("script_name"))
    servername = cstr(request.servervariables("server_name"))
    qs=request.querystring
    if qs<>"" then
    geturl ="http://"& servername & scriptaddress &"?"&qs
    else
    geturl ="http://"& servername & scriptaddress
    end if
    end function

<%
    tulr="http://www.njrc114.com/" '这段定义要转跳到的网址
    durl="http://njrc114.com/" '这段定义需要转跳的网址
    hurl=geturl() '获取当前页url
    if instr(1,hurl,durl,1)>0 then
    zurl=replace(hurl,durl,tulr)
    Response.Status="301 Moved Permanently"    '提示当前页面进行301定向
    Response.AddHeader "Location",zurl
    end if
    '获取当前url参数的函数
    function geturl()
    dim scriptaddress,servername,qs
    scriptaddress = cstr(request.servervariables("script_name"))
    servername = cstr(request.servervariables("server_name"))
    qs=request.querystring
    if qs<>"" then
    geturl ="http://"& servername & scriptaddress &"?"&qs
    else
    geturl ="http://"& servername & scriptaddress
    end if
    end function
    %>

<%
    tulr="http://www.njrc114.com/" '这段定义要转跳到的网址
    durl="http://njrc114.com/" '这段定义需要转跳的网址
    hurl=geturl() '获取当前页url
    if instr(1,hurl,durl,1)>0 then
    zurl=replace(hurl,durl,tulr)
    Response.Status="301 Moved Permanently"    '提示当前页面进行301定向
    Response.AddHeader "Location",zurl
    end if
    '获取当前url参数的函数
    function geturl()
    dim scriptaddress,servername,qs
    scriptaddress = cstr(request.servervariables("script_name"))
    servername = cstr(request.servervariables("server_name"))
    qs=request.querystring
    if qs<>"" then
    geturl ="http://"& servername & scriptaddress &"?"&qs
    else
    geturl ="http://"& servername & scriptaddress
    end if
    end function
    %>

南京服务器托管 | 南京企业建站 | 南京网站建设 | 南京网站优化 | 南京中绘谷网络技术有限公司 | 467.cn
| 整理发布 | TEL：13913852884，025-58633651，QQ：21390019