ASP / ASP.Net Programlama İle Döküman yönetimi access database inde file upload and view as binary

Kullanıcı Adı :

Şifre :

Makale Kategorileri

Anasayfa

ACPI [0]

Action Script [5]

Ajax [7]

ASP [12]

ASP.NET [23]

Assembly [3]

Bash [1]

C [4]

C# [9]

C++ [10]

Cobol [1]

Delphi [31]

Flash [5]

Html [9]

JAVA [36]

Java Script [12]

JSF [2]

Jsp [5]

Lua [1]

Matlab [2]

MySQL [30]

Oracle [1]

Pascal [31]

Perl [4]

Photoshop [2]

PHP [150]

Python [8]

REXX [6]

Ruby [1]

SEO [5]

Visual Basic [37]

Gorsel Ders Kategorileri

Asp [25]

Asp.Net [5]

Csharp [33]

Delphi [3]

Fireworks [4]

Flash [10]

Java Script [0]

Photoshop [0]

PHP [54]

Vb.Net [9]

Visual Basic [4]

Dil

English

Deutsch

deutsch

Reklam Alani

ASP / ASP.Net Programlama İle Döküman yönetimi access database inde file upload and view as binary

ASP.Net Programlama İle Döküman yönetimi access database inde file upload and view as binary
Yazar: by_Coder Eklenme: 05/04/08 Okunma: 146

<%@ Page Language="VB" debug=true %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<% ''////////////////////////////////////////////////////////////////
''File uploading by Türkay Biliyor, turkay.biliyor@tekersan.com.tr
''///////////////////////////////////////////////////////////////
Dim objConnection As OleDbConnection
Dim objCommand As OleDbCommand
Dim myReader As OleDbDataReader
Dim strSQLQuery As String
If Request.QueryString("mode") = "view" Then
objConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("Files.mdb") & ";")
strSQLQuery = "SELECT * FROM Files WHERE ID =" & Request.QueryString("file_id") & " "
objCommand = New OleDbCommand(strSQLQuery, objConnection)
objConnection.Open()
myReader = objCommand.ExecuteReader(System.Data.CommandBehavior.CloseConnection)
If myReader.Read() Then
Dim fileData() As Byte = CType(myReader.Item("FileData"), Byte())
Response.Clear()
Response.AppendHeader("Content-Disposition", "attachment; filename=" + myReader.GetString(1))
Response.ContentType = myReader.GetString(3)
Response.OutputStream.Write(fileData, 0, fileData.Length)
Else
Response.Write("<p>No File to view.</p>")
End If
objConnection.Close()
Else
%><html>
<body>
<script language="VB" runat="server">
Sub btnUpload_OnClick(ByVal Src As Object, ByVal E As EventArgs)
If Fileupload1.HasFile Then
Dim files As HttpFileCollection = Request.Files
Dim i As Integer = 0
While i < Request.Files.Count
Dim file As HttpPostedFile = files(i)
If file.ContentLength > 0 Then
UploadFile(file)
End If
System.Math.Min(System.Threading.Interlocked.Increment(i), i - 1)
End While
files = Nothing
Else
Response.Write("<p>Chose a file.</p>")
End If
End Sub

Sub UploadFile(ByVal file As HttpPostedFile)
Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("Files.mdb") & ";")
Dim CmdText As String = "INSERT INTO Files(FileName, FileSize, ContentType, FileData) VALUES (@FileName, @FileSize, @ContentType, @FileData)"
Dim fileName As String = Nothing
Dim contentType As String = file.ContentType
Dim fileLength As Integer = file.ContentLength
Dim fileData(fileLength) As Byte
Dim lastPos As Integer = file.FileName.LastIndexOf("\"c)
fileName = file.FileName.Substring(System.Threading.Interlocked.Increment(lastPos))
file.InputStream.Read(fileData, 0, fileLength)
Try
Dim cmd As OleDbCommand = New OleDbCommand(CmdText, con)
Try
Dim pms As OleDbParameterCollection = cmd.Parameters
pms.Add("@FileName", OleDbType.VarChar, 50)
pms.Add("@FileSize", OleDbType.Integer)
pms.Add("@ContentType", OleDbType.VarChar, 50)
pms.Add("@FileData", OleDbType.VarBinary)
pms("@FileName").Value = fileName
pms("@FileSize").Value = fileLength
pms("@ContentType").Value = contentType
pms("@FileData").Value = fileData
pms = Nothing
con.Open()
cmd.ExecuteNonQuery()
Finally
CType(cmd, IDisposable).Dispose()
End Try
Finally
CType(con, IDisposable).Dispose()
End Try
End Sub
</script>
<%
objConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("Files.mdb") & ";")
If Request.QueryString("delete") <> "" Then
strSQLQuery = "Delete from Files where ID = " & Request.QueryString("delete") & " "
objCommand = New OleDbCommand(strSQLQuery, objConnection)
objConnection.Open()
objCommand.ExecuteNonQuery()
objConnection.Close()
End If
strSQLQuery = "SELECT * FROM Files"
objCommand = New OleDbCommand(strSQLQuery, objConnection)
objConnection.Open()
myReader = objCommand.ExecuteReader(System.Data.CommandBehavior.CloseConnection)

%>
<table bgcolor="gainsboro" border="1">
<form runat="server">
<tr bgcolor="navy">
<td colspan="4">
<asp:button id="btn_Upload" runat="server" text="Upload" tabindex="2" OnClick = "btnUpload_OnClick"></asp:button>
<asp:fileupload id="Fileupload1" runat="server" />
</td>
</tr>
</form>
<% If myReader.HasRows Then%>
<tr bgcolor="navy">
<td><font color=white face=tahoma size=2>FileName</font></td>
<td><font color=white face=tahoma size=2>FileSize</font></td>
<td><font color=white face=tahoma size=2>ContentType</font></td>
<td><font color=white face=tahoma size=2>Delete</font></td>
</tr>
<%While myReader.Read()%>
<tr>
<td><a href=main.aspx?file_id=<%=myReader.GetInt32(0)%>&mode=view><font face=tahoma size=2><%=myReader.GetString(1)%></font></a> </td>
<td><font face=tahoma size=2><%=formatnumber(myReader.GetInt32(2).ToString()/1000,2)%> Kb</font></td>
<td><font face=tahoma size=2><%=myReader.GetString(3)%></font></td>
<td><a href="main.aspx?delete=<%=myReader.GetInt32(0).ToString()%>"><font face=tahoma size=2 color=navy>Delete</font></a>
</tr>
<%End While
Else
Response.Write("<p>No records.</p>")
End If
myReader.Close()
objConnection.Close()
%>
</table>
</body>
</html>
<%End if%>

türkay biliyor
turkay.biliyor@tekersan.com.tr

Taglar: 10 dkda ASP site yap ASP Gorsel Dersler ASP programlama ile Basit bir Toplist yapimi Asp sayfalari veritabani kullanmadan sifreleme Yontemi ASP Ile Basit Bir Toplist Uygulamasi ASP Ile Mail Yollama ASP Ile Resim Thumb Yapmak ASPNet Programlama Ile Dokuman yonetimi access database inde file upload and view as binary E-Mail Kontrol Fonksiyonu Html Kodlarini Sayfada Gosterelim Metin Dosyasina Baglanti ve Veri Okuma Metin Dosyasina Veri Yazma

Isminiz:

E-mail adresiniz:

Güvenlik Kodu:

Istatistikler ,
Sitemizde su anda 31 kategori, 453 makale , 147 görsel ders ve 136 Ziyaretci bulunmaktadir...
Toplam üye sayimiz : 951

| Site Haritasi |

"Ne Aradığını Bilmeyen Bulduğunun Farkına Varamaz "

ACPI Programlama dili, Action Script Programlama dili, Ajax Programlama dili, ASP Programlama dili, ASP.NET Programlama dili, Assembly Programlama dili, Bash Programlama dili, C Programlama dili, C# Programlama dili, C++ Programlama dili, Cobol Programlama dili, Delphi Programlama dili, Flash Programlama dili, Html Programlama dili, JAVA Programlama dili, Java Script Programlama dili, JSF Programlama dili, Jsp Programlama dili, Lua Programlama dili, Matlab Programlama dili, MySQL Programlama dili, Oracle Programlama dili, Pascal Programlama dili, Perl Programlama dili, Photoshop Programlama dili, PHP Programlama dili, Python Programlama dili, REXX Programlama dili, Ruby Programlama dili, SEO Programlama dili, Visual Basic Programlama dili,

Reklam alanı