单空间多域名绑定管理

单空间多域名绑定管理 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 %>