Asp ile resim upload !

[wmismail]

Arkadaşlar forumlarda bu kodları arayan çok kişi var. Bende TNC de paylaşayım dedim:)

-----------------gonder.asp---------------------------

<form action="ekle.asp"   method="post" enctype="multipart/form-data"> 
Resim : 
<input type="file" name="resim"><p> 

<input type="submit" value="Gonder"> 

</p> 

</form>[/CODE]

------------------------ekle.asp--------------------------------

[CODE]<%
     Set Upload = Server.CreateObject("Persits.Upload.1" )
     Upload.Save "F:\ASP DENEMLER\proje\resim\picture"
     For Each File in Upload.Files
     resimadi = File.FileName
     Next
Response.Write " Resim Başarı İle Girildi Kontrol Et"
%>
<form action="ekle1.asp" method="post">
<input type="hidden" name="resimadi" value="<% Response.Write resimadi %>">
Resime Açıklama Girin <input type="text" name="konu">
<input type="submit" value="Gonder">
</form>[/CODE]

-----------------------ekle1.asp---------------------------------

[CODE]<%
     konu = Request.Form("konu" )
     resimadi = Request.Form("resimadi" )
     Set Conn = Server.CreateObject("ADODB.Connection" )
     Conn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.Mappath("./data.mdb" )
           Set Tbaglan = Server.CreateObject("ADODB.Recordset" )
     Sql=" Select * From resim"
     Tbaglan.Open Sql, Conn, 1, 3
           Tbaglan.Addnew
     Tbaglan("konu" ) = konu
     Tbaglan("resim" ) = resimadi
     Tbaglan.Update
     Response.Write " Başarı İle Girildi Kontrol Et"
%>
<a href="goster.asp?id=<% Response.Write Tbaglan("id" )%>">Resim ve Açıklamaya Bak</a>
<%
     Tbaglan.Close
     Set Tbaglan = Nothing
%>[/CODE]

---------------------------goster.asp----------------------------

[CODE]<%
     id = Request.QueryString("id" )
     Set Conn = Server.CreateObject("ADODB.Connection" )
     Conn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.Mappath("./data.mdb" )
           Set Tbaglan = Server.CreateObject("ADODB.Recordset" )
     Sql=" Select * From resim Where id="&id&""
     Tbaglan.Open Sql, Conn, 1, 3
%><table border="1" width="100%" id="table1">
     <tr>
          <td height="49"><% Response.Write Tbaglan("konu" )%></td>
     </tr>
     <tr>
          <td><img border="0" src="picture/<%Response.Write Tbaglan("resim" )%>" width="158" height="162"></td>
     </tr>
</table>[/CODE]

--------------------bittiiii---------------------------------------------

Aklıma Gelmişken kodların çalışması için data.mdb adında bir veritabanı açın ve içine id=otomatik sayı

konu = not

resim= not şeklinde bir tablo oluşturun tablonun ismide resim olsun

[tranemis]

ekle.asp nin içindeki

Upload.Save "F:\ASP DENEMLER\proje\resim\picture"

bbu kodda yer alan yolu değiştirecekmiyiz.?

[wmismail]

tabiki değişecek. Ben onu kendi localhostumda çalıştırdığım için yapmıştım.

Server da bu klasöre yazma izni vermeyi unutmayın.

[ersun73]

teşekkürler paylaşım için

persist le yapmışsın bende persist bileşeni yok yardımcı olurmusun

[0sk1]

bende tam onu söyleyecektim persist ' i ister kod..

http://www.aspjpeg.com/[/CODE]

temin edebilirsin ücretli bir bileşendir.