persits upload..

10-01-2008, 17:03:52

son günlerde üzerinde çalıştığım e-ticaret sitesinde resim upload problemim var fakat ne yaptıysam sonuç alamadım. Problemim; persits upload ile ürün resmi yüklemeye çalışıyorum hiç bir hata vermiyor resim yüklendi diyor database'e de "0" yazıyor, resmi klasörüne upload etmiyor ( her ikisinde de yazma izni var ) ve haliyle ürün resmi görünmüyor.. Bu site üzerinde 9-10 ay önce uğraşıyordum o zamanlar AspUpload.com - the Most Advanced NT ASP Upload Component dan eklentisini yüklemiştim ve problem çözülmüştü. fakat şimdi aynı işlemleri yapmama rağmen resimleri hiçbir şekilde yükleyemedim kodlarıylada hiç oynamadım 9-10 ay önceki gibi duruyor.. bu konuda yardımcı olabilirseniz çok sevinirim..

upload.asp'nin kodları şu şekilde;



<%
Set Upload = Server.CreateObject("Persits.Upload")
Upload.Save Server.MapPath(StrUploadAdminPathName)
Set File1 = Upload.Files("StrProductThumbImage")
Set File2 = Upload.Files("StrProductNormalImage")
'##---
Set ObjFso = CreateObject("Scripting.FileSystemObject")
Set ObjFileObject1 = ObjFso.GetFile(Server.MapPath(StrUploadAdminPathNa me) & "\" & File1.FileName)
ObjFileObject1.Name = Session("ProdID") & "_thumb" & Right((File1.FileName),4)
Set ObjFileObject2 = ObjFso.GetFile(Server.MapPath(StrUploadAdminPathNa me) & "\" & File2.FileName)
ObjFileObject2.Name = Session("ProdID") & "_normal" & Right((File2.FileName),4)
UpdateSQL = "update TblProducts set "
UpdateSQL = UpdateSQL & "StrProductThumbImage='"& ObjFileObject1.Name &"', "
UpdateSQL = UpdateSQL & "StrProductNormalImage='"& ObjFileObject2.Name &"' WHERE ProdID=" & Session("ProdID")
ObjConn.Execute(UpdateSQL)
Set ObjFileObject2 = Nothing
Set ObjFileObject1 = Nothing
Set ObjFso = Nothing
'##---
Set File2 = Nothing
Set File1 = Nothing
Set Upload = Nothing
Response.Redirect "error.asp?StrMsg=Ürün resmi baþarýyla yüklenmiþ durumdadýr&StrRefer=products.asp"
Response.End
Set ObjConn = Nothing
%>

10-01-2008, 17:16:27

#2

trickster

Bu program path veya yazma izinlerinden meydana gelir...
Yazma problemi olsa iis hata uyarısı verir... Path izni olsada aynı şekilde uyarı alırsınız...

Serverdan c:/program files/...../aspupluad/bin içinde yer alan dll i sağl tıklayıp kullanım için user yetkisi verin. Sorun çözülecektir.

10-01-2008, 17:32:57

#3

EnD_oF_LiFe

dediklerinizi yaptım AspUpload.dll'e tam denetim verdim ama yine aynı problemle karşı karşıyayım işin kötü yanı hata vermiyor resim yüklendi diyor, ama resmi görüntüleyemiyorum.. http://localhost/site/ing/uploads/0 olarak görünüyor uzantısı.. sunucunuz persits destekliyorsa ve siteyi sağlıklı çalıştıracaksa sizden host alabilirim tabi müşteri okey verirse..

12-01-2008, 18:47:13

#4

~~MKURT~~

Üyeliği durduruldu

Konuyu dağtıtmak gibi olmasın ama arkadaş hosting alabilirim dediğinden dolayı yazma ihtiyacı hissettim,

Persits Upload ve Mail bileşenleri kurulu, destekli windows hosting için mail@nixtr.com ile görüşebilirsiniz.

12-01-2008, 22:33:21

#5

doronty37

Kimlik doğrulama veya yönetimden onay bekliyor.

includes/admin_connections.asp veya includes/functions.asp içinde on error resume next gibi bir kod var mı?

16-01-2008, 10:11:40

#6

EnD_oF_LiFe

admin_connections.asp'de sadece veritabanına bağlantı kodları var.
functions.asp'de dediğin kod var, sayfanın kodları şu şekilde;

<%
Dim StrDate
Dim StrTime
Dim StrDate_Time
Dim StrWeekDayName
Dim StrMonthName

On Error Resume Next

StrDate = FormatDateTime(Date(),vbshortdate)
StrTime = FormatDateTime(Now(),vbshorttime)
StrDate_Time = Now()
StrWeekDayName = WeekdayName(weekday(date))
StrMonthName = MonthName(month(date))

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

StrTitle = ObjSettings("StrTitle")
StrVer = ObjSettings("StrVer")
StrURL = ObjSettings("StrURL")
StrEmail = ObjSettings("StrEmail")
StrLogo = ObjSettings("StrLogo")
StrAdminUserName = ObjSettings("StrAdminUserName")
StrAdminUserPass = ObjSettings("StrAdminUserPass")
StrUSDCur = ObjSettings("StrUSDCur")
StrEUROCur = ObjSettings("StrEUROCur")
StrProdList = ObjSettings("StrProdList")
StrFooter = ObjSettings("StrFooter")
StrBannerURL = ObjSettings("StrBannerURL")
StrBannerPath = ObjSettings("StrBannerPath")
StrUploadAdminPathName = "../uploads/"
StrDomain = "http://volkan/yucel/ing/"

ObjSettings.Close()
Set ObjSettings = Nothing

'##---

If Request.Cookies(StrTitle)("StrFirstVisit") = "" Then
Response.Cookies(StrTitle)("StrFirstVisit") = Now()
Response.Cookies(StrTitle).Expires = Now() + 365
Else
Response.Cookies(StrTitle)("StrLastVisit") = Now()
Response.Cookies(StrTitle).Expires = Now() + 365
End If

'##---

Function StrRandomCode(StrNumber)

For i = 1 To (StrNumber/2)
Randomize
StrCode = StrCode + Chr(Int((10) * Rnd + 48))
StrCode = StrCode + Chr(Int((26) * Rnd + 65))

StrRandomCode = StrCode
Next

End Function

'##---

Sub StrDbModified

Dim StrModified

Set ObjFSO = Server.CreateObject("Scripting.FileSystemObject")
Set ObjPath = ObjFSO.GetFile(Server.MapPath("db/database.mdb"))
StrModified = ObjPath.DateLastModified

Response.Write "Son güncelleme : " & StrModified

Set ObjFSO = Nothing
Set ObjPath = Nothing

End Sub

%>

16-01-2008, 12:47:34

#7