asp代碼1：程序代碼: (可修改后再運行)[ 復(fù)制代碼 ] [ 運行代碼 ]asp代碼2：程序代碼: (可修改后再運行)[ 復(fù)制代碼 ] [ 運行代碼 ]

asp代碼1：

程序代碼: (可修改后再運行)[ 復(fù)制代碼 ] [ 運行代碼 ]
<
if Request.ServerVariables("SERVER_NAME")="www.cnvfrs.cn" then
response.redirect "/bbs/"
else
response.redirect "/blog/"
end if
>
asp代碼2：

程序代碼: (可修改后再運行)[ 復(fù)制代碼 ] [ 運行代碼 ]
<
select case request.servervariables("http_host")
case "www.cnvfrs.cn"
Server.Transfer("/bbs/")
case "bbs.dlstu.cn"
Server.Transfer("/bbs/")
case "blog.dlstu.cn"
Server.Transfer("/blog/")
'...... 繼續(xù)添加 ......
end select
>
asp代碼3：

程序代碼: (可修改后再運行)[ 復(fù)制代碼 ] [ 運行代碼 ]
<
if instr(Request.ServerVariables("SERVER_NAME"),"dlstu.cn")>0 then
response.redirect "/bbs/"
elseif instr(Request.ServerVariables("SERVER_NAME"),"dlstu.com")>0 then
response.redirect "/bbs/"
elseif instr(Request.ServerVariables("SERVER_NAME"),"h11.cn")>0 then
response.redirect "bbs/"
end if
>
asp代碼4：

程序代碼: (可修改后再運行)[ 復(fù)制代碼 ] [ 運行代碼 ]
<
if Request.ServerVariables("SERVER_NAME")="www.cnvfrs.cn" then
response.redirect "/bbs/index.asp"
elseif Request.ServerVariables("SERVER_NAME")="www.xunleiwang.com" then
response.redirect "/bbs/index.asp"
elseif Request.ServerVariables("SERVER_NAME")="bbs.163.com" then
response.redirect "/bbs/index.asp"
end if
>
asp代碼5：

程序代碼: (可修改后再運行)[ 復(fù)制代碼 ] [ 運行代碼 ]
<
'取得HTTP輸入的值并付值到HTOST中
dim host
host=lcase(request.servervariables("HTTP_HOST"))
‘開始條件跳轉(zhuǎn)
Select CASE host
' 如果HOST的值是www.cnvfrs.cn就選擇事件case www.cnvfrs.cn的命令
CASE www.cnvfrs.cn
'直接跳轉(zhuǎn)
response.redirect "/bbs/"
CASE www.xunleiwang.com
response.redirect "/blog/"
'其它域名跳轉(zhuǎn)
CASE ELSE
response.redirect "/blog/"
END Select
>
asp代碼6：

程序代碼: (可修改后再運行)[ 復(fù)制代碼 ] [ 運行代碼 ]
<
from=lcase(Request.ServerVariables("HTTP_HOST"))
if left(from,4)="www." then
Response.redirect("index.asp") '此處為網(wǎng)站首頁地址
else
response.Write( "/bbs/")
end if
>