更换新域名后跳转到新域名相关页面(不影响收录)
'功能：更换新域名后跳转到新域名相关页面（带参数）
'作者：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)
%>