[كود] كود تحميل وعرض الصور ( للمبتدئين ) مع طباعة صورة فوق صورة أو كتابة على الصور

PHP كود :

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">
<head id="Head1" runat="server">

    <title></title>
    <style type="text/css">

        #mar1
        {
            width: 927px;
        }
        </style>
    <link href="zxy.css" rel="stylesheet" type="text/css" />
</head>
<body>
    <form id="form1" runat="server">
    <div align="center" dir="rtl">

        <asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>

        <asp:FileUpload ID="FileUpload1" runat="server" style="width: 217px" />
        <asp:Button ID="btnAddImageAsWaterMark" runat="server" 
            onclick="btnAddImageAsWaterMark_Click" Text="????? ??????" Height="22px" />
    
        <br />
    <asp:Image ID="Image1" runat="server" Height="83px" Width="254px" 
            CssClass="Example_A" />

        <br />
    
        <asp:HyperLink ID="hp" runat="server"></asp:HyperLink>

        <div id="Block1" align="center" class="Example_D" dir="rtl" 
            style="border-left: 1px solid #D8D7D8; border-right: 1px solid #D8D7D8; border-top: 1px solid #D8D7D8; background-position: 50% bottom; height: auto; background-image: url('images/down.png'); background-repeat: repeat-x; background-color: #FFFFFF; width: 1015px; border-bottom-color: #D8D7D8;">
            <br />
        <table id="TabelM" bgcolor="White" cellpadding="0" 
            cellspacing="0" dir="rtl" 
            
                style="width: 95%; height: 120px; list-style-position: inside; font-size: 12pt;">
            <tr>
                <td align="right" dir="rtl" valign="top" style="text-align: center">
                    <asp:Label ID="Label6" runat="server" Text="??? ?????"></asp:Label>
<asp:DataList ID="DataList1" runat="server" RepeatColumns="10" Height="93px" 
            Width="937px" BackColor="White" style="text-align: center">
        <FooterStyle HorizontalAlign="Center" VerticalAlign="Middle" />
        <ItemTemplate>
            &nbsp;<a href='<%#Eval("FileName") %>' target ="_blank" "><img class ="Example_D" </a="" align="bottom" 
                src='<%#Eval("FileName") %>' style=" height: 50px; width: 50px">
            </img></a>
        </ItemTemplate>
        <HeaderStyle HorizontalAlign="Center" VerticalAlign="Middle" />
        </asp:DataList>

                </td>
            </tr>
            </table>
                <br />
            </div>

        <br />
        <BODY>

        </div>

    </form>
    <BODY>
        </body>
</html>

PHP كود :

Imports System.Collections.Generic
Imports System.Linq
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.IO
Imports System.Data

Partial Public Class _Default
    Inherits System.Web.UI.Page
    Dim gf As String = ""
    Dim filename As String = ""

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
        ShoImages(Server.MapPath("~/marked/"), "marked/")
    End Sub
    Protected Sub btnAddImageAsWaterMark_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnAddImageAsWaterMark.Click
        Static c
        c = c + 1
        If c > 1 Then Exit Sub
        ' gf = "gif" Or gf = "GIF" Or ?????? ??? ????? ???? ????? ???????? 
        gf = Right(FileUpload1.FileName, 3)
        If gf = "png" Or gf = "PNG" Or gf = "jpg" Or gf = "JPG" Or gf = "BMP" Or gf = "bmp" Then
            Dim imageByte As Byte() = FileUpload1.FileBytes
            Dim memStream As New MemoryStream(imageByte)
            Dim img As System.Drawing.Image = System.Drawing.Image.FromStream(memStream)
            Dim Mars As System.Drawing.Image = System.Drawing.Image.FromFile(Server.MapPath("images/fi.png"))
            Dim wdth As Integer = Mars.Width
            Dim higt As Integer = Mars.Height
            Mars.Dispose()
            '?????? ??????? ??????? ??? ??????
            Dim waterMarkimage As System.Drawing.Image = System.Drawing.Image.FromFile(Server.MapPath("images/fi.png"))
            Dim opacity As Graphics = System.Drawing.Graphics.FromImage(waterMarkimage)
            Dim imageRect As New Rectangle(0, 0, waterMarkimage.Width, waterMarkimage.Height)
            Dim brush As Brush = New TextureBrush(waterMarkimage, imageRect)
            opacity.FillRectangle(brush, imageRect)
            opacity.Save()
            Dim g As Graphics = System.Drawing.Graphics.FromImage(img)
            Dim drawString As [String] = " Ourlab.Net " & Chr(169) & Year(Date.Today)
            '????? ??
            Dim drawFont As New Font("Arial", 10, FontStyle.Bold)
            Dim drawBrush As New SolidBrush(Color.Red)
            '  Dim drawPoint As New PointF(0, (img.Height - wdth) / 2)
            '  g.DrawString(drawString, drawFont, drawBrush, drawPoint)

            ' ????? ???? ??????? ???????
            Dim point As New Point(0, img.Height - higt)
            g.DrawImage(waterMarkimage, point)


            Dim filename As String = Guid.NewGuid().ToString() & "." & gf
            img.Save(Server.MapPath("marked\" & filename))
            opacity.Dispose()
            memStream.Dispose()
            g.Dispose()
            waterMarkimage.Dispose()
            img.Dispose()
            Image1.ImageUrl = ("marked\" & filename)
            ' ??? ???? ??? ?????
            hp.Text = "<a href='" & Image1.ImageUrl & "'target=_blank >" & "Click here" & "</a>"
        Else
            Response.Write("<script>alert(' " & " This file " & FileUpload1.FileName & " not image or bad file " & " ')</script>")
        End If
        ShoImages(Server.MapPath("~/marked/"), "marked/")
    End Sub
    Private Sub ShoImages(ByVal FilePath As String, ByVal ImgDisplayPath As String)

        Dim dt As New DataTable()

        dt.Columns.Add("FileName", GetType(System.String))

        dt.Columns.Add("Size", GetType(System.String))

        Dim dr As DataRow = Nothing

        Dim dir As New System.IO.DirectoryInfo(FilePath)
        For Each fi As System.IO.FileInfo In dir.GetFiles()
            dr = dt.NewRow()

            dr(0) = ImgDisplayPath & fi.Name.ToString()

            dr(1) = fi.Length.ToString("N0")
            ''N0'formats the number with commas

            dt.Rows.Add(dr)
        Next
        '
        DataList1.DataSource = dt

        DataList1.DataBind()

    End Sub

End Class