wmismail Posted December 4, 2007 Share Posted December 4, 2007 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 Link to comment Share on other sites More sharing options...
tranemis Posted December 24, 2007 Share Posted December 24, 2007 ekle.asp nin içindeki Upload.Save "F:\ASP DENEMLER\proje\resim\picture" bbu kodda yer alan yolu değiştirecekmiyiz.? Link to comment Share on other sites More sharing options...
wmismail Posted December 24, 2007 Author Share Posted December 24, 2007 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. Link to comment Share on other sites More sharing options...
ersun73 Posted November 6, 2009 Share Posted November 6, 2009 teşekkürler paylaşım için persist le yapmışsın bende persist bileşeni yok yardımcı olurmusun Link to comment Share on other sites More sharing options...
0sk1 Posted November 6, 2009 Share Posted November 6, 2009 bende tam onu söyleyecektim persist ' i ister kod.. http://www.aspjpeg.com/[/CODE] temin edebilirsin ücretli bir bileşendir. Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.