中文字幕免费精品_亚洲视频自拍_亚洲综合国产激情另类一区_色综合咪咪久久

實現方法：

在訪問網頁的時候使用js獲得瀏覽器的分辨率然后轉向本網頁并把分辨率傳出去，然后接收分辨率并把它存儲在session中，最后再轉到之前的網頁

代碼：

<%

'若已經自動轉向執行此條件語句

if Bint(trim(request("sw"))) > 0 then

   session("MyScreenWidth")=Bint(trim(request("sw")))

   session("MyScreenHeight") = Bint(trim(request("sh")))

   response.Redirect(session("FrontUrl"))

end if

%>

<%

'第一次訪問網頁

if Bint(session("MyScreenWidth"))=0 then

if Bint(trim(request("sw"))) = 0 then

   session("FrontUrl") = GetUrl()

end if

response.Write("<scr"&"ipt>")

if Instr(GetUrl(),"?") > 0 then

   response.Write("window.location='"&GetUrl()&"&sw='+screen.width+'&sh='+screen.height;")

else

   response.Write("window.location='"&GetUrl()&"?sw='+screen.width+'&sh='+screen.height;")

end if

response.Write("</scr"&"ipt>")

end if

%>

<%="你的分辨率是："&session("MyScreenWidth")&"*"&session("MyScreenHeight")%>

<%

'下面是幾個函數

Function Bint(str)

If IsNumeric(str) then

   Bint = Clng(str)

Elseif IsEmpty(str) then

   Bint = 0

Elseif IsNull(str) then

   Bint = 0

Else

   Bint = 0

End if

End function

Function GetUrl()

sUrl = Request.ServerVariables("URL")

sQueryString = ""

For Each x In Request.QueryString

sQueryString = sQueryString & "&" & x & "=" & Server.URLEncode(Request(x))

Next

if len(sQueryString)>0 then

sQueryString = right(sQueryString,len(sQueryString)-1)

else

sQueryString = ""

end if

if len(sQueryString)>0 then

GetUrl = sUrl & "?" & sQueryString

else

GetUrl = sUrl

end if

End function

%>

更多信息請查看IT技術專欄