<% @ Language = VBScript %>
<%
Option Explicit
With Response
.Buffer = True
.Expires = 0
.Clear
End With
%>
Resim Yükle
<%
Dim oFO, oProps, oFile, i, item, oMyName
Set oFO = New FileUpload
Response.Write("
RESİM YÜKLEME Dosyayi Yükledikten sonra İşlemi Bitir Butonunu Tıklayınız.
")
With Response
.write "Dikkat ! Yükleyeceğiniz resmin boyutları 196 * 162 olmalıdır." & vbCRLF
End With
Set oProps = oFO.GetUploadSettings
with oProps
.Extensions = Array("jpg", "gif", "bmp", "png") ' kabul edilen uzantılar
.UploadDirectory = Server.Mappath("tarif_resimleri/") ' dosyanın yükleneceği yer
.AllowOverWrite = true
.MaximumFileSize = 250600 ' yüklenmesini istediğiniz maksimum dosya büyüklüğü
.MininumFileSize = 500 ' burada minimum dikkat ederseniz 1k 1000 diye yazılıyor
.UploadDisabled = false
End with%>
<%set oProps = nothing
oFO.ProcessUpload
if oFO.TotalFormCount > 0 then
if oFO.FileCount > 0 then
for i = 1 to oFO.FileCount
set oFile = oFO.File(i)
if oFile.ErrorMessage <> "" then
response.write "> HATA: " & _
oFile.ErrorMessage & " "
else
oFile.SaveAsFile
if oFile.UploadSuccessful then
response.write "> Basariyla Yüklendi "
else
response.write "> Dosyayı yüklerken hata oluştu: " & _
oFile.ErrorMessage & " "
end if
end if
set oFile = Nothing
next
else
response.write "> Daha önceden bu dosya ile ayni boyutta dosya yüklenmis. Bu durumda ayni dosyayi yüklüyor olabilirsiniz. Eger farkli bir dosya olduguna eminseniz; Dosya boyutunu büyültmek için küçük bir text dosyasini doldurarak zip'li dosyaya ekleyiniz."
end if
response.write "
"
else
oFO.ShowUploadForm request.servervariables("SCRIPT_NAME")
end if
set oFO = Nothing
%>