<blockquote id="YNUZD"><aside id="YNUZD"></aside><section id="YNUZD"></section></blockquote>

    <sub id="YNUZD"><bdo id="YNUZD"><keygen id="YNUZD"><figcaption id="YNUZD"></figcaption></bdo></sub>

      <legend id="YNUZD"><abbr id="YNUZD"><style id="YNUZD"><bdo id="YNUZD"><hgroup id="YNUZD"><bdo id="YNUZD"></bdo></hgroup></bdo></style><samp id="YNUZD"><label id="YNUZD"><rp id="YNUZD"></rp><datalist id="YNUZD"></datalist></label><output id="YNUZD"></output><ins id="YNUZD"><select id="YNUZD"></select></ins><strike id="YNUZD"></strike><strong id="YNUZD"></strong></samp><ruby id="YNUZD"><span id="YNUZD"></span></ruby></abbr></legend>

      • <span id="YNUZD"><optgroup id="YNUZD"></optgroup><hgroup id="YNUZD"></hgroup></span>

        网站广播 本站提供的源码经过测试,有前台及后台管理界面演示图,免费下载!
        ASP实现301域名重定向代码
        2019-09-19 12:44:55 ?? 【 】 ??浏览:
        分享一例asp实现301域名重定向的代码,使用301域名重定向可以把不带www的顶级域名转向到带www的域名。

        ?

        代码如下:
        <%
        '--301域名重定向
        Dim Server_Name,Path_infostr,Query_Stringstr
        Path_infostr=lcase(request.ServerVariables("PATH_INFO"))
        Server_Name=lcase(request.ServerVariables("Server_Name"))
        Query_Stringstr=request.ServerVariables("Query_String")
        If? Query_Stringstr<>"" Then?
        ?? Query_Stringstr="?"&Query_Stringstr?
        IF? instr(Server_Name,"www.")<1 Then??
        ?? Response.Status = "301 Moved Permanently"?
        if instr(Path_infostr,"index")>0 or? instr(Path_infostr,"default")>0? Then?
        ? Response.AddHeader "Location","http://www."&Server_Name
        Else??
        ?? Response.AddHeader "Location","http://www."&Server_Name&Path_infostr&Query_Stringstr??
        End if?
        ? Response.End?
        End if %>


        Tags:ASP 实现 301 域名 重定向 代码
        】【打印繁体】【关闭】 【返回顶部
        上一篇:ASP生成不重复随机数的实例代码 下一篇:ADODB.Connection 错误 '800a..

        广告推荐

        ASP技术文章推荐阅读