更换新域名后跳转到新域名相关页面(不影响收录)

<% '###################################
'功能：更换新域名后跳转到新域名相关页面（带参数）
'作者：ZZY '日期：2011年06月
'###################################
Dim MyHost,UrlStr,QueryStr,NewDoMain,Url MyHost=Trim(Request.ServerVariables("SERVER_NAME"))'取得域名如：www.yyyyy.com UrlStr=Trim(Request.ServerVariables("URL"))'取得文件名如：如/blog/article.asp QueryStr=Trim(Request.ServerVariables("QUERY_STRING"))
'取得条件字符串如：id=8或 id=1&classID=19 NewDoMain="www.yourdomain.com"
if QueryStr<>"" then
Url="http://"&NewDoMain&UrlStr&"?"&QueryStr
else
Url="http://"&NewDoMain&UrlStr end if Response.Redirect(Url)
%>

当前页面是本站的「Google AMP」版。查看和发表评论请点击：完整版 »

因本文不是用Markdown格式的编辑器书写的，转换的页面可能不符合AMP标准。