Şimdi Ara

Persits.Upload klasöre resim yükleme problemi

Sıcak Fırsatlarda Tıklananlar

Editörün Seçtiği Fırsatlar

Daha Fazla

Bu Konudaki Kullanıcılar: Daha Az

2 Misafir (1 Mobil) - 1 Masaüstü,

1 Mobil

5 sn

1
Cevap

1
Favori

446
Tıklama

Daha Fazla
İstatistik

Konu İstatistikleri Yükleniyor

Konuya Özel

0 oy

Öne Çıkar

Cevapla

Sayfa: 1

Giriş

Mesaj

Merhaba

Aşağıda verdiğim kodlarla resim ekleme yaptığım sırada hiçbir hata almıyorum fakat resim "uploads" klasörüne yüklenmiyor. Plesk panelden gerekli izinleri verdim fakat değişen birşey olmadı. Konu ile ilgili destek olursanız sevinirim. iyi çalışmalar.



<%
Set Upload = Server.CreateObject("Persits.Upload")

Upload.Save
Upload.SetMaxSize 90000, True
Set File1 = Upload.Files("file1")
File1.SaveAs StrAPPL_PHYSICAL_PATH & "tr" & StrFolderPath & Session("urunID") & "_urun1" & File1.Ext
UpdateSQL = "update anasayfa Set "

UpdateSQL = UpdateSQL & "image1='" & "uploads/" & Session("urunID") & "_urun1" & File1.Ext & "' WHERE CatID=" & Session("urunID")

ObjConn.Execute(UpdateSQL)

Session("urunID") = ""
Response.Redirect "../admin/error.asp?StrMsg=Resim/ok.&StrRefer=slayt.asp"
Response.End

Set File1 = Nothing

Set Upload = Nothing
%>

------------------------------------------------------------------------------------------------------------------------------------------------------

"admin_connections.asp" sayfasının içeriği

<%

On Error Resume Next

Set ObjConn = CreateObject("ADODB.Connection")

StrDbName = "../db/veritabani.mdb"
StrVirtualDbName = "../db/veritabani.bak"

StrConn = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(StrDbName)

ObjConn.Open StrConn

If CStr(Err.Number) <> 0 Then
Response.Redirect "help.asp?c=9&e=" & Err.Number & "&s=" & Err.Source & "&m=" & Err.Description
End If
%>

------------------------------------------------------------------------------------------------------------------------------------------------------------

"pagesettings.asp" sayfasının içeriği

<%
Response.Buffer = True
Response.Expires = 0
Response.Expiresabsolute = Now() - 1
Response.CacheControl = "no-cache"
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"

Set ObjSettings = Createobject("ADODB.Recordset")
ObjSettings.open "SELECT * FROM TblSettings", ObjConn , 3 , 1

StrPageTitle = ObjSettings("StrPageTitle")

StrPageEmail = ObjSettings("StrPageEmail")
StrFolderPath = ObjSettings("StrFolderPath")
StrBackupPath = ObjSettings("StrBackupPath")
StrDocsPath = ObjSettings("StrDocsPath")
StrImagePath = ObjSettings("StrImagePath")
StrPhotoPath = ObjSettings("StrPhotoPath")
StrPageUrl = ObjSettings("StrPageUrl")
StrUpdateDate = ObjSettings("StrUpdateDate")
StrBackupDate = ObjSettings("StrBackupDate")
StrRepairDate = ObjSettings("StrRepairDate")

StrPageTblBody = "#FFFFFF"
StrPageBody = "haber_images/fonn.jpg"
StrPageLeft = "#0D3159"
StrPageLeft_T = "#5B87B8"
StrPageHeader = "#DF002B"
StrPageHeader_T = "#E4E4E4"
StrPageFooter = "#DF002B"
StrPageMenuLeft = "#EFF1F5"

ObjSettings.Close()
Set ObjSettings = Nothing

StrScriptName = Request.ServerVariables("SCRIPT_NAME")
StrAPPL_PHYSICAL_PATH = Request.ServerVariables("APPL_PHYSICAL_PATH")
StrPath = StrAPPL_PHYSICAL_PATH & StrFolderPath
%>