<% dr=temizle(request.QueryString("dr")) sayfa=temizle(request.QueryString("sayfa")) select case sayfa case "" %>

<%if dr="resim" then%> <%end if%>

Dosya uzantısı ZİP, RAR ve PDF olmalıdır. Dosya boyut sınırı 9 MB'dır. Eğer yüklemen başarısız olursa, daha küçük bir dosya yüklemeyi deneyin.

<%case "kaydet"%> <% Function CRefNum() strValue = Empty strValue = strValue & Year(Date) If Len(Month(Date)) = 1 Then strValue = strValue & "0" & Month(Date) Else strValue = strValue & Month(Date) End If If Len(Day(Date)) = 1 Then strValue = strValue & "0" & Day(Date) Else strValue = strValue & Day(Date) End If If Len(Hour(Time)) = 1 Then strValue = strValue & "_0" & Hour(Time) Else strValue = strValue & "_" & Hour(Time) End If If Len(Minute(Time)) = 1 Then strValue = strValue & "0" & Minute(Time) Else strValue = strValue & Minute(Time) End If If Len(Second(Time)) = 1 Then strValue = strValue & "0" & Second(Time) Else strValue = strValue & Second(Time) End If CRefNum = strValue End Function Yol="C:\Inetpub\vhosts\bilirgumruk.grimor.com\httpdocs\Assets\Documents\" Set Upload = Server.CreateObject("Persits.Upload") Upload.OverwriteFiles = False Count = UpLoad.SaveTomemory if Count<>1 then response.Redirect("?dr=resim") end if For Each File In Upload.Files Durum="False" if File.Ext=".zip" then Durum="True" if File.Ext=".rar" then Durum="True" if File.Ext=".pdf" then Durum="True" if File.Ext=".doc" then Durum="True" if File.Ext=".docx" then Durum="True" if File.Ext=".xls" then Durum="True" if File.Size>159216000 then Durum="True" if Durum="False" then uzanti=uzanti+1 else Dokuman=TurkceKarakter(left(File.ExtractFileName,(Len(File.ExtractFileName)-4))) Dokuman=Dokuman & "_" & CRefNum() & FILE.EXT Path=Yol & Dokuman File.SaveAs Path %> <% end if Next if uzanti<>"" or buyukluk<>"" or genislik<>"" or yukseklik<>"" then response.Redirect("?dr=resim") end if %> <%end select%>