sijk

请问有什么空间支持301页面定义的  我想换个域名 但是我用的空间不支持 301页面定义  但是我舍不得我以前的流量呀 刚看了一篇介绍用301页面定义  访问以前页面自动转到新域名的文章 现在急需一个支持301的空间 朋友给推荐个

[ 本帖最后由 sijk 于 2008-6-6 15:43 编辑 ]

dudo

更换域名的话只需要301就可以，404应该用不到吧？

dudo

301是不需要空间支持的，如果你只是更换域名的话可以按照现在的方法去做（以为PJBlog博客网站更换域名为例）：
1、在虚拟主机控制面板绑定新的域名，我们假设新域名为 new.com 旧域名为 original.com

2、由于PJBlog的header.asp是所有页面都使用的，所以只需要在header.asp中做如下修改：
在header.asp的最前部添加如下代码：

复制内容到剪贴板

代码:

Dim referalURL
referalURL = Request.ServerVariables("http_referer")
If inStr(referalURL,"original.com") Then
    Response.Status="301 Moved Permanently"
    Response.AddHeader "Location",Replace(referalURL,"origianl.com","new.com")
    Response.End
End If

然后你再到 http://seo.g2soft.net/online-tools/server_status_checker.php 输入你原来的域名看看是否返回 301 代码。如果是则替换成功，下次蜘蛛来过之后即可撤掉旧域名。

还可以试试把上面的代码加到conn.asp里试试

[ 本帖最后由 dudo 于 2008-6-6 16:34 编辑 ]

sijk

为什么我按这样的操作弄不对呢？

dudo

有什么错误？

sogal

这个问题问的好！收藏！

sijk

<!--#include file="common/function.asp" -->
<!--#include file="common/ubbcode.asp" -->
<!--#include file="common/library.asp" -->
<!--#include file="common/cache.asp" -->
<!--#include file="common/checkUser.asp" -->
<!--#include file="common/XML.asp" -->

<%  ------------------------------------------------------------------------------->添加到这个位置
'==================================
'  Blog顶部
'    更新时间: 2005-10-23
'==================================

'=========================Funciton In Head=============================
'处理标题
Dim BlogTitle
BlogTitle=siteName & "-" & blog_Title
if inStr(Replace(Lcase(Request.ServerVariables("URL")),"\","/"),"/default.asp")<>0 then
        dim Tid
        If CheckStr(Request.QueryString("id"))<>Empty Then
                Tid=CheckStr(Request.QueryString("id"))
        End If
        if len(Tid)>0 then Response.Redirect ("article.asp?id="&Tid)
end if

if inStr(Replace(Lcase(Request.ServerVariables(

添加到那个位置对不  ？然后上传上去

dudo

不好意思，上面的代码有点问题，应该是这样：

复制内容到剪贴板

代码:

Dim referalURL,q,s
q = Request.ServerVariables("QUERY_STRING")
s = Request.ServerVariables("SCRIPT_NAME")
If CStr(q) <> "" Then
        referalURL = s & "?" & q
Else
        referalURL = s
End If
If inStr(LCase(Request.ServerVariables("HTTP_REFERER")),"localhost") Then
    Response.Status="301 Moved Permanently"
    Response.AddHeader "Location","http://www.dudo.org" & referalURL
    Response.End
End If

注：只需要把 localhost 换成你的旧网址， 把www.dudo.org 换成你的新网址即可。

kenvi

自己服务器想怎么改就怎么改

fyuehack

不错的问题,我也有打算换大米