采用錯(cuò)誤頁(yè)面為動(dòng)態(tài)404.asp   設(shè)置默認(rèn)首頁(yè)為 404.asp，程序如以下。

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
url1=" url2=" u1=Request.ServerVariables("SERVER_NAME")'取得網(wǎng)址域名地址
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'如果有變量參數(shù)，就獲取，沒(méi)有就跳過(guò)
 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) '針對(duì)首頁(yè)301跳轉(zhuǎn)
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
%>