单空间多域名绑定管理

asp代码1：程序代码: (可修改后再运行)[ 复制代码 ] [ 运行代码 ]asp代码2：程序代码: (可修改后再运行)[ 复制代码 ] [ 运行代码 ]

asp代码1：

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

程序代码: (可修改后再运行)[ 复制代码 ] [ 运行代码 ]
<
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/")
'...... 继续添加 ......
end select
>
asp代码3：

程序代码: (可修改后再运行)[ 复制代码 ] [ 运行代码 ]
<
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：

程序代码: (可修改后再运行)[ 复制代码 ] [ 运行代码 ]
<
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：

程序代码: (可修改后再运行)[ 复制代码 ] [ 运行代码 ]
<
'取得HTTP输入的值并付值到HTOST中
dim host
host=lcase(request.servervariables("HTTP_HOST"))
‘开始条件跳转
Select CASE host
' 如果HOST的值是www.cnvfrs.cn就选择事件case www.cnvfrs.cn的命令
CASE www.cnvfrs.cn
'直接跳转
response.redirect "/bbs/"
CASE www.xunleiwang.com
response.redirect "/blog/"
'其它域名跳转
CASE ELSE
response.redirect "/blog/"
END Select
>
asp代码6：

程序代码: (可修改后再运行)[ 复制代码 ] [ 运行代码 ]
<
from=lcase(Request.ServerVariables("HTTP_HOST"))
if left(from,4)="www." then
Response.redirect("index.asp") '此处为网站首页地址
else
response.Write( "/bbs/")
end if
>