测试客户端屏幕状况

    '**************************************    ' 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)
    '     () '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.
    '**************************************    
    <!-- Coded by Nicolai Kofoed, zelebris@theportal.dk -->
    <%@ Language=VBscript %>    <script Language=VBscript>     Sub window_onload
     If screen.height = 480 Then
     window.navigate ("")      End If
     If screen.height = 600 Then
     window.navigate ("")     End If
     If screen.height = 768 Then
     window.navigate ("")     End If
     End Sub     </script>


原作者：不详
来 源：不详