Gérer les renvois selon le type de navigateur web
- Par: jack
- Le: 14.02.2009 17:08:36
- Dans: Active Server Page
Nous allons vous faire découvrir ce script qui permet de renvoyer le visiteur sur une page spécifique en fonction du navigateur et de la version utilisés.
C’est l’équivalent d’une fonction très courante en JavaScript, mais elle est traitée ici côté serveur et fonctionne don avec tous les navigateurs, même ceux qui ne traitent pas le langage JavaScript
Voici le script :
<%
Strval = Request.ServerVariables(” HTTP_USER_AGENT”)
If (Instr(1, Strval, ” AOL 3 ”, 1) <> 0) Then
Response.Redirect ” aol.asp ”
Elself ( Instr(1, Strval, ” MSIE 3 ”, 1) <> 0) Then
Response.Redirect ” IE3.asp ”
Elself ( Instr(1, Strval, ” MSIE 4 ”, 1) <> 0) Then
Response.Redirect ”IE4.asp ”
Elself ( Instr(1, Strval, ” MSIE 5 ”, 1) <> 0) Then
Response.Redirect ”IE5.asp ”
Elself ( Instr(1, Strval, ” Mozilla/4 ”, 1) <> 0) Then
Response.Redirect ” netscape4.asp ”
Else
Response.Redirect ”netscape3.asp ”
End If
%>
Dans ce script on teste l’identifiant de navigateur Web grâce à la fonction Request.ServerVariables(” http_USER_AGENT ”). Ensuite on cherche dans cet identifiant différentes chaines de caractères qui correspondent aux navigateurs les plus connus. Pour finir, on renvoie vers une page différente à l’aide de la fonction Response.Redirect vers une nouvelle page chaque fois. Cela permet d’obtenir des pages différentes pour chaque version de navigateur.
C’est l’équivalent d’une fonction très courante en JavaScript, mais elle est traitée ici côté serveur et fonctionne don avec tous les navigateurs, même ceux qui ne traitent pas le langage JavaScript
Voici le script :
<%
Strval = Request.ServerVariables(” HTTP_USER_AGENT”)
If (Instr(1, Strval, ” AOL 3 ”, 1) <> 0) Then
Response.Redirect ” aol.asp ”
Elself ( Instr(1, Strval, ” MSIE 3 ”, 1) <> 0) Then
Response.Redirect ” IE3.asp ”
Elself ( Instr(1, Strval, ” MSIE 4 ”, 1) <> 0) Then
Response.Redirect ”IE4.asp ”
Elself ( Instr(1, Strval, ” MSIE 5 ”, 1) <> 0) Then
Response.Redirect ”IE5.asp ”
Elself ( Instr(1, Strval, ” Mozilla/4 ”, 1) <> 0) Then
Response.Redirect ” netscape4.asp ”
Else
Response.Redirect ”netscape3.asp ”
End If
%>
Dans ce script on teste l’identifiant de navigateur Web grâce à la fonction Request.ServerVariables(” http_USER_AGENT ”). Ensuite on cherche dans cet identifiant différentes chaines de caractères qui correspondent aux navigateurs les plus connus. Pour finir, on renvoie vers une page différente à l’aide de la fonction Response.Redirect vers une nouvelle page chaque fois. Cela permet d’obtenir des pages différentes pour chaque version de navigateur.