賀状画像で時刻.aspx

<%@ Page Language="VB" %>
<%@ import Namespace="System.Drawing" %>
<%@ import Namespace="System.Drawing.Imaging" %>
<script runat="server">

    ' ページのコードをここに記述してください。
    '画像で時計!これを改造してアクセスカウンタでも作りたいなあ
    Sub Page_Load(sender As Object, e As EventArgs)
    
    'キャンバスサイズは120x15。ちょっとちいさめ。
        dim myBitmap as bitmap =  new Bitmap(120, 15)
        dim myGraphics as graphics = graphics.fromimage(mybitmap)
    
        myGraphics.FillRectangle(Brushes.White, 0, 0, 120, 15)
    
    'とりあえず英語サーバにも対応できるよう、1バイト系フォントを指定
        dim myfont as font = new font("tahoma",10)
        dim mystring as string =  DateTime.Now.ToString("yyyy.MMdd.HHmm.ss")
    
        myGraphics.DrawString(mystring,myfont, Brushes.Black, 0, 0)

    'じふのほうがきれいにみえるとおもう。
        Response.ContentType = "image/JPEG"
        myBitmap.Save(Response.OutputStream,ImageFormat.Jpeg)
    
    End Sub

</script>