测试客户端屏幕状况

@#************************************** @# 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.
@#**************************************
<!-- Coded by Nicolai Kofoed, zelebris@theportal.dk -->
<%@ 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>

原文转自：http://www.ltesting.net