新客网WWW.XKER.COM:致力做中国最专业的网络学院!
学院: 操作系统 - 网络应用 - 服务器 - 网络安全 - 工具软件 - 办公软件 - Web开发 - 数据库 - 网页设计 - 图形图像 - 媒体动画 - 硬件学堂 - 存储频道 - QQ专区
您的位置:首页 > 软件开发 > Web开发 > Asp教程 > 正文:测试客户端屏幕状况

测试客户端屏幕状况

新客网 XKER.COM 2003-04-10 来源: 收藏本文
'************************************** ' 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>
收藏】 【评论】 【推荐】 【投稿】 【打印】 【关闭
发表评论
要记得去论坛讨论,点击注册新会员匿名评论
评论内容:不能超过250字,需审核后才会公布,请自觉遵守互联网相关政策法规。
阅读排行
随机推荐
实用信息推荐