<globalization requestEncoding="utf-8" responseEncoding="utf-8" /> 
<httpRuntime executionTimeout="900" maxRequestLength="1024" //˴ΪϴļСıǡ useFullyQualifiedRedirectUrl="false" minFreeThreads="8"  minLocalRequestFreeThreads="4" appRequestQueueLimit="1000" 
/>
 
<%@ Page Language="vb" AutoEventWireup="false" Codebehind=
"Upload.aspx.vb" Inherits="FotoWebSite.Upload"%> 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> 
<HTML>
<HEAD>
    <title>Upload</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">
</HEAD>
<body background="/FotoWebSite\images\newmark8.jpg" MS_POSITIONING
="GridLayout"> 
    <form id="Form1" method="post" runat="server"> 
        <INPUT id="OpenFile" title="Open File........" style="Z-INDEX: 101; LEFT: 192px; WIDTH: 345px; COLOR: steelblue; FONT-FAMILY: Arial; POSITION: absolute; TOP: 262px; HEIGHT: 24px; BACKGROUND-COLOR: aliceblue"
            type="file" size="38" name="OpenFile" runat="server">
        <DIV style="DISPLAY: inline; FONT-WEIGHT: lighter; FONT-SIZE: x-small; Z-INDEX: 108; LEFT: 80px; TEXT-TRANSFORM: none; WIDTH: 112px; COLOR: white; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 152px; HEIGHT: 16px; FONT-VARIANT: small-caps" 
            ms_positioning="FlowLayout">Note</DIV>
        <DIV style="DISPLAY: inline; FONT-WEIGHT: lighter; FONT-SIZE: x-small; Z-INDEX: 107; LEFT: 80px; TEXT-TRANSFORM: none; WIDTH: 112px; COLOR: white; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 120px; HEIGHT: 16px; FONT-VARIANT: small-caps" 
            ms_positioning="FlowLayout">Name</DIV> 
        <asp:textbox id="txtNaam" style="Z-INDEX: 102; LEFT: 191px; POSITION: absolute; TOP: 118px" runat="server" 
        Height="19px" Width="245px" BorderStyle="Solid" BorderWidth
="1px" Font-Names="Arial" ForeColor="SteelBlue" 
        BorderColor="Teal" BackColor="AliceBlue" CssClass="invoer">
</asp:textbox><asp:textbox id="txtBeschrijving" style="Z-INDEX: 103; LEFT: 191px; POSITION: absolute; TOP: 147px" 
        runat="server" Height="106px" Width="245px" TextMode=
"MultiLine" BorderStyle="Solid" BorderWidth="1px" Font-Names="Arial" 
ForeColor="SteelBlue" BorderColor="Teal" BackColor="AliceBlue" 
        CssClass="invoer"></asp:textbox><asp:dropdownlist id="cboCategorie" style="Z-INDEX: 104; LEFT: 191px; POSITION: absolute; TOP: 88px" 
            runat="server" Height="20px" Width="245px" Font-Names=
"Arial" ForeColor="SteelBlue" BackColor="AliceBlue" CssClass="invoer"> 
            <asp:ListItem Value="0">&lt;Select a Category&gt;
</asp:ListItem>
         </asp:dropdownlist><asp:button style="Z-INDEX: id="btnSave" 105; LEFT: 190px; POSITION: absolute; TOP: 297px" runat="server" 
            Height="26px" Width="83px" Text="Save" BackColor="SteelBlue" BorderColor="AliceBlue" ForeColor="White" Font-Names="Arial" 
            BorderStyle="Solid" CssClass="button"></asp:button>
        <DIV inline; FONT-WEIGHT: lighter; style="DISPLAY: FONT-SIZE: x-small; Z-INDEX: 106; LEFT: 80px; TEXT-TRANSFORM: none; WIDTH: 112px; COLOR: white; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 88px; HEIGHT: 16px; FONT-VARIANT: small-caps" 
            ms_positioning="FlowLayout">Categoriy</DIV>
        <IMG style="Z-INDEX: 109; LEFT: 0px; POSITION: absolute; TOP: 0px; HEIGHT: 64px" height="64"
            alt="" src="/FotoWebSite\images\stripe.jpg" width="1024">    
        <DIV style="DISPLAY: inline; FONT-SIZE: medium; Z-INDEX: 110; LEFT: 280px; WIDTH: 208px; COLOR: #6699cc; FONT-FAMILY: Arial; POSITION: absolute; TOP: 0px; HEIGHT: 24px" 
            ms_positioning="FlowLayout">ϴͼƬ&nbsp;</DIV>
        <asp:HyperLink id="hpLink" style="Z-INDEX: 111; LEFT: 272px; POSITION: absolute; TOP: 352px" runat="server"
             CssClass="button" Width="96px" Height="16px" NavigateUrl=
"EditData.aspx">Edit, Delete data</asp:HyperLink>
    </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 Upload

#Region "Controls" 

    Inherits System.Web.UI.Page
    Protected WithEvents cboCategorie As System.Web.UI.WebControls.
DropDownList 
    Protected WithEvents txtNaam As System.Web.UI.WebControls.TextBox 
    Protected WithEvents txtBeschrijving As System.Web.UI.WebControls.
TextBox 
    Protected WithEvents OpenFile As System.Web.UI.HtmlControls.
HtmlInputFile 
    Protected WithEvents hpLink As System.Web.UI.WebControls.HyperLink 
    Protected WithEvents btnSave As System.Web.UI.WebControls.Button 

#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 "Events" 

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

        if Session("SV_USER_ID") = Nothing Then
           Response.Redirect("member.aspx")
        Endif 

        Call _InitCboCatNaam() 
    End Sub 

    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click 
        Dim connstr As String = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("dbImages.mdb") 
        Dim cnn As New OleDbConnection(connstr) 
        Dim cmdInsert As New OleDbCommand() 
        Dim strCateGorie, strNaam, strBeschrijving, strFileName As String 

        strCateGorie = cboCategorie.SelectedItem.Text 
        strNaam = txtNaam.Text 
        strBeschrijving = txtBeschrijving.Text 
        strFileName = OpenFile.Value 

        cmdInsert.CommandText = "Insert Into tblfoto " _ 
        & "(Categorie,Naam,Beschrijving,Filename) " _ 
        & "Values (" _ 
        & "'" & strCateGorie & "', " _ 
        & "'" & strNaam & "', " _ 
        & "'" & strBeschrijving & "', " _ 
        & "'" & strFileName & "')" 

        cmdInsert.Connection = cnn 
        cmdInsert.Connection.Open() 
        cmdInsert.ExecuteNonQuery() 
        cnn.Close() 

        Call clearfields() 
        cboCategorie.Items.Clear() 
        Call _InitCboCatNaam() 

    End Sub 

#End Region 

#Region "Procedures" 

    Private Sub _InitCboCatNaam() 

        Dim strSQL As String 
        Dim objItem As ListItem 

        strSQL = "select CategorieNaam from tblCategorie" 

        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 
        Endif 


        While dr.Read 

            objItem = New ListItem()

            objItem.Text = dr.Item("CategorieNaam")
            Me.cboCategorie.Items.Add(objItem)

        End While 

        cnn.Close()
        cnn.Dispose() 

    End Sub 

    Private Sub clearfields() 

        txtNaam.Text = "" 
        txtBeschrijving.Text = "" 

    End Sub

#End Region 

End Class 

