aşağıdaki kodlarla eklenen iiki resmi biri büyük biri küçük iki resmi alıp bunların yolunu veri tabanında tabloya gönderiyo. ama biryerde yanlışlık olmalı çünkü veri tabanında tabloda resim adlarının alanlarına sıfır yazıyo. ve sayfada resim gözükmüyo. resmin çıkması yeri sağ tıklayınca yol olarak
http://localhost/bariss/uploads/0 gibi bir yazı çıkıyo sizce sorun nerden kaynaklanmış olabilir. bilgisi olan arkadaşlar yardım ederlerse çok sevinirim..
---------------uploadimage.asp-----------
<!--#INCLUDE FILE="../includes/admin_connections.asp"-->
<!--#INCLUDE FILE="../includes/functions.asp"-->
<%
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(StrUploadAdminPathName) & "\" & File1.FileName)
ObjFileObject1.Name = Session("ProdID") & "_thumb" & Right((File1.FileName),4)
Set ObjFileObject2 = ObjFso.GetFile(Server.MapPath(StrUploadAdminPathName) & "\" & 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#254;ar#253;yla yüklenmi#254; durumdad#253;r&StrRefer=products.asp"
Response.End
Set ObjConn = Nothing
%>
-----------------------------function.asp---------------
<%
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 = "localhost/baris/uploads"
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
'##---
If StrDomain <> "localhost/baris/uploads" Then
Response.Redirect "error.asp?StrMsg=Kulland#253;#240;#253;n#253;z yaz#253;l#253;m#253;n lisans#253; bulunmamaktad#253;r&StrRefer=javascript:history.back(1)"
Response.End
End If
%>
-----------
yol tanımlamalarında yanlışlık olabileceğini düşünüyorum ama yanılıyor olabilirim. yardım edecek arkadaşlara gerekirse daha fazla bilgi verebilirim
şimdiden teşekkürler...