整容说文库 > 程序代码 > 教育资讯

如何用select case 条件判断____asp

来源:学生作业帮助网 编辑:整容说文库 时间:2019/07/17 03:13:02 程序代码
如何用select case 条件判断____asp程序代码
我朋友帮我写了一段不同域名访问同一网站显示不同的页面的代码
<%
if Cstr(Request.ServerVariables("SERVER_NAME"))="ppf.3322.org" then
response.redirect "ppf.asp"
end if
%>

如果域名很多,可以使用 select case 条件判断

上文提到的使用 select case 条件判断,我现在多域名访问,请问要如何写
Dim sDomain
Dim sPage
sDomain = Request.ServerVariables("SERVER_NAME")
Select case sDomain
case "ppf1.3322.org"
sPage = "ppf1.asp"
case "ppf2.3322.org"
sPage = "ppf2.asp"
case "ppf3.3322.org"
sPage = "ppf3.asp"
case else '缺省值
sPage = "ppf.asp"
End Select
Response.Redirect sPage 
程序代码