Comment utiliser ASP pour obtenir la résolution de l'écran client, nous pouvons y parvenir des manières suivantes :
Lorsque vous accédez à une page Web, utilisez js pour obtenir la résolution du navigateur, puis redirigez vers cette page Web et transmettez la résolution, puis recevez la résolution et stockez-la dans la session, et enfin redirigez vers la page Web précédente.
Code:
<%
'S'il s'est automatiquement déplacé pour exécuter cette instruction conditionnelle
si Bint(trim(request(sw))) > 0 alors
session (MyScreenWidth) = Bint (trim (request (sw)))
session (MyScreenHeight) = Bint (trim (request (sh)))
réponse.Redirect(session(FrontUrl))
finir si
%>
<%
'Visitez la page Web pour la première fois
si Bint(session(MyScreenWidth))=0 alors
si Bint(trim(request(sw))) = 0 alors
session (FrontUrl) = GetUrl ()
finir si
réponse.Write(<scr&ipt>)
si Instr(GetUrl(),?) > 0 alors
réponse.Write(window.location='&GetUrl()&&sw='+screen.width+'&sh='+screen.height;)
autre
réponse.Write(window.location='&GetUrl()&?sw='+screen.width+'&sh='+screen.height;)
finir si
réponse.Write(</scr&ipt>)
finir si
%>
<%=Votre résolution est : &session(MyScreenWidth)&*&session(MyScreenHeight)%>
<%
'Voici plusieurs fonctions
Fonction Bint(str)
Si IsNumeric(str) alors
Bint = Clng(chaîne)
Sinon, IsEmpty(str) alors
Bint = 0
Sinon, IsNull(str) alors
Bint = 0
Autre
Bint = 0
Terminer si
Fin de fonction
Fonction GetUrl()
sUrl = Requête.ServerVariables (URL)
sQueryString =
Pour chaque x dans Request.QueryString
sQueryString = sQueryString & & & x & = & Server.URLEncode (Requête (x))
Suivant
si len(sQueryString)>0 alors
sQueryString = droite(sQueryString,len(sQueryString)-1)
autre
sQueryString =
finir si
si len(sQueryString)>0 alors
GetUrl = sUrl & ? & sQueryString
autre
GetUrl = sUrl
finir si
Fin de fonction
%>