采用错误页面为动态404.asp   设置默认首页为 404.asp，程序如以下。

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
url1=" url2=" u1=Request.ServerVariables("SERVER_NAME")'取得网址域名地址
u2=Request.ServerVariables("URL")'获取 .com/net/等后面的UL地址

if u1="http://www.mediainchia.com.cn" then
 url1="http://www.mediainchia.com.cn"
else
 url1="http://mediainchia.com.cn"
end if 

if Trim(Request.QueryString)<>"" then'如果有变量参数，就获取，没有就跳过
 u3="?"&Trim(Request.QueryString)
end if

url="http://"&u1&u2&u3   '将获取到如http://www.71wl.com/404.asp?404;http://www.71wl.com:80/news/689.html
url=replace(url,url1&"/404.asp?404;","")
url=replace(url,url1&":80",url2)
url=replace(url,url1&"/404.asp",url2) '针对首页301跳转
url=replace(url,"index.asp","")
'Response.write(url)
Response.Status="301 Moved Permanently"
Response.AddHeader "Location",url

if request.ServerVariables("HTTP_HOST")="xinshishe.com"  then
Response.Status="301 Moved Permanently"
Response.AddHeader "Location","http://www.xinshishe.com"
Response.End
end if
%>