测试客户端屏幕状况

'************************************** ' 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.P*lanet-So*urce-C*ode.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.
'**************************************

T Language=VBScript> Sub window_onload
If screen.Then
window.navigate ("http://din*sid*e*.dk/640480/default.asp") End If
If screen.Then
window.navigate ("http://d*in*side.*dk/800600/default.asp") End If
If screen.Then
window.navigate ("http://di*n*s*ide.dk/1024768/default.asp") End If
End Sub