View Source Code

SourceFileName = "samples/aisatu.asp"

C:\inetpub\wwwroot\aspsample\samples\aisatu.asp

<html>

<head>
<title>あいさつサンプル</title>
</head>
<body>
<%
      iYear = Year(Now)
      iMonth = Month(Now)
      iDay = Day(Now)
      iHour = Hour(Now)
      iDateS1 = DateSerial(iYear,iMonth,iDay)
      iDateS2 = DateSerial(iYear+1,1,1)
      If iMonth = 12 And iDay = 24 Then
            Response.Write "<font size='5'>メリークリスマス！</font><BR>"
      ElseIf iMonth = 1 And (iDay => 1 And iDay <=10) Then
            Rem Response.Write "<bgsound src='Sound.wav'>"
            Rem Response.Write "<img src='gifs/gasho.gif'><BR>"
            Response.Write "<font size='5'>明けましておめでとうございます！</font><BR>"
      ElseIf iHour <  12 Then
            Response.Write "<font size='5'>おはようございます！</font><BR>"
      ElseIf iHour <  18 Then
            Response.Write "<font size='5'>こんにちわ！</font><BR>"
      Else
            Response.Write "<font size='5'>こんばんわ！</font><BR>"
      End If
      Response.Write iYear+1 & "年1月1日まであと、" & iDateS2-iDateS1 & "日です"
%>
</body>
</html>