Persits.Upload ile linkten veri kaydetme ?

28-12-2009, 11:54:02

Üyeliği durduruldu

Arkadaşlar asp.jpeg bileşenini kullanarak değişkene verdiğim url'den resmi kaydedebiliyorum. Normalde url yi binary karakterler olarak alıyor ve kendi içinde normal hale cevirip normal şekilde kaydediyor.

Fakat asp.upload bileşeninde ne yaptıysam bunu beceremedim. verdiğim linkten dosyayı binary olarak görebiliyorum fakat asp.upload kendi içinde binaryi düzeltip kaydedemiyor.
Linkte .rar,.doc,.xml,.swf gibi binary dosyalar olabilir.

Bilgisi olan var ise lütfen bilgilendirsin.

İyi çalışmalar.

10-09-2012, 19:10:49

#2

fsahinoglu

bende beceremedim bilen varsa lütfen yardım etsin

11-09-2012, 08:53:36

#3

~~ShekerChi~~

Üyeliği durduruldu

peheee 3 senelik dava

çözeli çok oldu paylaşırım müsait bi zamanda

14-09-2012, 17:01:24

#4

gokalpturan

Kod yazmadan linkin html koduna download yazarsanız sorun halloluyor

<a href="link.png" download>İndir</a>
Şeklinde.
Ama illa kod ila yazacam derseniz elimde bir örnek vardı bakarım

14-09-2012, 17:23:47

#5

~~ShekerChi~~

Üyeliği durduruldu

gokalpturan adlı üyeden alıntı: mesajı görüntüle

Kod yazmadan linkin html koduna download yazarsanız sorun halloluyor

<a href="link.png" download>İndir</a>
Şeklinde.
Ama illa kod ila yazacam derseniz elimde bir örnek vardı bakarım

o kullanıcının bilgisayarına indirir dosyayı, istediği kod sunucuya indirecek

14-09-2012, 17:37:53

#6

gokalpturan

ShekerChi adlı üyeden alıntı: mesajı görüntüle

o kullanıcının bilgisayarına indirir dosyayı, istediği kod sunucuya indirecek

Öyle bi ihtiyacım olunca hallederiz hocam artık ben hiç uğraşmadım o konuyla

15-09-2012, 09:59:21

#7

~~ShekerChi~~

Üyeliği durduruldu

Alıntı

<%
Server.Scripttimeout = 1500
DosyaURL = "http://e-promis.net/bilesen.rar"
KaydedilecekYer = "C:\inetpub\wwwroot\aaaa.rar"

Set DosyaIndir = CreateObject("MSXML2.XMLHTTP")
DosyaIndir.Open "GET", DosyaURL, false
DosyaIndir.Send()

If DosyaIndir.Status = 200 Then
Set OkuKaydet = CreateObject("ADODB.Stream")
OkuKaydet.Open
OkuKaydet.Type = 1

OkuKaydet.Write DosyaIndir.ResponseBody
OkuKaydet.Position = 0

Set FSO = Createobject("Scripting.FileSystemObject")
If FSO.FileExists(KaydedilecekYer) Then FSO.Deletefile KaydedilecekYer
Set FSO = Nothing

OkuKaydet.SaveTofile KaydedilecekYer
OkuKaydet.Close
Set OkuKaydet = Nothing
End if

Set DosyaIndir = Nothing
%>

bu iş görür, kendinize göre düzenleyebilirsiniz