'************************************** ' 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.itcnw.com/
打印文档
推荐好友 
返回顶部
增大字体 
减少字体