Bron code: redirectie script
<%
'------------------------------------------------------------------------------------------------------------------------------------
' Redirectie script. Door de domein- en directory namen aan te passen en eventueel
' extra 'case' statements toe te voegen is het eenvoudig mogelijk om bezoekers
' afhankelijk van de ingevoerde domeinnaam naar de juiste subdirectory te herleiden.
'------------------------------------------------------------------------------------------------------------------------------------
'// Geen headers naar de browser schrijven.
RESPONSE.BUFFER = TRUE
'// Bekijken welke domein de bezoeker oprvraagt. Afhankelijk
'// daarvan de bezoeker naar de juiste directory brengen.
Select Case LCase(Request.ServerVariables("SERVER_NAME"))
'// Een tweede domein redirecten is mogelijk.
Case "www.uwdomein2.nl"
'// Flush en End niet verwijderen!
Response.Redirect "/mijndomein2/"
Response.Flush: Response.End
'// Een subdomein redirecten is ook mogelijk.
Case "www.sub.uwdomein.nl", "sub.uwdomein.nl"
Response.Redirect "/mijnsubweb/"
Response.Flush: Response.End
End Select
%>
<html>
<html>
<head>
<title>Practical Active Server Pages : Redirectie</title>
<!-- Practical ASP wordt u aangeboden door Nedcomp Hosting -->
</head>
<body bgcolor="#FFFFFF">
<!-- Hier komt de bezoeker wanneer het hoofd-domein wordt
opgevraagt, www.uwdomein.nl -->
<p>Welkom op onze website!</p>
</body>
</html>
|
Producten en diensten
Algemeen