荔园在线
荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: gary (★有所属), 信区: Homepage
标 题: 测试客户端屏幕状况
发信站: BBS 荔园晨风站 (Wed Oct 18 10:27:00 2000), 转信
'************************************** ' 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
' 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>
--
Ｉ Ｂelieve Ｉ Ｃan ...
_____________________________________________________
欢迎光临我的主页 Ｎｅｔｄｒｅａｍｓ!
※ 来源:·BBS 荔园晨风站 bbs.szu.edu.cn·[FROM: 192.168.18.239]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接：深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店