Dim Domain_Name
Domain_Name = Request.ServerVariables("HTTP_HOST")
if Domain_Name="www.jtgczx.com" then
if Request.ServerVariables("QUERY_STRING")<>"" then p="?"
if P="" then
Response.Status="301 Moved Permanently"
Response.AddHeader "Location","http://www.zhglq.com"
Response.End
else
Response.Status="301 Moved Permanently"
Response.AddHeader "Location","http://www.zhglq.com"&Request.ServerVariables("SCRIPT_NAME")&p&Request.ServerVariables("QUERY_STRING")
Response.End
end if
end if
%>