<%@ 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>