<% '获取相对域名的http地址,参数除外 dim p if request.ServerVariables("HTTP_HOST")="webym.cn" '除http地址外?号后面的参数 if Request.ServerVariables("QUERY_STRING")<>"" then p="?" 'Status 属性指定服务器返回的状态行的值 Response.Status="301 Moved Permanently" 'Request.ServerVariables("SCRIPT_NAME")判断并输出当前执行文件的路径及文件名称 'AddHeader 方法用指定的值添加 HTML 标题。该方法常常向响应添加新的 HTTP 标题 Response.AddHeader "Location","http://www.webym.cn"&Request.ServerVariables("SCRIPT_NAME")&p&Request.ServerVariables("QUERY_STRING") Response.End end if %>