[Zorcoc]

Daha önce forumda buna benzer bi başlık vardı ama ben o başlıktan yola çıkarak bi türlü istediğimi yapamadım.

Olay şu: Aspjpeg ve persist upload ile bi resim yükleniyor , resmin küçük , büyük boyutlarını oluşturup , adlarını değiştirip veritabanına yazıyor. Her yüklemede yeni bir kayıt açıyor , benim yapmaya çalıştığım gösterilen id için veritabanına yazacak.

Örnek kodu yükledim(Çalışan: ASP JPEG1.rar), kendi yapmak istediğimi de(Çalışmayan: ASP JPEG2_.rar) yükledim. Bana yardım edin lütfen... Sürekli 73. satırda SQL kodunda hata veriyor... Bunu nasıl çalıştırcam..
Teşekkürler.

[Zorcoc]

form.ASP

PHP Code:

<form id="ID" name="ID" method="post" action="isle.ASP?id=2" ENCTYPE="multipart/form-data" >
<input type="file" name="file" />
<input name="Submit" type="submit" />
</form> 


isle.ASP

PHP Code:


<% ID   = request("ID")%> 


<%

enalt_sayi = 100000
enust_sayi = 999999

Randomize()

isle     = enust_sayi - enalt_sayi + 1
random   = isle * rnd()
random   = random + enalt_sayi
guvenlik = int(random)

Set Upload = server.CreateObject("Persits.Upload")
Upload.Save server.MapPath("images/")'Resminizin kaydolduğu klasör

 
' Create instance of AspJpeg
Set Jpeg = server.CreateObject("Persits.Jpeg")
' Open source image
For Each File in Upload.Files
dosya = file.path
Jpeg.Open  dosya


set fso = CreateObject("Scripting.FileSystemObject") 
set file = fso.GetFile(File.Path) 
file.name = "rs"&guvenlik&".jpg" 
set file = nothing 
set fso = nothing 
next


L = 100
Jpeg.Width = L
Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth

If jpeg.OriginalWidth > jpeg.OriginalHeight Then
   jpeg.Width = L
   jpeg.Height = jpeg.OriginalHeight * L / jpeg.OriginalWidth
Else
   jpeg.Height = L
   jpeg.Width = jpeg.OriginalWidth * L / jpeg.OriginalHeight
End If


jpeg.PreserveAspectRatio = True
If jpeg.OriginalWidth > jpeg.OriginalHeight Then
   jpeg.Width = L
Else
   jpeg.Height = L
End If
 


For Each File in Upload.Files
Jpeg.Save server.MapPath("images/th"&guvenlik&".jpg")
th = server.MapPath("images/th"&guvenlik&".jpg")
rs = file.Path
next
uzun = right(th,24)
res = right(rs,24)
response.Write uzun
mes = replace(uzun,"th","rs")

set baglanti = server.CreateObject ("ADODB.Connection")
baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & server.MapPath("db.mdb") 'buraya kendi database'inizi yazın
set kd = server.CreateObject("ADODB.Recordset")
kd.open "Select * From urun WHERE ID=" & request("ID")  & "",baglanti,1,3

kd("resim") = mes 'urun tablosundaki resim alan'ına normal 
' resmi kaydeder
kd("thumb") = uzun 'urun tablosundaki thumb alanına resmin 
' thumb halini kaydeder
kd.update
%>
 Resim Başarıyla Yüklenmiştir. 


kodlar bu şekilde, upload yapınca şöyle bişey çıkıyor,

PHP Code:

<&#65533;%� �I�D� � � �=� �r�e�q�u�e�s�t�(�"�I�D�"�)�%�>� � � � � � � �<�%� � � � �e�n�a�l�t�_�s�a�y�i� �=� �1�0�0�0�0�0� � �e�n�u�s�t�_�s�a�y�i� �=� �9�9�9�9�9�9� � � � �R�a�n�d�o�m�i�z�e�(�)� � � � �i�s�l�e� � � � � �=� �e�n�u�s�t�_�s�a�y�i� �-� �e�n�a�l�t�_�s�a�y�i� �+� �1� � �r�a�n�d�o�m� � � �=� �i�s�l�e� �*� �r�n�d�(�)� � �r�a�n�d�o�m� � � �=� �r�a�n�d�o�m� �+� �e�n�a�l�t�_�s�a�y�i� � �g�u�v�e�n�l�i�k� �=� �i�n�t�(�r�a�n�d�o�m�)� � � � �S�e�t� �U�p�l�o�a�d� �=� �S�e�r�v�e�r�.�C�r�e�a�t�e�O�b�j�e�c�t�(�"�P�e�r�s�i�t�s�.�U�p�l�o�a�d�"�)� � �U�p�l�o�a�d�.�S�a�v�e� �s�e�r�v�e�r�.�M�a�p�P�a�t�h�(�"�i�m�a�g�e�s�/�"�)�'�R�e�s�m�i�n�i�z�i�n� �k�a�y�d�o�l�d�u�
u� �k�l�a�s�ö�r� � � � � � � �'� �C�r�e�a�t�e� �i�n�s�t�a�n�c�e� �o�f� �A�s�p�J�p�e�g� � �S�e�t� �J�p�e�g� �=� �S�e�r�v�e�r�.�C�r�e�a�t�e�O�b�j�e�c�t�(�"�P�e�r�s�i�t�s�.�J�p�e�g�"�)� � �'� �O�p�e�n� �s�o�u�r�c�e� �i�m�a�g�e� � �F�o�r� �E�a�c�h� �F�i�l�e� �i�n� �U�p�l�o�a�d�.�F�i�l�e�s� � �d�o�s�y�a� �=� �f�i�l�e�.�p�a�t�h� � �J�p�e�g�.�O�p�e�n� � �d�o�s�y�a� � � � � � �s�e�t� �f�s�o� �=� �C�r�e�a�t�e�O�b�j�e�c�t�(�"�S�c�r�i�p�t�i�n�g�.�F�i�l�e�S�y�s�t�e�m�O�b�j�e�c�t�"�)� � � �s�e�t� �f�i�l�e� �=� �f�s�o�.�G�e�t�F�i�l�e�(�F�i�l�e�.�P�a�t�h�)� � � �f�i�l�e�.�n�a�m�e� �=� �"�r�s�"�&�g�u�v�e�n�l�i�k�&�"�.�j�p�g�"� � � �s�e�t� �f�i�l�e� �=� �n�o�t�h�i�n�g� � � �s�e�t� �f�s�o� �=� �n�o�t�h�i�n�g� � � �n�e�x�t� � � � � � �L� �=� �1�0�0� � �J�p�e�g�.�W�i�d�t�h� �=� �L� � �J�p�e�g�.�H�e�i�g�h�t� �=� �J�p�e�g�.�O�r�i�g�i�n�a�l�H�e�i�g�h�t� �*� �L� �/� �J�p�e�g�.�O�r�i�g�i�n�a�l�W�i�d�t�h� � � � �I�f� 


bu neden oluyor acaba? bi fikri olan var mı?