<%@ Page Language="vb" AutoEventWireup="false" Codebehind="Default.aspx.vb" Inherits="FotoWebSite._Default"%> 
<%@ Register TagPrefix="uc1" TagName="Menu" Src="Algemeen/Menu.ascx" %> 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> 
<HTML> 
<HEAD> 
    <title>Welcome to photogallery.......</title>
    <meta content="Microsoft Visual Studio.NET 7.0" name="GENERATOR"> 
    <meta content="Visual Basic 7.0" name="CODE_LANGUAGE"> 
    <meta content="JavaScript" name="vs_defaultClientScript"> 
    <meta content="http://schemas.microsoft.com/intellisense/ie5" name
="vs_targetSchema"> 
    <LINK href="/FotowebSite/Styles.css" type="text/css" rel="StyleSheet"> 
    <SCRIPT language="javascript" src="\FotowebSite\Java\Pas.js">
</SCRIPT> 
</HEAD> 
<body background="/FotoWebSite/images/background_deepblue.g if" ms_
positioning="GridLayout"> 
    <form id="Form1" method="post" runat="server"> 
        <DIV style="DISPLAY: inline; FONT-SIZE: medium; Z-INDEX: 107; LEFT: 226px; WIDTH: 394px; COLOR: white; FONT-FAMILY: Arial; POSITION: absolute; TOP: 2px; HEIGHT: 42px" ms_positioning="FlowLayout">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbs p;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;  
           Photogallery ...................&nbsp;</DIV>
        &nbsp; 
        <asp:button id="btnZoek" style="Z-INDEX: 105; LEFT: 535px; POSITION: absolute; TOP: 123px" runat="server" Text="Search" BorderColor="AliceBlue" BorderStyle="Solid" BackColor="SteelBlue" ForeColor=
"White" Font-Names="Arial" Height="24px" Width="96px" BorderWidth="1px" CssClass="button"></asp:button><asp:dropdownlist id="cboCategorie" style=
"Z-INDEX: 101; LEFT: 269px; POSITION: absolute; TOP: 69px" runat="server" BackColor="AliceBlue" ForeColor="SteelBlue" Font-Names="Arial" Height="20px" Width="256px" AutoPostBack="True" CssClass="invoer"> 
        <asp:ListItem Value="0">&lt;Select a Categorie&gt;</asp:List
Item> 
    </asp:dropdownlist><asp:textbox id="txtNaam" style="Z-INDEX: 102; LEFT: 268px; POSITION: absolute; TOP: 123px" runat="server" BorderColor="Teal" BorderStyle="Solid" BackColor="AliceBlue" ForeColor="SteelBlue" Font-Names=
"Arial" Height="19px" Width="254px" BorderWidth="1px" CssClass="invoer"></asp:
textbox> 
    <DIV class="invoer" style="DISPLAY: inline; FONT-WEIGHT: lighter; FONT-SIZE: x-small; Z-INDEX: 103; LEFT: 156px; TEXT-TRANSFORM: none; WIDTH: 112px; COLOR: white; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 123px; HEIGHT: 16px; FONT-VARIANT: small-caps" ms_positioning="FlowLayout">
Name</DIV> 
    <DIV class="invoer" style="DISPLAY: inline; FONT-WEIGHT: lighter; FONT-SIZE: x-small; Z-INDEX: 104; LEFT: 156px; TEXT-TRANSFORM: none; WIDTH: 112px; COLOR: white; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 70px; HEIGHT: 16px; FONT-VARIANT: small-caps" ms_positioning="FlowLayout">
Category</DIV>
    <TABLE class="invoer" id="tblOverzicht" style="FONT-SIZE: x-small; Z-INDEX: 106; LEFT: 69px; COLOR: white; FONT-FAMILY: Arial; POSITION: absolute; TOP: 173px" cellSpacing="2" cellPadding="2" align="left" border="0" runat="server"> 
       <TR>
           <TD><asp:image id="Image1" runat="server" Height="1px" Width="10px" ImageUrl="/include/images/1pix.g if "></asp:image></TD> 
           <TD><asp:image id="Image2" runat="server" Height="1px" Width="10px" ImageUrl="/include/images/1pix.g if "></asp:image></TD> 
           <TD><asp:image id="Image3" runat="server" Height="1px" Width="10px" ImageUrl="/include/images/1pix.g if "></asp:image></TD> 
        </TR>
        <tr>
             <td style="BORDER-RIGHT: silver 1px ridge; BORDER-TOP: silver 1px ridge; FONT-WEIGHT: bold; BORDER-LEFT: silver 1px ridge; COLOR: gray; BORDER-BOTTOM: silver 1px ridge; FONT-STYLE: normal; FONT-FAMILY: Arial" align="middle">Picture</td>
             <td style="BORDER-RIGHT: silver 1px ridge; BORDER-TOP: silver 1px ridge; FONT-WEIGHT: bold; BORDER-LEFT: silver 1px ridge; COLOR: gray; BORDER-BOTTOM: silver 1px ridge; FONT-FAMILY: Arial">Photoname</td> 
             <td style="BORDER-RIGHT: silver 1px ridge; BORDER-TOP: silver 1px ridge; FONT-WEIGHT: bold; BORDER-LEFT: silver 1px ridge; COLOR: gray; BORDER-BOTTOM: silver 1px ridge; FONT-FAMILY: Arial">Quickview</td>
                   </tr>
             </TABLE>
       </form>
  </body>
</HTML>
´ҳĺ̨롣
#Region "Imports"
Imports System.Data.SqlClient
Imports System.Data.OleDb
Imports System.IO
Imports System.Drawing
Imports System.Drawing.Imaging 

#End Region 

Public Class _Default 

#Region "Controls" 

    Inherits System.Web.UI.Page 
    Protected WithEvents txtNaam As System.Web.UI.WebControls.TextBox
    Protected WithEvents btnZoek As System.Web.UI.WebControls.Button 
    Protected WithEvents tblOverzicht As System.Web.UI.HtmlControls.
HtmlTable 
    Protected WithEvents Image3 As System.Web.UI.WebControls.Image 
    Protected WithEvents Image2 As System.Web.UI.WebControls.Image 
    Protected WithEvents Image1 As System.Web.UI.WebControls.Image 
    Protected WithEvents cboCategorie As System.Web.UI.WebControls.
DropDownList 

#End Region 

#Region " Web Form Designer Generated Code "

    'Web Form DesignerҪ.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub Initialize
Component()
    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
    'CODEGEN:Web Form DesignerҪ
    'Ҫô༭޸.
    InitializeComponent()
End Sub 

#End Region 

#Region "Declaraties" 

    Public _strFototId As String 

#End Region

#Region "Events"

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
        if Not IsPostBack Then

          Call _InitCboCatNaam() 

        End if 
    End Sub
    Private Sub cboCategorie_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles

        cboCategorie.SelectedIndexChanged

    End Sub 

Private Sub btnZoek_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZoek.Click 

        Call ToonImages() 

    End Sub 

#End Region 

#Region "Procedures" 

    Private Sub _InitCboCatNaam() 

        Dim strSQL As String 
        Dim objItem As ListItem 

        ' SQL-statement 
        strSQL = "select Id, CategorieNaam from tblCategorie" 

        ' SQLDataReader 
        Dim connstr As String = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("dbImages.mdb") 
        Dim cnn As New OleDbConnection(connstr) 
        Dim cmd As New OleDbCommand(strSQL, cnn) 
        cnn.Open() 
        Dim dr As OleDbDataReader = cmd.ExecuteReader 

        If dr.Read = Nothing Then
           Exit Sub
        End if 

        While dr.Read 

            ' ListItem 
            objItem = New ListItem() 
            objItem.Text = dr.Item("CategorieNaam") 
            objItem.Value = dr.Item("Id")
            Me.cboCategorie.Items.Add(objItem) 
        End While
        cnn.Close()
        cnn.Dispose() 

    End Sub 

    Private Sub ToonImages() 

        Dim blnRecordsgevonden As Boolean
        Dim strSQL As String
        Dim objItem As ListItem
        ' SQL-statement
        strSQL = "Select * from tblfoto where Naam like '" & txtNaam.Text & "%' order by Naam"
        ' SQLDataReader
        Dim connstr As String = 
        "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & Server.
MapPath("dbImages.mdb")  
        Dim cnn As New OleDbConnection(connstr) 
        Dim cmd As New OleDbCommand(strSQL, cnn) 
        cnn.Open() 
        Dim dr As OleDbDataReader = cmd.ExecuteReader 
        Dim objDataTable As New DataTable() 
        blnRecordsgevonden = dr.Read 
         if blnRecordsgevonden = False Then 
        Else 
            Do While (blnRecordsgevonden)
                Me.tblOverzicht.Rows.Add(_MaakImagesRij(dr))
                blnRecordsgevonden = dr.Read 
             Loop
             cnn.Close()
            cnn.Dispose() 
        Endif
    End Sub
    Private Function _MaakImagesRij(ByVal objDataReader_IN As OleDb.Ole
DbDataReader) As HtmlTableRow 

        Dim objRow As New HtmlTableRow()
        Dim objCell As HtmlTableCell
        Dim objLiteral As Literal Dim objImage As HtmlImage
        Dim link As HyperLink objCell = New HtmlTableCell()
        objLiteral = New Literal()
        objImage = New HtmlImage()
        objImage.Width = 50
        objImage.Height = 50
        objImage.Border = 1 
        objImage.Src = 
        objDataReader_IN.Item("Filename") 
        objImage.Attributes.Add("onclick", "javascript:ToonPlaatje('" + URL_PAR_FOTO_ID + "','" + objDataReader_IN.Item("Id").ToString + "');") 
        objLiteral.Text = " "
        objCell.Attributes.Add("class", STYLE_CLASS_IMAGE_BUTTON)
        objCell.Controls.Add(objImage)     
        objCell.Controls.Add(objLiteral) 
        objRow.Cells.Add(objCell) objCell = New HtmlTableCell() 
        objLiteral = New Literal() objLiteral.Text = 
        objDataReader_IN.Item("Naam") objCell.Controls.Add(objLiteral) 
        objRow.Cells.Add(objCell) 

        objCell = New HtmlTableCell() 
        link = New HyperLink() 
        link.NavigateUrl = objDataReader_IN.Item("Filename") 
        link.Text = "Go--->" 
        link.Attributes.Add("class", STYLE_CLASS_LINK) 
        objCell.Controls.Add(link) 
        objRow.Cells.Add(objCell) 

        Return objRow 

    End Function 

    Private Function _ToonCategorie() 

        Dim blnRecordsgevonden As Boolean 
        Dim strSQL As String 
        Dim objItem As ListItem 

        strSQL = "Select * from tblfoto where Categorie like '" & cboCate
gorie.SelectedItem.Text & "%' order by Categorie" 
        Dim connstr As String = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("dbImages.mdb") 
        Dim cnn As New OleDbConnection(connstr) 
        Dim cmd As New OleDbCommand(strSQL, cnn) 
        cnn.Open() 
        Dim dr As OleDbDataReader = cmd.ExecuteReader 
        Dim objDataTable As New DataTable() 
        blnRecordsgevonden = dr.Read 
          if blnRecordsgevonden = False Then 
        Else 
            Do While (blnRecordsgevonden)
                Me.tblOverzicht.Rows.Add(_MaakImagesRij(dr))
                blnRecordsgevonden = dr.Read 
            Loop 


            cnn.Close() 
            cnn.Dispose() 
    End if 

  End Function 

#End Region

End Class 
