'功能:更换新域名后跳转到新域名相关页面(带参数)
'作者: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)
%>