ASP を使用してクライアントの画面解像度を取得する方法は、次の方法で実現できます。
Web ページにアクセスするとき、js を使用してブラウザの解像度を取得し、この Web ページにリダイレクトして解像度を渡し、次に解像度を受信してセッションに保存し、最後に前の Web ページにリダイレクトします。
コード：
<%
'この条件文を実行するように自動的に移行した場合
if Bint(trim(request(sw))) > 0 then
session(MyScreenWidth)=Bint(trim(request(sw)))
session(MyScreenHeight) = Bint(trim(request(sh)))
応答.リダイレクト(セッション(FrontUrl))
終了する場合
%>
<%
' 初めて Web ページにアクセスします
Bint(session(MyScreenWidth))=0 の場合
Bint(trim(request(sw))) = 0 の場合
セッション(FrontUrl) = GetUrl()
終了する場合
response.Write(<スクリプト&ipt>)
if Instr(GetUrl(),?) > 0 then
response.Write(window.location='&GetUrl()&&sw='+screen.width+'&sh='+screen.height;)
それ以外
response.Write(window.location='&GetUrl()&?sw='+screen.width+'&sh='+screen.height;)
終了する場合
response.Write(</script&ipt>)
終了する場合
%>
<%=あなたの解像度は: &session(MyScreenWidth)&*&session(MyScreenHeight)%>
<%
'以下はいくつかの関数です
関数 Bint(str)
IsNumeric(str) の場合
ビント = Clng(str)
Elseif IsEmpty(str) then
ビント = 0
Elseif IsNull(str) の場合
ビント = 0
それ以外
ビント = 0
次の場合に終了
終了機能
関数 GetUrl()
sUrl = リクエスト.サーバー変数(URL)
sQueryString =
Request.QueryString の各 x について
sQueryString = sQueryString & & & x & = & Server.URLEncode(Request(x))
次
len(sQueryString)>0 の場合
sQueryString = right(sQueryString,len(sQueryString)-1)
それ以外
sQueryString =
終了する場合
len(sQueryString)>0 の場合
GetUrl = sURL & ? & sQueryString
それ以外
GetUrl = sURL
終了する場合
終了機能
%>