测试客户端屏幕状况

March 25,2004

'************************************** ' Name: Send By Res
' Description:This code is coded to send
'    your users to a site matching their scre '    en resolution
' By: Nicolai Kofoed ' ' ' Inputs:None ' ' Returns:None '
'Assumes:None ' 'Side Effects:None ' 'Warranty:
'code provided by Planet Source Code(tm)
'    (http://www.Planet-Source-Code.com) 'as
'    is', without warranties as to performanc
'    e, fitness, merchantability,and any othe
'    r warranty (whether expressed or implied '    ).
'Terms of Agreement: 'By using this source code, you agree to
'    the following terms... ' 1) You may use this source code in per
'    sonal projects and may compile it into a
'    n .exe/.dll/.ocx and distribute it in bi
'    nary format freely and with no charge.
' 2) You MAY NOT redistribute this sourc
'    e code (for example to a web site) witho
'    ut written permission from the original
'    author.Failure to do so is a violation o '    f copyright laws.
' 3) You may link to this code from anot
'    her website, provided it is not wrapped    '    in a frame.
' 4) The author of this code may have re
'    tained certain additional copyright righ
'    ts.If so, this is indicated in the autho '    r's description.
'**************************************

<%@ Language=VBScript %> <SCRIPT Language=VBScript>       Sub window_onload
      If screen.height = 480 Then
         window.navigate ("http://dinside.dk/640480/default.asp")          End If
         If screen.height = 600 Then
            window.navigate ("http://dinside.dk/800600/default.asp")          End If
            If screen.height = 768 Then
                  window.navigate ("http://dinside.dk/1024768/default.asp")             End If
      End Sub       </SCRIPT>