vbscript实现的根据不同时间段显示不同的欢迎语

本例中，VBScript 代码调用 Document 对象的 Write 方法来传递字符串。所有操作都在客户端完成：无需指定服务器端操作、无 PERL痕迹、稳定、清晰！

代码如下:

<SCRIPT LANGUAGE="VBScript">
     ' 对 Script 标记进行语法分析时执行此行
     Call PrintWelcome

Sub PrintWelcome
      Dim h
      h = Hour(Now)
      If h < 12 then
       Document.Write "早上好！"
      ElseIf h < 17 then
       Document.Write "下午好！"
      Else
       Document.Write "晚上好！"
      End If
      Document.Write "欢迎进入 VBScript 世界。"
      Document.Write "现在是 "
      Document.Write Date() & " 的 " &Time() & "。"
     End Sub
    </SCRIPT>

赞 (0)

相关推荐

  • 将WMI中的DateTime类型转换成VBS时间的函数代码

    有两种方法可以转换,一种是自己写个函数解析: 复制代码 代码如下: Function WMIDateStringToDate(DateTime) WMIDateStringToDate = _ CDate(Mid(DateTime, 5, 2) &_ "/" &_ Mid(DateTime, 7, 2) &_ "/" &_ Left(DateTime, 4) &_ " " &_ Mid (DateT

  • VBS中获取系统本次及上次开关机时间的代码(WinXP/win2003/Win7兼容版)

    复制代码 代码如下: If (Lcase(Right(Wscript.FullName,11)) = "wscript.exe") Then CreateObject("WScript.Shell").Run("%Comspec% /C " &Chr(34)&"mode con cols=100&Cscript.exe //NoLogo "&Chr(34)& Wscript.Script

  • VBS实现将当前时间转换成UTC时间

    例如下面的代码在当前时间返回:1368299689 Option Explicit Dim dtmDate If WScript.Arguments.Named.Count > 0 Then Syntax With WScript.Arguments.Unnamed ' Check command line arguments If .Count = 0 Then dtmDate = Now If .Count > 0 Then dtmDate = .Item(0) If .Count >

  • VBS显示当前标准时间

    VBS显示当前标准时间,例如:执行下面的代码则显示:2013-05-11 19:10:11 Option Explicit Dim blnDate, blnTime Dim dtmDate Dim intDay, intFormat, intHour, intMin, intMonth, intSec, intUTC, intValid, intYear Dim strISO With WScript.Arguments ' Check command line arguments If .Un

  • vbscript获取文件的创建时间、最后修改时间和最后访问时间的方法

    复制代码 代码如下: set fso=createobject("Scripting.FileSystemObject") set fn=fso.GetFile("E:\AD.txt") msgbox "文件创建时间:"&fn.DateCreated msgbox "文件最后修改时间:"&fn.DateLastModified msgbox "文件最后访问时间:"&fn.DateLa

  • 校准系统时间的VBS代码

    复制代码 代码如下: 'VBS校准系统时间 BY BatMan Dim objXML, Url, Message Message = "恭喜你,本机时间非常准确无需校对!" Set objXML = CreateObject("MSXML2.XmlHttp") Url = "http://open.baidu.com/special/time/" objXML.open "GET", Url, False objXML.sen

  • 用VBS修改（设置）系统时间和日期的代码

    那天跟别人聊到 Y2K38 问题,于是想到一个恶作剧:用 VBS 把系统的时间修改到2038年1月19日3时14分07秒之后,这样某些依赖于 Unix 时间戳的程序就会出问题.那么怎样用 VBS 修改系统的时间呢? 最简单也是最没有技术含量的方法就是调用 cmd 的 date 和 time 命令: 复制代码 代码如下: 'Author: Demon 'Website: http://demon.tw 'Date : 2011/4/27 Dim WshShell Set WshShell = Cr

  • 用vbscript实现修改屏幕保护的等待时间长度

    问: 嗨,Scripting Guy!是否可以使用脚本来修改计算机上屏幕保护的等待时间长度? -- JN 答: 嗨,JN.出于某些原因,Microsoft 的脚本技术在涉及 Windows 设置和组件方面有些不足,例如屏幕保护.墙纸.任务栏和开始菜单等等.您可以使用 WMI(尤其是 Win32_Desktop 类)来读取这些值,但不能使用 Win32_Desktop 类(或是任何等价的类或对象)来修改这些值.为什么呢?老实说,我们也不知道: 幸好,这些值大都存储在 Windows 注册表中,而只

  • vbs获取当前时间日期的代码

    获取当前日期方法一: 复制代码 代码如下: Currentdate1=date()msgbox Currentdate1 获取当前日期方法二: 复制代码 代码如下: Currentdate2=year(Now)&"-"&Month(Now)&"-"&day(Now)msgbox Currentdate2 获取当前时间: 复制代码 代码如下: CurrentTime=Hour(Now)&":"&Min

  • vbscript实现的根据不同时间段显示不同的欢迎语

    本例中,VBScript 代码调用 Document 对象的 Write 方法来传递字符串.所有操作都在客户端完成:无需指定服务器端操作.无 PERL痕迹.稳定.清晰! 复制代码 代码如下: <SCRIPT LANGUAGE="VBScript">     ' 对 Script 标记进行语法分析时执行此行     Call PrintWelcome Sub PrintWelcome      Dim h      h = Hour(Now)      If h < 1

  • js控制不同的时间段显示不同的css样式的实例代码

    js函数,可以放到单独的js文件中也可以放到当前页的<head>标记之内 复制代码 代码如下: function getCSS(){        datetoday = new Date();        timenow=datetoday.getTime();        datetoday.setTime(timenow);        thehour = datetoday.getHours();        if (thehour<12)            disp

  • javascript实现根据时间段显示问候语的方法

    本文实例讲述了javascript实现根据时间段显示问候语的方法.分享给大家供大家参考.具体实现方法如下: 将以下代码加入HTML 的<body></body>之间: <script language="javaScript"> <!-- now = new Date(),hour = now.getHours() if(hour < 6){document.write("凌晨好!")} else if (hour &

  • Ant Design Vue table中列超长显示...并加提示语的实例

    我就废话不多说了,大家还是直接看代码吧~ <template> <a-row class="a-left"> <a-row> <p class="a-title">今日考勤状况</p> <a-row type="flex" justify="space-around"> <a-col :span="4" class="b

  • 用vbscript实现在消息框中显示一个超链接

    问: 嗨,Scripting Guy!可以在消息框中包含指向某个 Web 页面的超链接吗? -- CB 答: 嗨,CB.听起来您好像想要向用户显示一个消息框,并且希望在消息框中包含一个超链接,以便用户可以点击这个链接,从而获得更多信息.例如,假设某个用户试图访问一些资源,但被拒绝了.这种情况下,您可以弹出一个消息框,告诉用户访问被拒绝,然后向他们提供一个链接,这个链接指向的页面会告诉用户访问所需的权限.一般说来,这种办法会比简单地说"访问被拒绝"好得多. 那么,是否可以用脚本编写语言实

  • js定时显示广告的实现代码[已测]

    js定时显示广告的实现代码[已测]

    复制代码 代码如下: <script type="text/javascript"> function strToDate(str, ext) { if (str == null || str == '') return; var arys = new Array(); arys = str.split('-'); var newDate = new Date(arys[0], arys[1] - 1, arys[2], 9, 0, 0); if (ext) { newDa

  • Android使用BroadcastReceiver实现手机开机之后显示画面的功能

    本文实例讲述了Android使用BroadcastReceiver实现手机开机之后显示画面的功能.分享给大家供大家参考,具体如下: 在此例中介绍了怎样使用BroadcastRececiver.使用BroadcastReceiver需要继承这个类,并且重写public void onReceiver(Context context,Intent intent)这个方法,在这个方法中来添加想要实现的功能. 下面这个例子是实现android手机开机之后,所自动显示的画面,通过ImageView来引入一

  • 网页常用特效代码整理

    高级篇 1．不同时间段显示不同问候语 <Script Language="JavaScript"> <!-- var text=""; day = new Date( ); time = day.getHours( );  if (( time>=0) && (time < 7 )) text="夜猫子,要注意身体哦! " if (( time >= 7 ) && (time &

  • editplus 注册码

    EditPlus 是一款功能强大的文字处理软件.它可以充分的替换记事本,它也提供网页作家及程序设计师许多强悍的功能.支持 HTML.CSS.PHP.ASP.Perl.C/C++.Java.JavaScript.VBScript 等多种语法的着色显示.程序内嵌网页浏览器,其它功能还包含 FTP 功能.HTML 编辑.URL 突显.自动完成.剪贴文本.行列选择.强大的搜索与替换.多重撤销/重做.拼写检查.自定义快捷键,等等... editplus 注册码 用户名:jb51.net序列号:9A72F-

  • jquery插件Jplayer使用方法简析

    jquery插件Jplayer使用方法简析

    初识jplayer插件是因为它的兼容性是最好的,可以兼容到IE6,官网上对它兼容性有很详细的说明 这个是我选择使用它的首要原因. 现在从需求上来了解它的使用方法吧.第一个需求:MP3格式的音频在网页播放,样式如下: 刚看到这个需求的时候,还是觉着有些难度的.我从官网(http://www.jplayer.cn/)上下载了这个的压缩包,直接拿出了里面的例子套用(路径:/examples/blue.monday/demo-01-supplied-mp3.htm),不得不说,这也是学会使用这个插件的最

随机推荐