• 30-09-2007, 18:51:11
    #19
    Kimlik doğrulama veya yönetimden onay bekliyor.
    resim yukluyorum

    resim eklerken iki şekilde aynı resimden iki tane yukluyo birinin adı onizleme_reim.jpg diğeri resim.jpg orjinal resmin isminin başına onizlme_ekliyo < yanı eklıyemıyo > resmin ismini değiştiremiyor ben scripte onzileme_ yazan yerleri sildim şu an bi sorun yok tek sorun ilk ilan eklerken resim yuklenmıyo belkı kodda bi hata vardır dıye yazdım

    not :dediğin şeyi kapayamıyorum host sahibine bildirdim beklıyorum
  • 30-09-2007, 18:52:53
    #20
    CeSuR adlı üyeden alıntı: mesajı görüntüle
    sunucunda persits asp.jpeg bileşeni yüklü olması lazım..

    peki bunu silsem düzelirmi

    Set Jpeg = Server.CreateObject("Persits.Jpeg")
  • 30-09-2007, 22:19:49
    #21
    <%
     'On Error Resume Next
     Server.ScriptTimeout = 240
     Set Upload = Server.CreateObject("Persits.Upload")
     Set Jpeg = Server.CreateObject("Persits.Jpeg")
     Upload.CodePage = 1254
     Upload.SetMaxSize 1024000, True
     Upload.OverWriteFiles = False
     Upload.Save Server.MapPath("images")
     hata = 0
     For Each File in Upload.Files
         If File.ImageType <> "JPG" or File.Size > 256000 Then
          File.Delete
       hata = hata + 1
      Else
       Jpeg.Open File.Path
       Jpeg.Width = 100
       Jpeg.Height = 100
       Jpeg.Save Server.MapPath("images") & "\onizleme_" & File.FileName
      End if
     Next
     if Err.Number = 8 Then
     hata = hata + 1
     End if
     hata = Cstr(hata)
     cb_oncelikli_listeleme = Session("oncelikli")
     cb_vitrin = Session("vitrin")
     cb_flash_ilanlar = Session("flash")
     if cb_oncelikli_listeleme = "True" or cb_vitrin = "True" or cb_flash_ilanlar = "True" Then
      adres = "default.asp?icerik=16&cbol="&cb_oncelikli_listeleme&"&cbv="&cb_vitrin&"&cbfi="&cb_flash_ilanlar&"&hata="& hata
     Else
      adres = "default.asp?icerik=2&hata="& hata
     End if
     strSQL = "SELECT * FROM ilanlar WHERE ekleyen ="& Session("OnlineUyeId") &" ORDER BY id DESC"
     Set ks1 = baglanti.Execute(strSQL)
     For Each File in Upload.Files
      if File.ImageType = "JPG" And File.Size <= 256000 Then
       strSQL = "INSERT INTO ilan_resimleri (ilan_id, resim) VALUES ('"&CSTR(ks1("id"))&"', '"&File.FileName&"')"
       baglanti.Execute(strSQL)
      End if
     Next
     ks1.Close
     Set ks1 = Nothing
     Set Upload = Nothing
     Set Jpeg = Nothing
    %>
    Yukarıda verdiğiniz kodların yerine bu verdiğimi yaparsanız resimlerin başına onizleme_ koyar, yapamazsanız profesyonel yardım almanızı öneririm.

    Ufak bir ayrıntı: Resimlerin yüklendiği klasörün okuma/yazma ve değiştirme yetkilerinin verilmiş olması gerekiyor.

    Kolay gelsin.
  • 01-10-2007, 00:10:43
    #22
    Ron adlı üyeden alıntı: mesajı görüntüle


    Yukarıda verdiğiniz kodların yerine bu verdiğimi yaparsanız resimlerin başına onizleme_ koyar, yapamazsanız profesyonel yardım almanızı öneririm.

    Ufak bir ayrıntı: Resimlerin yüklendiği klasörün okuma/yazma ve değiştirme yetkilerinin verilmiş olması gerekiyor.

    Kolay gelsin.
    şu an her hangi bi problemim kalmadı ben onizleme yazan yerleri sildim resim yukleme normal gösterim normal kendimce caresini buldum

    emreemlak.info bakabilirsiniz

    sorunum ilk ilan eklerken yine aynı hatayı veriyo sayfa görüntülenemiyo

    resim ekleyebildiğim için pek onemi yok yardımların için teşekkürler

    mail sorunusa serverdan kaynaklanıyormuş indirdiğim yerde yazıyodu vs vs server olması gerekmış bendekı o diğilmiş