<%
Host = Lase (Request.Servervariables ("http_host"))
SelectCaseHost
JustChangethecasetoyourDomains
Fall "www.designbliss.com.au"
UntersucheredirectCommand
Antwort.Redirect "au/"
Fall "Designbliss.com.au"
Antwort.Redirect "au/"
Fall "e.free-bliss.com"
response.Redirect "vorne.asp"
Fall "www.website-design-australia.com"
Antwort.Redirect "WDA/"
Fall "Website-design-australia.com"
Antwort.Redirect "WDA/"
WeeusecaseelsetofixanyotherRequests
Fallelse
response.Redirect "vorne.asp"
Endauswahl
%>
我最近的应用
复制代码代码如下::
<%
Host = Lase (Request.Servervariables ("http_host"))
SelectCaseHost
Fall "www.huaihaiw.com"
Antwort.Redirect "Index2.asp"
Fall "xx.huaihai.tv"
Antwort.Redirect "Index1.asp"
Caseelse
Antwort.Redirect "Index2.asp"
Endauswahl
%>