<%@ Import Namespace=\"System\" %>
<%@ Import Namespace=\"System.IO\" %>
<%@ Import Namespace=\"System.Drawing\" %>

<%@ Page language=\"vb\" %>

<script runat=\"server\">
    Dim FilePath As String = Server.MapPath(\"Talk.JPG\")
   
    Sub Page_Load(Sender As Object, E As EventArgs)
        Dim image As System.Drawing.Image = System.Drawing.Image.FromFile( FilePath )
        Dim g As Graphics = Graphics.FromImage(image)
        g.DrawImage(image, 0, 0, image.Width, image.Height)
        Dim f As Font = new Font(\"华文行楷\", 40)
        Dim b As Brush = new SolidBrush(Color.Black)
        Dim s As String = Left(Request.QueryString(\"str\"), 7)
        g.DrawString(s, f, b, 20, 190)
        image.Save(Response.OutputStream, System.Drawing.Imaging.ImageFormat.Jpeg)
        g.Dispose()
        image.Dispose()
    End Sub   
</script>